اسف اخي... حيث لم اتمكن من متابعة الموضوع لسفري الحقل ليس ترقيم تلقائي انا غلطان اسف لانه مربوط بتاريخ السنه يعني كل سنه يبدا برقم جديد وليك الكود
Function aut_no(table_name, fld1_name, FLD2_NAME, fld2_val) As Long
On Error GoTo err1
'***************************************************
Dim NO1
If fld2_val = 0 Then
NO1 = DMax(fld1_name, table_name)
Else
NO1 = DMax(fld1_name, table_name, FLD2_NAME & fld2_val)
End If
If IsNull(NO1) Or IsEmpty(NO1) Then NO1 = 1 Else NO1 = NO1 + 1
aut_no = NO1
'***************************************************
err1:
Exit Function
End Function