Skip to main content

AccessTr.neT


Formdaki Listedeki Verileri Kod İle Sıralamak

Formdaki Listedeki Verileri Kod İle Sıralamak

Çözüldü #1
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
.rar sırala.rar (Dosya Boyutu: 23,82 KB | İndirme Sayısı: 4)
Cevapla
#2
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?
Cevapla
#3
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.
Cevapla
#4

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.

Son Düzenleme: 18/07/2020, 12:36, Düzenleyen: alicimri.
Cevapla
#5
Alternatif olsun.

Visual Basic Code
Option Compare Database




Visual Basic Code
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




Visual Basic Code
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




Visual Basic Code
Sub OrderByx(x)
    Liste_ürün.RowSource = "SELECT * FROM tblgelenmal ORDER BY " & x
End Sub

Cevapla
#6
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

Visual Basic Code
Me.OrderBy = "urun desc"
Me.OrderByOn = True

liste kutusu için önereceğim yöntem

Visual Basic Code
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

Visual Basic Code
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 Adlı Kullanıcıdan Alıntı: 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
Son Düzenleme: 18/07/2020, 13:17, Düzenleyen: berduş.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task