(19/10/2019, 00:07)berduş yazdı: tek komut düğmesi için
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

Hocam ikisi de oldu ikisini de ayrı amaçlarda kullandım teşekkür ederim