arkadaşlar sürekli formda bilgileri stok adı yada stok kodu etiketine tıklayarak a-z aynı etikete tekrar tıklamam durumunda z-a şeklinde sıralatmak istiyorum
Merhaba,
Daha önceleri başka forumda yazmıştım buraya aynını aktarıyorum.
Forma iki tane label Ekliyoruz isimlerine de birine 5, diğerine 6 isimler koyuyoruz. ve bunların yazı karekterini Webdings yapıyoruz. ve formun Option Compare Database in altına aşağıdaki kodu yapıştırıyoruz. Yapıştırdıktan sonra istediğimiz textbox verisini sıralamak için; örneğin Adresler textbox verilerini sıralamak için Label1 (veya ne isim verilecekse) tıklandığında bölümüne Sırala label1 (veya ne isim konulduysa) yazıyoruz. labelin İm bölümüne de textbox ın adını (Adresler)yazıyoruz. bu kadar
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_SHIFT = &H10
Private Sub sirala(labelx As Label)
On Error Resume Next
Dim fieldx As String
fieldx = labelx.Tag
If ((OrderBy = fieldx) Or (GetKeyState(VK_SHIFT) < 0)) Then
'Shift tuşu basılı ise ters sırala.
OrderBy = fieldx & " DESC"
labelYonasc.Visible = False
labelYonDESC.Visible = True
labelYonDESC.Left = labelx.Left + labelx.Width - 60
labelYonDESC.Top = labelx.Top - 20
Else
OrderBy = fieldx
labelYonDESC.Visible = False
labelYonasc.Visible = True
labelYonasc.Left = labelx.Left + labelx.Width - 60
labelYonasc.Top = labelx.Top - 20
End If
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.