ilk çif tıklamada forma veri aktarmama

[sahir73]

Merhabalar, konu başlığı ne kadar açıklayıcı oldu bilmiyorum. Anlatamam gerekirse; anaformda listelen verileri çift tıkla düzenleme userformuna ilk çift tıklamada gönderemiyorum textboxlar boş bir şekilde form açılıyor. İkinci çift tıklamada veriler doğru bir şekilde geliyor ama bu seferde başka bir veriye çift tıklayıp veri düzenleme formunu çağırdığımda ilk tıklamdaki verileri getiriyor formu kapatmak için kullandığım butona textboxları temizleme kodu yazdım olmadı. Verileri temizlerken bir yerde eksik yada hata mı yapıyorum

 

[işsiz123]

Merhabalar, konu başlığı ne kadar açıklayıcı oldu bilmiyorum. Anlatamam gerekirse; anaformda listelen verileri çift tıkla düzenleme userformuna ilk çift tıklamada gönderemiyorum textboxlar boş bir şekilde form açılıyor. İkinci çift tıklamada veriler doğru bir şekilde geliyor ama bu seferde başka bir veriye çift tıklayıp veri düzenleme formunu çağırdığımda ilk tıklamdaki verileri getiriyor formu kapatmak için kullandığım butona textboxları temizleme kodu yazdım olmadı. Verileri temizlerken bir yerde eksik yada hata mı yapıyorum

Merhabalar
Örnek dosyanızı eklerseniz yardımcı olmaya çalışacağım.

 

[sahir73]

Merhabalar
Örnek dosyanızı eklerseniz yardımcı olmaya çalışacağım.

Dosya

 

[Ziynettin]

Formu açan kod satır komutunu en alt satıra almalısınız.

Private Sub lst_musteri_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    frmKayit.Top = Top + 40
    frmKayit.Left = Left + 150
    frmKayit.btn_kaydet.Locked = True
    frmKayit.txt_Mid.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 0)
    frmKayit.txt_Mno.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 1)
    frmKayit.txt_Madiunvani.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 2)
    frmKayit.cmb_Mturu.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 3)
    frmKayit.txt_Mtcvergino.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 4)
    frmKayit.txt_Mtelefon.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 5)
    frmKayit.txt_Mmail.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 6)
    frmKayit.txt_Mvergidairesi.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 7)
    frmKayit.Show
End Sub

 

[sahir73]

Formu açan kod satır komutunu en alt satıra almalısınız.

Private Sub lst_musteri_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    frmKayit.Top = Top + 40
    frmKayit.Left = Left + 150
    frmKayit.btn_kaydet.Locked = True
    frmKayit.txt_Mid.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 0)
    frmKayit.txt_Mno.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 1)
    frmKayit.txt_Madiunvani.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 2)
    frmKayit.cmb_Mturu.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 3)
    frmKayit.txt_Mtcvergino.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 4)
    frmKayit.txt_Mtelefon.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 5)
    frmKayit.txt_Mmail.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 6)
    frmKayit.txt_Mvergidairesi.Value = Me.lst_musteri.List(Me.lst_musteri.ListIndex, 7)
    frmKayit.Show
End Sub

çok teşekkür ederim. nasıl farketmedim anlamadım , nice güzel yıllara