Skip to main content

AccessTr.neT


Buton İle Liste Kutusunda Farklı Alanları Sıralama

Buton İle Liste Kutusunda Farklı Alanları Sıralama

Çözüldü #1
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
.rar rowsource.rar (Dosya Boyutu: 96,1 KB | İndirme Sayısı: 5)
Cevapla
#2
sıraNo hangi alan? kimlik mi?
Cevapla
#3
(18/10/2019 23:42)berduş Adlı Kullanıcıdan Alıntı: sıraNo hangi alan? kimlik mi?
Evet
Cevapla
#4
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
Visual Basic Code
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
Visual Basic Code
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
Cevapla
#5
tek komut düğmesi için
sıralama 2 si arasında gidip gelir
Visual Basic Code
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
Cevapla
#6
(19/10/2019 00:07)berduş Adlı Kullanıcıdan Alıntı: tek komut düğmesi için
sıralama 2 si arasında gidip gelir
Visual Basic Code
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da