اريد عمل زر الترتيب

[imadeco]

بسم الله الرحمن الرحيم
السلام عليكم
اريد عمل زر الترتيب بدون استعمال هته


وشكرا على المساعدة

تم تعديل مايو 22, 2008 بواسطه imadeco

[osama ababneh]

اخي العزيز يرجى توضيح طلبك اكثر قليلا

[imadeco]

اريد عمل زر له نفس وضبفة لي في الصورة

[Bluemind]

اخوي

انسخ الكود التالي وضعه في وحده نمطيه و احفظها

كود

Function SortForm(frm As Form, ByVal sOrderBy As String) As Boolean
    If Len(sOrderBy) > 0 Then
             If frm.OrderByOn And (frm.OrderBy = sOrderBy) Then
            sOrderBy = sOrderBy & " DESC"
        End If
        frm.OrderBy = sOrderBy
        frm.OrderByOn = True
    End If
End Function

بعدين انشأ زر امر و في حدث عند النقر او On Click ضع الكود التالي مع تغير اسم الحقل الذي تريدان تستخدمه في عمليه الترتيب

كود

  =SortForm([Form], "[اسم الحقل]")

طبعا اذا كان اسم الحقل مكون من كلمتين بينهم مسافه فا ضعه بين قوسين [ ]

تم تعديل أبريل 10, 2014 بواسطه أبا عمر

[قصي]

جزاك الله خيرا

ممكن تضع هذا الكود في ملف ... ليكون عونا

[Bluemind]

تفضل اخوي

هذا مثال في المرفق

Sort.rar

[قصي]

تفضل اخوي

هذا مثال في المرفق

جزاك الله كل خير

اخي في الله

هذا الملف الطيب ... اشرح لنا كل خطوة للوصول الى هذا الناتج المفيد

وسامحني على الطلب

[Bluemind]

تفضل اخوي

هذا مثال في المرفق

جزاك الله كل خير

اخي في الله

هذا الملف الطيب ... اشرح لنا كل خطوة للوصول الى هذا الناتج المفيد

وسامحني على الطلب

اخوي

شوف المشاركه فوق

سبق و ان شرحت المثال

اذا عندك سؤال معين غير مفهوم اسأل!!! و انا احاول الاجابه عليه

[أبا عمر]

ينقل 

.......