slm arkadaşlar.access veritabanımdaki iki tabloda birden sorgulama yapıp sonucunu listviewde listelemeye çalışıyorum.fakat arama sonucunda arama kriterlerine uyan kayıtların sadece ilk alan değerleri listeleniyo ve her kayıdın ilk alan değerleri yan yana yazılıyo.neyin yanlış ya da eksik olduğunu bir türlü anlayamadım..kodun ilgili kısmını yolluyorum.
with form1
If (.txtsirketadi = "" And .cmbbrans = "" And .cmbaltbrans = "") And (.txtadi = "" And .txtsoyadi = "" And .optbay = False And .optbayan = False) Then
sql = "select * from police_bilgileri"
Rs.Open sql, Conn, 1, 3
If Rs.RecordCount = 0 Then '''''''''''''''''
MsgBox "henüz bir kayıt mevcut değil", vbOKOnly, "Arama Sonuçlandı.." ''''''''''''''''
Else
With .liste_sonuclari
.ListItems.Clear
Do While Not Rs.EOF
Set itmx = .ListItems.Add(, , Rs("sigorta_sirket_adi"))
If Rs("anabrans_adi") <> "" Then itmx.SubItems(1) = Rs("anabrans_adi")
If Rs("altbrans_adi") <> "" Then itmx.SubItems(2) = Rs("altbrans_adi")
sql2 = "select * from kimlik_bilgileri where kimlik_no='" & Rs("kimlik_no") & "' "
Rs2.Open sql2, Conn, 1, 3
Do While Not Rs2.EOF
If Not IsNull(Rs2("adi")) Then itmx.SubItems(3) = Rs2("adi")
If Not IsNull(Rs2("soyadi")) Then itmx.SubItems(4) = Rs2("soyadi")
If Rs2("cinsiyeti") = False Then itmx.SubItems(5) = "Bay"
If Rs2("cinsiyeti") = True Then itmx.SubItems(5) = "Bayan"
Rs2.MoveNext
Loop
Rs2.Close
Rs.MoveNext
Loop
End With
Rs.Close
End If
End If