Lütfen forum kurallarını okuyunuz..
Kodlar;
Option Compare Database
Private Sub Form_Activate()
DoCmd.Maximize
End Sub
Private Sub Komut111_Click()
If IsNull(sayac) Then
sayac = 1
Else
sayac = sayac + 1
End If
sqlifade = "SELECT erkekisimleri.*, Len([İSİM]) " & _
"FROM erkekisimleri " & _
"WHERE (((Len([İSİM]))=[sayac]));"
Liste1.RowSourceType = "table/query"
Liste1.RowSource = sqlifade
Liste1.Requery
End Sub
Private Sub Komut112_Click()
If IsNull(sayac) Or sayac = 1 Then
sayac = 1
Else
sayac = sayac - 1
End If
sqlifade = "SELECT erkekisimleri.*, Len([İSİM]) " & _
"FROM erkekisimleri " & _
"WHERE (((Len([İSİM]))=[sayac]));"
Liste1.RowSourceType = "table/query"
Liste1.RowSource = sqlifade
Liste1.Requery
End Sub
Private Sub sayac_AfterUpdate()
sqlifade = "SELECT erkekisimleri.*, Len([İSİM]) " & _
"FROM erkekisimleri " & _
"WHERE (((Len([İSİM]))=[sayac]));"
Liste1.RowSourceType = "table/query"
Liste1.RowSource = sqlifade
Liste1.Requery
End Sub
Private Sub TextBox3_Updated(Code As Integer)
sqlifade = "select * from erkekisimleri where İSİM like Formlar!Form1!TextBox3 & '*'"
Liste1.RowSourceType = "table/query"
Liste1.RowSource = sqlifade
Liste1.Requery
End Sub
Private Sub TextBox6_Updated(Code As Integer)
sqlifade = "select * from erkekisimleri where İSİM like '*' & Formlar!Form1!TextBox6 & '*'"
Liste1.RowSourceType = "table/query"
Liste1.RowSource = sqlifade
Liste1.Requery
End Sub
Private Sub TextBox7_Updated(Code As Integer)
sqlifade = "select * from erkekisimleri where ANLAMI like '*' & Formlar!Form1!TextBox7 & '*'"
Liste1.RowSourceType = "table/query"
Liste1.RowSource = sqlifade
Liste1.Requery
End Sub
