AccessTr.neT

Tam Versiyon: Formdaki Listedeki Verileri Kod İle Sıralamak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Yada alttaki gibi.

Option Compare Database

Private Sub SiralaAZ_Click()
    Call OrderByx("urun", "asc")
    Me!SiralaZA.Visible = True
    Me!SiralaZA.SetFocus
    Me!SiralaAZ.Visible = False
    Me!Liste_ürün.SetFocus
End Sub

Private Sub SiralaZA_Click()
    Call OrderByx("urun", "desc")
    Me!SiralaAZ.Visible = True
    Me!SiralaAZ.SetFocus
    Me!SiralaZA.Visible = False
    Me!Liste_ürün.SetFocus
End Sub

Sub OrderByx(x, y)
    Liste_ürün.RowSource = "SELECT * FROM tblgelenmal ORDER BY " & x & "" & " " & y
End Sub

Yada böyle Img-grin OrderBy in sonuna x koydum çünkü hata veriyordu heralde  
ORDER BY ile çakışıyor ve hataya sebep veriyordu.




Option Compare Database

Private Sub SiralaAZ_Click()
    Dim response As Integer
    response = OrderByx("urun", "asc")
    Me!SiralaZA.Visible = True
    Me!SiralaZA.SetFocus
    Me!SiralaAZ.Visible = False
    Me!Liste_ürün.SetFocus
End Sub

Private Sub SiralaZA_Click()
    Dim response As Integer
    response = OrderByx("urun", "desc")
    Me!SiralaAZ.Visible = True
    Me!SiralaAZ.SetFocus
    Me!SiralaZA.Visible = False
    Me!Liste_ürün.SetFocus
End Sub

Function OrderByx(x, y) As Integer
    Liste_ürün.RowSource = "SELECT * FROM tblgelenmal ORDER BY " & x & "" & " " & y
End Function
(18/07/2020, 12:32)alicimri yazdı: [ -> ]
PHP Kod:
Option Compare Database

Private Sub SiralaAZ_Click()
Liste_ürün.RowSource "SELECT* FROM tblgelenmal ORDER BY tblgelenmal.urun;"
End Sub

Private Sub SiralaZA_Click()
Liste_ürün.RowSource "SELECT* FROM tblgelenmal ORDER BY tblgelenmal.urun DESC;"

End Sub
Private Sub Komut2_Click()
  Liste_ürün.RowSource "SELECT* FROM tblgelenmal;"
  
End Sub 
ilginiz için teşekkürler bu kod çalıştı ve kullanmaya başladım.
herkese çok teşekkürler. farklı farlı tarzda güzel yöntemler çıktı teşekkür ederim.
Üstad bizim kodlarda çalışıyor eğer denediyseniz tabii.
(18/07/2020, 13:38)yahzee_61 yazdı: [ -> ]herkese çok teşekkürler. farklı farlı tarzda güzel yöntemler çıktı teşekkür ederim.
dediğim gibi farklı tarzda güzel olaylar oldu. tşk kodlar çalışıyor.
Rica ederiz,kolay gelsin.
Sayfalar: 1 2 3