الترقيم التلقائي

[أبو أحمد]

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

جزاكم الله خيرا وزادكم علما 

لدي سؤال هل يمكن جعل الترقيم التلقائي في النموذج لا يزيد عن رقم معين وليكن 10000 بحييث لا يسمح بتسجيل أي سجل بعد ذلك

وجزاكم الله خيرا

[Shivan Rekany]

في ١٨‏/٣‏/٢٠١٧ at 16:58, عادل صباح said:

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

جزاكم الله خيرا وزادكم علما 

لدي سؤال هل يمكن جعل الترقيم التلقائي في النموذج لا يزيد عن رقم معين وليكن 10000 بحييث لا يسمح بتسجيل أي سجل بعد ذلك

وجزاكم الله خيرا

نعم

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

Private Sub Form_Current()
Dim r As Integer
r = DMax("id", "table1")
If r >= 10000 Then
Me.AllowAdditions = False
End If
End Sub

غير ID الى اسم رقم تلقائي لديك
غير Table1 الى اسم جدول اللي هو مصدر النموذج

تحياتي