Skip to main content

AccessTr.neT


Form verilerini kod ile sıralamak

ondercesmeci
ondercesmeci
5
2748

Form verilerini kod ile sıralamak

Çözüldü #1
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.
.rar sırala.rar (Dosya Boyutu: 16,23 KB | İndirme Sayısı: 17)
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
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
.zip Kitap_Listesi.zip (Dosya Boyutu: 18,98 KB | İndirme Sayısı: 25)
.zip Sirala_Seruz.zip (Dosya Boyutu: 15,89 KB | İndirme Sayısı: 21)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #4
Sn.sledgeab ve Sn.Seruz' a çok teşekkür ediyorum. problem çözüldü.
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Son Düzenleme: 21/03/2011, 15:24, Düzenleyen: ondercesmeci.
Cevapla
#5
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
Cevapla
#6
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da