قم بالخطوات التالية :
1- إنشيء جدولا وليكن جدول 1 وبه الحقول التالية
رقم - الاسم
2- إنشء نموذج مبنى على هذا الجدول
3- من الخصائص للحقل رقم وفى صفحة التنسيق ضع الكود التالي فى خاصية القيمة الافتراضية
=DMax("رقم";"جدول1")+1
يفضل فى خاصية علامة جدولة من صفحة غير ذلك من الخصائص أن تضعها لا وحتى تتخطى هذا الحقل فى الإدخال .
أشرف خليل :) :)
طريقة جيدة للترقيم التلقائي .
خاصية القيمة الافتراضية في صفحة التبويب بيانات .
لكن يبدو أخ أشرف أنك لم تجرب الطريقة والجدول فارغ من السجلات ;)
وإلا لن يظهر ترقيم ، وقد عدلت في الكود كالتالي :
=IIf(IsNumeric(DMax("رقم";"جدول1")+1)=خطأ;1;DMax("رقم";"جدول1")+1)
مع وضع خاصية مؤمن إلى نعم .
وللجميع تحياتي
الأخ أشرف وأبوحمود
تحياتي لنجمي هذا المنتدى
حال أخر لمشكلة الترقيم في جدول فارغ
=nz(DMax("[حقل الترقيم التلقائي]";"[lسم الجدولl]"))+1نعم هذا أفضل حل .
شكراً لك .
ولك تحياتي
فعلا حل ممتاز وبسيط ويتميز هذا الترقيم بأنك تستطيع إدخال الرقم المحذوف مرة أخرى .
أشرف خليل
أيضاً
يمكن أن تجعل الرقم يبدأ مثلا بـ 1000 أو أي رقم تكتبة في حقل الأرقام
ثم يقوم الكود بالترقيم التلقائي
ولكن هناك مشكلة بسيطة
أن الرقم المحذف يرجع عندما تغلق النموذج ولا يسبقة رقم آخر
هذا الموضوع مغلق.