Çözüldü Bir Formdaki veriyi iki farklı formda kullanmak.

[horentas]

merhaba,
bir stok programı indirdim ve kendime göre düzenlemeler yapıyorum, mevcut programın içerisine etiket uygulaması da ekledim fakat etiket formuna girdiğimizde stok adı kısmının yanında stok listesi listbox dan ürünü bulup çift tık seçtiğimde uyarı alıyorum çünkü çifttık yaptığım formu aynı zamanda stok giriş/çıkış sayfasıda kullanıyor.
aşağıda orjinal kod var;

Private Sub lstStokDurum_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If lstStokDurum.ListIndex = -1 Then

MsgBox "Bilgilerini seçimlemek istediğiniz stok üzerinde çift tık yapınız."
Exit Sub

End If

If lblGizli.Caption = 1 Then

stokDurumSS = Sheets("Stok_Durum").Range("A10000").End(xlUp).Row
seciliStok = lstStokDurum.List(lstStokDurum.ListIndex, 0)
stokS = Sheets("Stok_Durum").Range("A1:A" & stokDurumSS).Find(seciliStok, Lookat:=xlPart).Row

frmHizliKayit.txtID.Text = Sheets("Stok_Durum").Range("A" & stokS)
frmHizliKayit.cbStokAdi.Text = Sheets("Stok_Durum").Range("B" & stokS)
frmHizliKayit.txtTedarikci.Text = Sheets("Stok_Durum").Range("C" & stokS)
frmHizliKayit.txtBirim.Text = Sheets("Stok_Durum").Range("D" & stokS)
frmHizliKayit.txtAnlikStok.Text = Sheets("Stok_Durum").Range("G" & stokS)

Unload Me

End If

End Sub

bu kırmızı yeri frmEtiket.cb..... diye devam ettiğimde bu seferde etiket kısmında çifttık seçme işlemi gerçekleşiyor ama frmhizlikayit kısmında çift tıkta uyarı alıyorum ben bu çifttık yaptığım kısmı hem etiket kısmında hemde hizlikayit form kısmında kullanmak istiyorum yardımcı olabilecek varsa çok sevinirim.

Aldığım uyarı:

Run-time error 380
could not set the text property.invalid property value.

DOSYA BURAYA YÜKLEDİM.

İndir

Dosyayı indir

dosya.co

 

[horentas]

yardımcı olacak birisi var mı?

 

[horentas]

şu şekilde düzenledim ve oldu bilginize...

Private Sub lstStokDurum_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next

If lstStokDurum.ListIndex = -1 Then
    
    MsgBox "Bilgilerini seçimlemek istediğiniz stok üzerinde çift tık yapınız."
    Exit Sub

End If

If lblGizli.Caption = 1 Then
    
    stokDurumSS = Sheets("Stok_Durum").Range("A10000").End(xlUp).Row
    seciliStok = lstStokDurum.List(lstStokDurum.ListIndex, 0)
    stokS = Sheets("Stok_Durum").Range("A1:A" & stokDurumSS).Find(seciliStok, Lookat:=xlPart).Row
    
    frmHizliKayit.txtID.Text = Sheets("Stok_Durum").Range("A" & stokS)
    frmEtiket.cbStokAdi.Text = Sheets("Stok_Durum").Range("B" & stokS)
    If Err.Number > 0 Then
    frmHizliKayit.cbStokAdi.Text = Sheets("Stok_Durum").Range("B" & stokS)
    frmHizliKayit.txtTedarikci.Text = Sheets("Stok_Durum").Range("C" & stokS)
    frmHizliKayit.txtBirim.Text = Sheets("Stok_Durum").Range("D" & stokS)
    frmHizliKayit.txtAnlikStok.Text = Sheets("Stok_Durum").Range("G" & stokS)
    
    Unload Me
End If
Unload Me

End If



End Sub