AccessTr.neT

Tam Versiyon: Form verilerini kod ile sıralamak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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 Sub

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.
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 Sub
Sn.sledgeab ve Sn.Seruz' a çok teşekkür ediyorum. problem çözüldü.
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
(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.