Me.Liste154.RowSource = "SELECT
iki butonum var birisi ile sıra numarasına göre sıralatacağım diğeri ile dosya no ya göre sıralatacağım ama sıraladıktan sonra arama yapabileceğim
bir kaç denemem oldu ama çalışmıyor şimdiden teşekkürler
sıraNo hangi alan? kimlik mi?
dilerim işinize yarar
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
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
(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