[Taha Okla]

قم بإضافة هذا الكود إلى برنامجك :

كود :

Private Sub Form_Load()
   Set db = OpenDatabase("compny.mdb")
   Set rs = db.OpenRecordset("tbl1")
   
   Text1.Text = NewNo
End Sub

Private Function NewNo() As String
   Dim db1 As DAO.Database, Rs1 As DAO.Recordset, nMax As New DAO.Field
   Set db1 = DBEngine.OpenDatabase("compny.mdb", False, False)
   Set Rs1 = db1.OpenRecordset("Select Max(IDnum) As nMax From tbl1")

   If Rs1!nMax <> "" Then
       NewNo = Rs1!nMax + 1
   Else
       NewNo = 1   ' على فرض أنها أول قيمة في أرقام الزبائن
   End If

   Rs1.Close
   db1.Close
End Function

وبعد كل اضافة لسجل جديد أضف هذا الكود :

كود :

 Text1.Text = NewNo

لتحصل على رقم جديد ..