+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Buton İle Liste Kutusunda Farklı Alanları Sıralama (/konu-buton-ile-liste-kutusunda-farkli-alanlari-siralama.html)
Sayfalar:
1
2
Buton İle Liste Kutusunda Farklı Alanları Sıralama - zaferlacin - 18/10/2019
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
Cvp: Rowsource - berduş - 18/10/2019
sıraNo hangi alan? kimlik mi?
Cvp: Rowsource - zaferlacin - 18/10/2019
(18/10/2019, 23:42)berduş yazdı: sıraNo hangi alan? kimlik mi?Evet
Cvp: Rowsource - berduş - 18/10/2019
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 SubCvp: Rowsource - berduş - 19/10/2019
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 SubCvp: Rowsource - zaferlacin - 19/10/2019
(19/10/2019, 00:07)berduş yazdı: tek komut düğmesi içinHocam ikisi de oldu ikisini de ayrı amaçlarda kullandım teşekkür ederim
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