Formdaki Listedeki Verileri Kod İle Sıralamak

1 2 3
18/07/2020, 13:20

feraz

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 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, 13:31

yahzee_61

(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.
18/07/2020, 13:38

yahzee_61

herkese çok teşekkürler. farklı farlı tarzda güzel yöntemler çıktı teşekkür ederim.
18/07/2020, 13:38

feraz

Üstad bizim kodlarda çalışıyor eğer denediyseniz tabii.
18/07/2020, 13:55

yahzee_61

(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.
18/07/2020, 14:01

feraz

Rica ederiz,kolay gelsin.
1 2 3