21/03/2011, 12:17
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.
ilginize ve bilginize şimdiden teşekkürler.
21/03/2011, 12:17
21/03/2011, 13:00
1. Komut butonunun (Komut18) tıklandığında olayına aşağıdaki kodu yaz.
Diğ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.
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.
21/03/2011, 14:51
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:
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 Sub21/03/2011, 14:56
Sn.sledgeab ve Sn.Seruz' a çok teşekkür ediyorum. problem çözüldü.
18/07/2020, 00:07
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
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
18/07/2020, 00:53
(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.