[ تمت الإجابة ]مساعدتي في الترقيم في النموذج

حسب ما فهمت فهذا الملف المرفق بعد التعديل عليه

_______.rar

تفضل اخي الكريم

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

كل ما عليك الأن ادخال البيانات بشكل عادي وسيتم الترقيم تلقائيا بدون تدخل منك حيث ان الترقيم خاضع للكود بهذه الطريقة وليس حقل ترقيم تلقائي لأنه لا ينفع في هذه الحالة

يوضع هذا الكود في حدث قبل الإدراج

Private Sub Form_BeforeInsert(Cancel As Integer)
	Me!id = Nz(DMax("[ID]", "[tbal_1]"), 0) + 1
End Sub

بقيت لدينا مشكلة اعادة الترقيم في حالة حذف احد السجلات سواء من البداية او الوسط او الأخير لهذا نضع في حدث عند الحذف الكود التالي

Private Sub أمر7_Click()
On Error GoTo Err_أمر7_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Dim I As Integer
Dim co As Integer
Dim msg As Variant
co = DCount("*", "[tbal_1]")
DoCmd.GoToRecord , , acFirst
For I = Val(txtCount) To co + Val(txtCount) - 1
id = Str(I)
If I <> (co + Val(txtCount) - 1) Then
DoCmd.GoToRecord , , acNext
End If

Next

Exit_أمر7_Click:
	Exit Sub

Err_أمر7_Click:
	MsgBox Err.Description
	Resume Exit_أمر7_Click

End Sub

نلاحظ في الكود وجود عنصر مربع نص خاص بوضع قيمه افتراضية له وهي رقم 1 وستجده بإسم txtCount ولكنه مخفي ولا نحتاج الى ظهوره مهمته فقط تثبيت الرقم الأول لكي يبدأ الترقيم من الرقم واحد

الآن المشكلة انحلت فبمجرد ان تقوم بحذف اي سجل سيتم اعادة الترقيم التلقائي التسلسلي في النموذج والجدول حتى لو حذفت 100 سجل من اي مكان من النموذج سيتم اعادة ترتيب الترقيم للسجلات اعتبارا من رقم 1 بالتسلسل حتى اخر الأرقام

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

nas_ksa.rar

السلام عليكم ورحمة الله وبركاته

الف شكر لكم على هذه الردود التي لم استغربها منكم في هذا المنتدى المعطاء

وفقكم الله وبارك الله فيكم

تقبلوا تحياتي

اخوكم / بومحمد

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة