Siralama

[okotan]

herkese merhaba

 

[okotan]

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

yardımlarınız ricasıyla

 

[cuneyta]

Formda verileri Sıralama A-Z veya Z-A gibi

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

OrderByOn = True

End Sub



istediğinle ilgili örnek ilişikte

selamlar..

 

[okotan]

m&#252;kemmel

s&#305;ralamayla ilgili debelenip duruyordum
yard&#305;m&#305;n i&#231;in &#231;ok te&#351;ekk&#252;r ederim

 

[yeni54]

süper. tam arşivlik bir örnek olmuş.

cüneyta, sende daha ne cevherler kimbilir

 

[assenucler]

cuneyta,

Bir insan ancak bu kadar payla&#351;&#305;mc&#305; olabilir. Sevgi ve sayg&#305;lar&#305;m&#305; sunar&#305;m.