imadeco قام بنشر مايو 22, 2008 قام بنشر مايو 22, 2008 (معدل) بسم الله الرحمن الرحيمالسلام عليكماريد عمل زر الترتيب بدون استعمال هتهوشكرا على المساعدة تم تعديل مايو 22, 2008 بواسطه imadeco
Bluemind قام بنشر مايو 22, 2008 قام بنشر مايو 22, 2008 (معدل) اخوي انسخ الكود التالي وضعه في وحده نمطيه و احفظها كود 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 بواسطه أبا عمر
قصي قام بنشر مايو 23, 2008 قام بنشر مايو 23, 2008 جزاك الله خيرا ممكن تضع هذا الكود في ملف ... ليكون عونا
أفضل إجابة Bluemind قام بنشر مايو 23, 2008 أفضل إجابة قام بنشر مايو 23, 2008 تفضل اخوي هذا مثال في المرفق Sort.rar
قصي قام بنشر مايو 23, 2008 قام بنشر مايو 23, 2008 تفضل اخوي هذا مثال في المرفق جزاك الله كل خير اخي في الله هذا الملف الطيب ... اشرح لنا كل خطوة للوصول الى هذا الناتج المفيد وسامحني على الطلب
Bluemind قام بنشر مايو 23, 2008 قام بنشر مايو 23, 2008 تفضل اخوي هذا مثال في المرفق جزاك الله كل خير اخي في الله هذا الملف الطيب ... اشرح لنا كل خطوة للوصول الى هذا الناتج المفيد وسامحني على الطلب اخوي شوف المشاركه فوق سبق و ان شرحت المثال اذا عندك سؤال معين غير مفهوم اسأل!!! و انا احاول الاجابه عليه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.