(تمت الفائدة) عملية فرز تصاعدية وتنازلية من خلال زر واحد

[هاوي الأكسس]

ا

السلام عليكم ورحمة الله

 

الأخوة الأعزاء

 

أحاول عمل زر من نوع (Toggle Button) أريده أن ينفذ في الضغطة الأولى عملية فرز تنازلي وفي الضغطة الثانية عملية فرز تصاعدي

 

استخدمت الكود التالي

 

Private Sub TabItemName_Label_Click()

If [TabItemName_Label] = -1 Then

    Me.OrderBy = TabItemName & " DESC"
    Me.OrderByOn = True

Else

    Me.OrderBy = TabItemName
    Me.OrderByOn = True

End If

End Sub

 

أصبح الزر يعمل فقط في الضغطة الأولى وينفذ فرز تنازلي

وفي الضغطة الثانية يرجع الفرز لوضعه الطبيعي بدون فرز تصاعدي !

 

هل بالإمكان المساعدة في جعله ينفذ فرز تصاعدي في الضغطة الثانية ؟

 

 

[Bluemind]

السلام عليكم

الرجاء إرفاق مثالك ليتم التعديل عليه

[هاوي الأكسس]

شكرا لاهتمامك أخي الكريم

ومعذرة لعدم ارسال مثال

فقد توقعت أنه مجرد كود بسيط !

 

على كل حال  لقد توصلت لحل المشكلة بتعديل بسيط في الكود وهو كالتالي :

 

Private Sub TabItemName_Label_Click()
If [TabItemName_Label] = -1 Then
    Me.OrderBy = "[TabItemName]" & " DESC"
    Me.OrderByOn = True
Else
    Me.OrderBy = "[TabItemName]"
    Me.OrderByOn = True
End If
End Sub

 

تقبل تقديري

تم تعديل مارس 1, 2013 بواسطه هاوي الأكسس

[أبو آدم]

تمت الفائدة ... نشكر لك متابعتك وتوضيح ما توصلت اليه .

 

 

...........