فرز في النموذج

وعليكم السلام

اصنع نموذج مرتبط بجدول او استعلام ، واجعل خاصية العرض الافتراضية للنموذج على شكل نماذج مستمرة وضع ازراراً  بدل الليبل بحيث يؤدي الزر وظيفة اسم العمود وعند الضغط عليه يقوم الكود بتحويل ترتيب البيانات المعروضة الى تصاعدي او تنازلي وفق ذلك العمود وبحسب الكود التالي ، وفي هذا الكود نفترض انك تتعامل مع تاريخ الميلاد dob

date of birth

If Me.OrderBy = "dob" Then
Me.OrderBy = "dob desc"
Else
Me.OrderBy = "dob"
End If
Me.OrderByOn = True

هذا الكود من شأنه ان يبدل ترتيب البيانات مرة تصاعدي ومرة تنازلي كلما ضغطت على الزر الذي كما قلنا سيكون في اعلى العمود بدل الليبل لؤدي وظيفة جمالية كأسم للعمود وفي نفس الوقت وسيلة لتبديل الترتيب وهكذا بالنسبة لباقي الاعمدة لكل عمود زر وفي داخل الزر نفس الكود مع فارق استبدال كلمة dob باسم الحقل في الجدول.

شكرا على الرد