AccessTr.neT
Formdaki Listedeki Verileri Kod İle Sıralamak - Baskı Önizleme

+- 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ığı: Formdaki Listedeki Verileri Kod İle Sıralamak (/konu-formdaki-listedeki-verileri-kod-ile-siralamak.html)

Sayfalar: 1 2 3

RE: Formdaki Listedeki Verileri Kod İle Sıralamak - feraz - 18/07/2020

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


RE: Formdaki Listedeki Verileri Kod İle Sıralamak - yahzee_61 - 18/07/2020

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

RE: Formdaki Listedeki Verileri Kod İle Sıralamak - yahzee_61 - 18/07/2020

herkese çok teşekkürler. farklı farlı tarzda güzel yöntemler çıktı teşekkür ederim.

RE: Formdaki Listedeki Verileri Kod İle Sıralamak - feraz - 18/07/2020

Üstad bizim kodlarda çalışıyor eğer denediyseniz tabii.

RE: Formdaki Listedeki Verileri Kod İle Sıralamak - yahzee_61 - 18/07/2020

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

RE: Formdaki Listedeki Verileri Kod İle Sıralamak - feraz - 18/07/2020

Rica ederiz,kolay gelsin.