aslında bence tek buton da yeterli olabilirdi
caption değişince sıra no ve dosya no arasında gidip gelirdi
Private Sub Komut1_Click()
Dim SqlSirala, txtSira As String
'Sıra no: kimlik
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 tablo1.Kimlik;"
Me.Liste154.RowSource = SqlSirala
End Sub
Private Sub Komut132_Click()
'ORDER BY tablo1.DosyaNo;
Dim SqlSirala, txtSira As String
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 tablo1.DosyaNo;"
Me.Liste154.RowSource = SqlSirala
End Sub