ترقيم لا يقبل أكثر من رقم 32267

أخي الكريم إذا سألت اسأل الجميع كلهم فيهم الخير والبركة

أخي الكريم بدل Integer إلى Long

ومافيه شئ في المثال يدل على ذلك

ودمت بود

Private Sub ReAutoNumber_Click()
	' 	XXXXXXX  Dim i As Integer
	Dim i As Long
	Dim co As Integer
	If IsNull(Num) Then
    	MsgBox "ÃÎí ÝÊì ÇáæÇÏí .. íÌÈ ÇÏÎÇá ÈÏÇíÉ ÇáÊÑÞíã", vbInformation + vbMsgBoxRight + vbOKOnly, "ÃäÊÈÜå"
    	Me.Num.SetFocus
    	Exit Sub
	End If
	'Else
	co = DCount("*", "[TABLE]")
	DoCmd.GoToRecord , , acFirst
	For i = Val(Num) To co + Val(Num) - 1
	txtid = Str(i)
	If i <> (co + Val(Num) - 1) Then
    	DoCmd.GoToRecord , , acNext
	End If
	Next
	MsgBox "ÃÎí ÝÊì ÇáæÇÏí ... Êã ÅÚÇÏÉ ÇáÊÑÞíã ÈäÌÇÍ"
End Sub

فرج الله عليك وعلينا وعلى جميع المكروبين يا أخي مفرج.

لا ينقطع الخير من أمة سيدنا محمد إلى يوم الدين.

أخي في الله لقد نفذت أمرك ولكن ما زال الحال على ما هو عليه. ويمكنك أن تجرب إدخال رقم مثلا رقم: 99999999

maimouni كتب:

فرج الله عليك وعلينا وعلى جميع المكروبين يا أخي مفرج.

لا ينقطع الخير من أمة سيدنا محمد إلى يوم الدين.

أخي في الله لقد نفذت أمرك ولكن ما زال الحال على ما هو عليه. ويمكنك أن تجرب إدخال رقم مثلا رقم: 99999999

مفيش مشكلة في ادخال الرقم 99999999

وشوف بنفسك

بالتوفيق ان شاء الله

ReAutoNumber.rar

أولا قم بتغير حجم الحقل الى مزدوج في الجدول .

ثم أذهب الى الكود الذي كتبه الاخ مفرج . واستبدل القيمة integer الى Double

تحياتي

ReAutoNumber.rar