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