Formdaki Listedeki Verileri Kod İle Sıralamak

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, 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.