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


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

merhabalar ben liste kutusundaki verileri komut düğmesi ile sıralamak istiyorum bununla ilgili bir kod yazılmış fakat hata veriyor buna bakma şansımız var mı? teşekkürler.

Private Sub SiralaAZ_Click()

Dim response As Integer

response = OrderBy("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 = OrderBy("urun", "desc")

Me!SiralaAZ.Visible = True

Me!SiralaAZ.SetFocus

Me!SiralaZA.Visible = False

Me!Liste_ürün.SetFocus
End Sub


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

eğer form bir tablo ile ilişkiliyse
Me.OrderBy = "[AlanAdi] Asc" şeklinde kullanılabiliyor ama bu şekilde kullanıldığına daha önce hiç rastlamadım.
OrderBy'ı kullandığınız kodu nerden aldınız?


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

kodu order by araştırırken buldum uygulamaya çalıştım. bu arada sizin kodu denedim sıralama çalışmadı. liste içinde sorgu alanının ismini yazıyorum. ilginize tşk.


Re: Formdaki Listedeki Verileri Kod İle Sıralamak - alicimri - 18/07/2020

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 

Yukardaki kodu deneyin bir adette Tablodaki sıralanışa uygun listelemek için bir düğmeye kod yazdım.


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

Alternatif olsun.

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)
    Liste_ürün.RowSource = "SELECT * FROM tblgelenmal ORDER BY " & x
End Sub



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

bahsettiğim kod eğer form bir tablo işe ilişkili ise geçerli
mesela aşağıdaki kod form tabloyla ilişkilendirdiğimde çalışıyor
Me.OrderBy = "urun desc"
Me.OrderByOn = True
liste kutusu için önereceğim yöntem
Private Sub SiralaAZ_Click()
Dim LstBx, LstBxOrder As String
LstBx = "SELECT tblgelenmal.id, tblgelenmal.urun, tblgelenmal.gelisadet, tblgelenmal.gelisfiyati, tblgelenmal.gelistarihi, tblgelenmal.satisadet, tblgelenmal.satisfiyati " & _
"FROM tblgelenmal "
LstBxOrder = "ORDER BY tblgelenmal.urun; "

Liste_ürün.RowSource = LstBx & LstBxOrder

End Sub
Private Sub SiralaZA_Click()
Dim LstBx, LstBxOrder As String
LstBx = "SELECT tblgelenmal.id, tblgelenmal.urun, tblgelenmal.gelisadet, tblgelenmal.gelisfiyati, tblgelenmal.gelistarihi, tblgelenmal.satisadet, tblgelenmal.satisfiyati " & _
"FROM tblgelenmal "
LstBxOrder = "ORDER BY tblgelenmal.urun desc; "

Liste_ürün.RowSource = LstBx & LstBxOrder
End Sub

LstBxOrder değerini alana ve sıralamaya göre değiştirebilirsiniz

(18/07/2020, 12:04)yahzee_61 yazdı: kodu order by araştırırken buldum uygulamaya çalıştım. bu arada sizin kodu denedim sıralama çalışmadı. liste içinde sorgu alanının ismini yazıyorum.
isterseniz bahsettiğiniz çalışmayı ekleyin inceleyelim