liste kutusu filtreleme

[prodigy]

Ekteki örneği yine forundaki bir örneği inceleyerek yapmaya çalıştım. Ama bir yerlerde eksik bir şey kaldıki çalışmıyor. liste kutusundaki verileri microsoft forms 2.textbox kullanarak yaptım. ama süzme işlemini beceremedim.

 

[modalı]

Sayın prodigy,

sql düzenle alt yordamındaki AND leri WHERE ile değiştirin.

İyi çalışmalar

 

[prodigy]

Teşekkürler Sayın Modalı

 

[modalı]

Sayın prodigy,

Cevap verdikten sonra iki tane where in üst üste çalışamayacağını fark ettim.

Onun için kodlarda bazı düzeltmeler yaptım:

Private Sub sql_duzenle()
    If Me!nosu <> "" Then
        sql1 = "'*" & Me!nosu & "*'"
    Else
        sql1 = "'*'"
    End If
 
    If Me!ad&#305; <> "" Then
        sql2 = "'*" & Me!ad&#305; & "*'"
    Else
        sql2 = "'*'"
    End If
 
    If Me!soyad&#305; <> "" Then
        sql3 = "'*" & Me!soyad&#305; & "*'"
    Else
        sql3 = "'*'"
    End If
 
    If Me!baba <> "" Then
        sql4 = "'*" & Me!baba & "*'"
    Else
        sql4 = "'*'"
    End If
 
  sql = " SELECT Tablo1.nosu, Tablo1.ad&#305;, Tablo1.soyad&#305;, Tablo1.baba " & " FROM Tablo1" & " WHERE tablo1.nosu like " & sql1 & " AND tablo1.ad&#305; like " & sql2 & " AND tablo1.soyad&#305; like " & sql3 & " AND tablo1.baba like " & sql4
 
 
        Me.Liste6.RowSource = sql
 
End Sub

Bu şekilde kullanırsanız esnek arama yapabilirsiniz.

İyi çalışmalar