[Ahmed_Mansoor]

أهلا أخي الكريم , عدل إسم الجدول بإسم الجدول الذي تستخدمه , وأيضا عدل إسم المتغير الذي يتصل بقاعدة البيانات , ثم ضع هذه الكود تحت كود الحفظ مباشرة :

كود :

If RS.State = 1 Then RS.Close
RS.Open "select MAX(NN) as zMax From Table1", DB, adOpenKeyset, adLockOptimistic
If RS.RecordCount > 0 Then
  If Not IsNull(RS![zMax]) Then MsgBox RS![zMax]: Label1.Caption = RS![zMax] Else Label1.Caption = ""
Else
  Label1.Caption = ""
End If
If RS.State = 1 Then RS.Close