Listview Çift Tıklama ve veri aktarma

[AKTAY27]

userform1 de listview ve textboxlar verileri lisviewe listeliyorum lisviewden çift tıklayarak textboxlara aktarmak istiyorum. aşağıdaki kodları deniyorum ama çift tıkladığım zaman listviewdeki veriler kayboluyor sadece üzerine çift tıkladığım kalıyor.

yapmak istediğim verilerin hepsinin listviewde görünür halde olması üzerine çift tıkladığım da textboxtlara aktarması


'----------------------------------------

Private Sub ListView1_DblClick()
On Error Resume Next
x = ListView1.SelectedItem.Index
RefNo = ListView1.ListItems(x).ListSubItems(20) 'REF NO
TextBox4 = ListView1.ListItems(x).ListSubItems(3) 'c.h.k.
TextBox5 = ListView1.ListItems(x).ListSubItems(6) 'ünvan
TextBox6 = Format(ListView1.ListItems(x).ListSubItems(4), "dd.mm.yyyy") 'fat.tarihi
TextBox7 = ListView1.ListItems(x).ListSubItems(5) 'fat.no
TextBox8 = ListView1.ListItems(x).ListSubItems(7) 'hes.kd.
TextBox9 = ListView1.ListItems(x).ListSubItems(8) 'hes.adı
TextBox10 = FormatNumber(ListView1.ListItems(x).ListSubItems(9)) 'miktar
TextBox12 = FormatNumber(ListView1.ListItems(x).ListSubItems(10), 5) 'fiyat
TextBox13 = FormatNumber(ListView1.ListItems(x).ListSubItems(18)) 'tutar
TextBox14 = FormatNumber(ListView1.ListItems(x).ListSubItems(19)) 'kdv

End Sub
'-------------------------------------------------------

 

[Korhan Ayhan]

Merhaba,

Konuyla ilgili örnek dosya ekleyebilirmisiniz.

 

[AKTAY27]

korhan bey ;
ilgili dosya ektedir.

 

[halit3]

Private Sub TextBox4_Change()

yukarıdaki bölüm kodu tetiklemektedir onun yerine aşağıdakilerden birini deneyin.

Private Sub TextBox4_Enter()

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Private Sub TextBox4_AfterUpdate()

 

[AKTAY27]

teşekkürler halit3 Allah razı olsun

 

[halit3]

teşekkürler halit3 Allah razı olsun

İyi çalışmalar