كيف يتم تحديد بداية الرقم التسلسلي ونهايته

السلام عليكم

اخي الكريم فتي الوادي

تم استخدام Dcount=0 لتحديد عندما لا يكون هناك سجلات بالجدول

ثم Dlookup Max للبحث ثعن اعلي قيمة ثم اضافة 1

بالله التوفيق

db4.rar

بارك الله فيك اخي احمد على هذا المثال والطريقة الحميلة

ونظيف ايضا حل اخر وهو

1. نقوم بإنشاء مربع نص جديد غير منضم ونسميه مثلا XCOUNT ونضع في مصدر التحكم الخاص به هذه العبارة

=Count([TXT1])

ثم نجعل مربع النص هذا مخفي

ووظيفة مربع النص هذا هو القيام بعمل عداد للسجلات بناء على اي حقل نختاره في مثالنا هذا اخترنا الحقل TXT1

2. يوجد لدينا في النموذج مربع نص غير منضم وهو txtTO ويمثل " الى " ونضع مصدر التحكم له 5= مثلا وهي عدد السجلات الغير مسموح بتجاوزها ويمكنك زيادتها الى اي عدد تريد ان لا تسمح للبرنامج بعدها ان يضيف سجلات زياده

3. نجعل مربع النص هذا غير ممكن اي لايمكن العبث به او تغييره

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.XCOUNT >= Me.txtTo Then
MsgBox "اخي الفاضل فتى الوادي .. وصلت لآخر رقم وهو	  " & txtTo, vbOKOnly + vbInformation, "اخر الأرقام"
Me.Undo
End If
DoCmd.GoToRecord , , acLast
End Sub

شرح الكود

في حدث قبل التحديث للنموذج نضع الشرط ان العداد وهو مربع النص المخفي XCOUNT الذي قمنا بإنشاءه لا يمكن ان يكون اكبر من العدد الموضوع في مربع النص المؤمن txtTO

واذا حدث خلاف ذلك تظهر رسالة تفيد بذلك ثم يتم الغاء الاجراء وينتقل السجل الى اخر سجل تم تحريره

وهذا مثالك بعد التعديل

COUNTER.rar

اختكم

زهره

الله يجزاكم خير الجزاء ويغفر لي ولكم .....

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

كان المقصد من الرقم التسلسلي ( رقم تلقائي ) يصرف بين الرقمين ( من وإلى )

السلام عليكم

شكرا علي مرورك اختنا زهرة المنتدي ودايما افكرك جديدة وجميلة

اخي فتي الوادي بارك الله فيك وفى افكار الاسئلة الجميلة

بالله التوفيق