+- 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ığı: Form verilerini kod ile sıralamak (/konu-form-verilerini-kod-ile-siralamak.html)
Form verilerini kod ile sıralamak - ondercesmeci - 21/03/2011
arkadaşlar form verilerini kod ile sıralamaya çalışıyorum. birde bu konu ile ilgili örnek gönderiyorum.
ilginize ve bilginize şimdiden teşekkürler.
Cvp: Form verilerini kod ile sıralamak - ozanakkaya - 21/03/2011
1. Komut butonunun (Komut18) tıklandığında olayına aşağıdaki kodu yaz.
Private Sub Komut18_Click()
If Me.Komut18.Caption = "ARTAN" Then
Form.RecordSource = "SELECT tblgelenmal.id, tblgelenmal.urun, tblgelenmal.gelisadet, tblgelenmal.gelisfiyati, tblgelenmal.gelistarihi, tblgelenmal.satisadet, tblgelenmal.satisfiyati FROM tblgelenmal WHERE (((tblgelenmal.gelisadet)<>[satisadet])) ORDER BY tblgelenmal.urun;"
Me.Komut18.Caption = "AZALAN"
Else
Form.RecordSource = "SELECT tblgelenmal.id, tblgelenmal.urun, tblgelenmal.gelisadet, tblgelenmal.gelisfiyati, tblgelenmal.gelistarihi, tblgelenmal.satisadet, tblgelenmal.satisfiyati FROM tblgelenmal WHERE (((tblgelenmal.gelisadet)<>[satisadet])) ORDER BY tblgelenmal.urun DESC;"
Me.Komut18.Caption = "ARTAN"
End If
End SubDiğer butonlara da sıralanacak alana göre Sql kodunu değiştirmen gerekli.
sıralanacak alana göre koddaki ORDER BY tblgelenmal.urun; kısmındaki urun değişecek.
Cvp: Form verilerini kod ile sıralamak - Seruz - 21/03/2011
Sn. sledgeab'ın çözümü haricinde farklı bir teknik ile,
sıralama ve filtreleme ile ilgili çok sevdiğim bir örneği ekte bulabilirsiniz.
Kaynak (12.Konu): http://bilgiteknoloji.net/access/
Biraz kod bilginiz varsa basitçe kendinize uyarlayabilirsiniz.
Ben sadece sizin istediğiniz kadar olanı uyguladım örneğinize.
Örneğin ürün sıralama için yazılan kod:
Private Sub Komut18_Click()
OrderBy = "urun"
OrderByOn = True
End SubCvp: Form verilerini kod ile sıralamak - ondercesmeci - 21/03/2011
Sn.sledgeab ve Sn.Seruz' a çok teşekkür ediyorum. problem çözüldü.
RE: Form verilerini kod ile sıralamak - yahzee_61 - 18/07/2020
merhaba arkadaşlar verilenler ile işlem yapılabiliniliyor. fakat 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: Form verilerini kod ile sıralamak - berduş - 18/07/2020
(18/07/2020, 00:07)yahzee_61 yazdı: merhaba arkadaşlar verilenler ile işlem yapılabiliniliyor. fakat 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ı?yeni konu açarak çalışmanızı eklerseniz yardımcı olmaya çalışırız.
kolay gelsin.