'انسخ هذا في وحدة عامة
Public Function NewcatID() As Long
On Error GoTo NewcatID_Err
Dim GORID As Long
Dim DELID As Long
Dim tmax As Long
GORID = Nz(DMax("[catid]", "CATEGORIES"))
DELID = Nz(DMax("[catid]", "DELCAT"))
tmax = GORID
If DELID > tmax Then tmax = DELID
tmax = tmax + 1
NewcatID = tmax
Exit_NewcatID:
Exit Function
NewcatID_Err:
MsgBox "Error " & Err & ": " & Error$
Resume Exit_NewcatID
End Function
'وفي حدث النقر على زر جديد الصق هذا ينطبق على النموذجين
DoCmd.GoToRecord , , acNewRec
Me![catID] = NewcatID()