AccessTr.neT

Tam Versiyon: Formdaki Listedeki Verileri Kod İle Sıralamak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
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.
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.
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
Sayfalar: 1 2 3