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

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?

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.

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

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

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