برنامج صغير للرقم التلقائي وعطوني رايكم

السلام عليكم ...

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

If DCount("[txtnum]", "[t_data]") = 0 Then

Me.txtnum = 1

Else

Me.txtnum = DLast("[txtnum]", "[t_data]") + 1

End if

الشرح :

txtnum=حقل الرقم في الجدول والنموذج

t_data=اسم الجدول اللي فيه حقل الرقم

شرح الكود :

إذا كان حاصل جمع حقل الرقم الذي اسمه txtnum الذي في الجدول t_data يساوي صفر .. إذاً

أجعل حقل الرقم يساوي واحد

وإذا لم يكن يساوي صفر .. فأنظر آخر قيمة لحقل الرقم وأضف عليها واحد

***

أرجوا أن يكون الشرط واضح .

والسلام

مشكور حبيبي

والله الموفق

مشكور على المثال