ListView1_DblClick sorunum?

[s.savas]

Merhaba arkadaşlar.
Aşağıdaki kod bloğu ile Listview1 nesnesine veri isimli access veritabanından proje isimli tablodan verileri aldırıyorum.

Private Sub listeye_al()
 With Me.ListView1
  .Gridlines = True
  .FullRowSelect = True
  .View = lvwReport
  .ListItems.Clear
  .ColumnHeaders.Clear

End With
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "Kimlik", 0, lvwColumnLeft
.ColumnHeaders.Add , , "Adı Soyadı", 75, lvwColumnLeft
.ColumnHeaders.Add , , "T.C. Kimlik No", 75, lvwColumnLeft
.ColumnHeaders.Add , , "Sicili", 75, lvwColumnLeft
.ColumnHeaders.Add , , "İli", 75, lvwColumnLeft
.ColumnHeaders.Add , , "İlçesi", 75, lvwColumnLeft

.FullRowSelect = True
.Gridlines = True
End With

Dim evn As ListItem
    
    On Error Resume Next
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
Call BAGLANTI

   rs.Open "select * from [proje]", baglan, 1, 1
  
    ListView1.ListItems.Clear
Dim satir As Integer
    On Error Resume Next
    If Not rs.EOF Then
        Do While Not rs.EOF
 Set evn = ListView1.ListItems.Add(, , rs.Fields("Kimlik"))
 evn.SubItems(1) = rs.Fields("adi") & ""
 evn.SubItems(2) = rs.Fields("tckimlik") & ""
 evn.SubItems(3) = rs.Fields("sicil") & ""
 evn.SubItems(4) = rs.Fields("il") & ""
 evn.SubItems(5) = rs.Fields("ilce") & ""
 
  rs.MoveNext
            
            
        Loop
    End If
    rs.Close: con.Close
    Set rs = Nothing
   Label6.Caption = "Toplam kayıt:" & ListView1.ListItems.Count
    
End Sub

Ancak DblClick ile Listview1 deki verileri textbox ve comboboxlara yüklerken istenen hedeflere doğru yükleme yapılmıyor.

 

[Haluk]

Private Sub ListView1_DblClick()
    Dim Y As Integer
    On Error Resume Next
    Y = ListView1.SelectedItem.Index
    txtkimlik = ListView1.ListItems(Y).ListSubItems(0).Text  'Sıra No
    txtadi = ListView1.ListItems(Y).ListSubItems(1).Text 'Adı Soyadı
    txttckimlik = ListView1.ListItems(Y).ListSubItems(2).Text 'kimliği
    txtsicil = ListView1.ListItems(Y).ListSubItems(3).Text 'sicili
    cmbil = ListView1.ListItems(Y).ListSubItems(4).Text 'ünvanı
    cmbilce = ListView1.ListItems(Y).ListSubItems(5).Text 'şubesi
End Sub

.

 

[s.savas]

Private Sub ListView1_DblClick()
    Dim Y As Integer
    On Error Resume Next
    Y = ListView1.SelectedItem.Index
    txtkimlik = ListView1.ListItems(Y).ListSubItems(0).Text  'Sıra No
    txtadi = ListView1.ListItems(Y).ListSubItems(1).Text 'Adı Soyadı
    txttckimlik = ListView1.ListItems(Y).ListSubItems(2).Text 'kimliği
    txtsicil = ListView1.ListItems(Y).ListSubItems(3).Text 'sicili
    cmbil = ListView1.ListItems(Y).ListSubItems(4).Text 'ünvanı
    cmbilce = ListView1.ListItems(Y).ListSubItems(5).Text 'şubesi
End Sub

.

Haluk hocam teşekkür ederim.
Belki yukarıda sorunumu/sorunlarımı tam ifade edemedim.
Asıl isteğim DblClick yordamında txtkimlik = ListView1.ListItems(Y).ListSubItems(0). ile txtkimlik nesnesine proje isimli alandaki Kimlik verisini alarak sırasıyla diğer nesnelere de adi, tckimlik, sicil, il ve ilce verilerini çekmekti.
Sizin yönteminizi de yapmıştım. Her seferinde txtkimlik nesnesine gerekli veriyi alamayınca çaresiz kaldım.

 

[Haluk]

Son mesajınızda neden bahsettiğinizi anlamadım.....

1 No'lu mesajınızda TextBox'lara yanlış bilgilerin geldiğinden bahsediyordunuz, ben de kodun doğrusunu verdim.

Şimdi problem nedir?


.

 

[s.savas]

Son mesajınızda neden bahsettiğinizi anlamadım.....

1 No'lu mesajınızda TextBox'lara yanlış bilgilerin geldiğinden bahsediyordunuz, ben de kodun doğrusunu verdim.

Şimdi problem nedir?


.

Listview1 deki Kimlik bilgisinin de txtkimlik nesnesine yüklenmesi.

 

[s.savas]

Listbox kodlarından esinlenerek aşağıdaki döngüyü derledim ancak nafile.
Hala Listview1 de Kimlik verisini txtkimlik nesnesine yükleyemiyorum.

Private Sub ListView1_DblClick()

For i = 0 To ListView1.ListItems.Count - 1
        If ListView1.ListItems.Selected(i) = True Then
        txKimlik = ListView1(i).ListSubItems(0, i)
        txtadi = ListView1(i).ListSubItems(1, i)
        txttckimlik = ListView1(i).ListSubItems(2, i)
        txtsicil = ListView1(i).ListSubItems(3, i)
        cmbil = ListView1(i).ListSubItems(4, i)
        cmbilce = ListView1(i).ListSubItems(5, i)
           
        End If
    Next i

         
End Sub

 

[Haluk]

ListView nesnesi benim kullandığım bir nesne olmadığı için fazla bir fikrim yok ama;

Daha önceki kodlarınızı şöyle düzenleseniz olur mu acaba ?

Private Sub ListView1_DblClick()
    Dim Y As Integer
    Y = ListView1.SelectedItem.Index
    txtkimlik = ListView1.ListItems(Y).Text
    txtadi = ListView1.ListItems(Y).ListSubItems(1).Text 'Adı Soyadı
    txttckimlik = ListView1.ListItems(Y).ListSubItems(2).Text 'kimliği
    txtsicil = ListView1.ListItems(Y).ListSubItems(3).Text 'sicili
    cmbil = ListView1.ListItems(Y).ListSubItems(4).Text 'ünvanı
    cmbilce = ListView1.ListItems(Y).ListSubItems(5).Text 'şubesi
End Sub

Private Sub listeye_al()
....
...
..
 Set evn = ListView1.ListItems.Add(, , rs.Fields("Kimlik"))
 evn.SubItems(1) = rs.Fields("adi")
 evn.SubItems(2) = rs.Fields("tckimlik")
 evn.SubItems(3) = rs.Fields("sicil")
 evn.SubItems(4) = rs.Fields("il")
 evn.SubItems(5) = rs.Fields("ilce")
....
....
..

.

 

[s.savas]

ListView nesnesi benim kullandığım bir nesne olmadığı için fazla bir fikrim yok ama;

Daha önceki kodlarınızı şöyle düzenleseniz olur mu acaba ?

Private Sub ListView1_DblClick()
    Dim Y As Integer
    Y = ListView1.SelectedItem.Index
    txtkimlik = ListView1.ListItems(Y).Text
    txtadi = ListView1.ListItems(Y).ListSubItems(1).Text 'Adı Soyadı
    txttckimlik = ListView1.ListItems(Y).ListSubItems(2).Text 'kimliği
    txtsicil = ListView1.ListItems(Y).ListSubItems(3).Text 'sicili
    cmbil = ListView1.ListItems(Y).ListSubItems(4).Text 'ünvanı
    cmbilce = ListView1.ListItems(Y).ListSubItems(5).Text 'şubesi
End Sub

Private Sub listeye_al()
....
...
..
Set evn = ListView1.ListItems.Add(, , rs.Fields("Kimlik"))
evn.SubItems(1) = rs.Fields("adi")
evn.SubItems(2) = rs.Fields("tckimlik")
evn.SubItems(3) = rs.Fields("sicil")
evn.SubItems(4) = rs.Fields("il")
evn.SubItems(5) = rs.Fields("ilce")
....
....
..

.

Nasıl oldu pek anlamadım amma oldu işte, çalışıyor.
Tekrar teşekkürler Haluk hocam.