DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub sql_duzenle()
If Me!nosu <> "" Then
sql1 = "'*" & Me!nosu & "*'"
Else
sql1 = "'*'"
End If
If Me!adı <> "" Then
sql2 = "'*" & Me!adı & "*'"
Else
sql2 = "'*'"
End If
If Me!soyadı <> "" Then
sql3 = "'*" & Me!soyadı & "*'"
Else
sql3 = "'*'"
End If
If Me!baba <> "" Then
sql4 = "'*" & Me!baba & "*'"
Else
sql4 = "'*'"
End If
sql = " SELECT Tablo1.nosu, Tablo1.adı, Tablo1.soyadı, Tablo1.baba " & " FROM Tablo1" & " WHERE tablo1.nosu like " & sql1 & " AND tablo1.adı like " & sql2 & " AND tablo1.soyadı like " & sql3 & " AND tablo1.baba like " & sql4
Me.Liste6.RowSource = sql
End Sub