sıralama 2 si arasında gidip gelir
Private Sub Komut1_Click()
Dim SqlSirala, txtSira As String
If InStr(1, Me.Komut1.Caption, "dosya", vbTextCompare) > 0 Then
txtSira = "tablo1.DosyaNo"
Me.Komut1.Caption = "Rowsoruce sıra no"
Else
txtSira = "tablo1.Kimlik"
Me.Komut1.Caption = "Rowsoruce dosya no"
End If
SqlSirala = " SELECT tablo1.Kimlik, tablo1.Kvadsoyad, tablo1.Kradsoyad, tablo1.Kiraay, tablo1.Odsek, tablo1.Herayın, " & _
" tablo1.Krbas, tablo1.KiraSon, tablo1.pesinat, tablo1.kimde, tablo1.DosyaNo, " & _
" [Kradsoyad] & '* ' & [KrTc] & '*' & [Kvadsoyad] & '*' & [KvTc] & '*' & [Kimde] AS Arama " & _
" FROM tablo1 " & _
" WHERE ((([Kradsoyad] & '* ' & [KrTc] & '*' & [Kvadsoyad] & '*' & [KvTc] & '*' & [Kimde]) Like '*' & [Forms]![giris]![gecici] & '*')) " & _
" ORDER BY " & txtSira
Me.Liste154.RowSource = SqlSirala
End Sub