اهلا بك ...
بالمناسبة هناك طرق كثيرة للقيام بهذه المهمة ولكن خذ هذه على عجالة .... استخدمنا هذه الشيفرة ..... قم بالضغط على تسجيل جديد وسجل الكتب وأعلمنا بالنتيجة ...
Me.tafasel_alktab.Visible = True
Me.تسمية6.Visible = True
On Error Resume Next
Dim Db As DAO.Database
Dim Rc As DAO.Recordset
Dim ChequesFound
Dim ChequeNoStart As Long
Dim ChequeNoEnd As Long
Dim i As Long
Set Db = CurrentDb
Set Rc = Db.OpenRecordset("Barna")
Do While Not Rc.EOF
Rc.MoveNext
Loop
If Rc.RecordCount = 0 Then
rkm_alktab = Year(Date) & "\" & "001"
DoCmd.Requery
GoTo cmdDisplay_Exit
Else
DoCmd.GoToRecord , "", acNewRec
max_id = DMax("[Brojevtxti]", "barna") + 1
rkm_alktab = Year(Date) & "\" & Right(max_id, 3)
End If
cmdDisplay_Exit:
Set Rc = Nothing
Set Db = Nothing
تفضل ملفك ....
Database41.accdb