[sher]

اريد كود لترقيم text تلقائي دون ان استخدام الترقيم التلقائي في اكسس ولكم جزيل الشكر 

اريد الكود ان يبدا من 1 الى ................الخ

[Amir_Alzubidy]

PHP كود :

Sub LOAD_No_AUTO()
On Error Resume Next: Err.Clear
If Rs.State = 1 Then pt.Close
Rs.Open "Select TOP 1 ID From Tbl_Name Order By ID DESC", db, adOpenStatic, adLockOptimistic
If Rs.RecordCount <= 0 Then
   If Rs.State = 1 Then Rs.Close
   Text1.Text = "1"
   Exit Sub
End If

Rs.MoveFirst
Text1.Text = Rs!ID + 1
If Rs.State = 1 Then Rs.Close
End Sub 


جزا الله من كتب هذا الكود عنا خير الجزاء 
ادع الله من كل قلبي ان يحفظه اينما كان 


مثال : 

  AUTO_No.rar (الحجم : 19.84 ك ب / التحميلات : 99)