مطلوب عمل تصفية حسب الرقم تلقائياً في النموذج بمجرد فتحه

اخي / sweety78

السلام عليكم

بامكانك تغيير مصدر النموذج من الجدول الى جملة الاستعلام ادناه

SELECT Table1.[No], Table1.Name, * FROM Table1 ORDER BY Table1.[No];

ثم في حدث بعد التحديث لمربع النص الخاص بحقل الرقم تعمل اعادة تهيئة للنموذج كما يلي

Me.Requery

بذلك سوف يتم الترتيب تلقائياً بمجرد ادخال الرقم الجديد او حتى عند تحديث رقم سابق وايضاً بامكانك وضع هذا الكود في حدث عند الفتح للنموذج ان اردت .. ولك الاختيار

بالتوفيق

db1.rar

بارك الله فيك يا أخي الغالي يوسف

اخي / sweety78

واذا اردت ان تفعل ذلك بدون تغيير مصدر النموذج الي استعلام بدل من الجدول فضع هذا الكود في حدث عند تحميل النموذج

Private Sub Form_Load()
Me.OrderBy = "NO ASC"
Me.OrderByOn = True
End Sub

واذا اردت ايضا ان تتحكم في وضع الاسماء المسجلة لديك داخل النموذج يدويا من حيث ترتيبها تصاعديا او تنازليا من خلال زر أمر ( للفرز التصاعدي) وزر آخر للفرز التنازلي

فضع هذا الكود تحت زر أمر الفرز التصاعدي علي النموذج

Private Sub Command5_Click()
Me.OrderBy = "NO ASC"
Me.OrderByOn = True
End Sub

وضع هذا الكود تحت زر أمر الفرز التنازلي علي النموذج

Private Sub Command6_Click()
Me.OrderBy = "NO DESC"
Me.OrderByOn = True
End Sub

مرفق الملف بعد التعديل

Z_db1_UP.rar

شكراً للإخوة الأفاضل:

يوسف أحمد

محمد فؤاد تركي

لقد قمت باللازم

تحياااتي