من يساعدني في هذا البرنامج

السلام عليكم ...

أطلعت على المثال المرفق ... وإليك بعض النصائح :

1- غير اسم الجدول واسماء الحقول إلى مسميات أنجليزية فهي أفضل عند كتابة الكود

2- استخدمت هذا الكود :

Dim txt1
Dim txt2
If IsNull(DLookup("[txtid]", "t_data")) Then Exit Sub
txt1 = DLast("[txtdate2]", "t_data", "[txtnum]=[forms]![f_data]![txtnum]")
txt2 = DLast("[txtid]", "t_data", "[txtnum]=[forms]![f_data]![txtnum]")
If Me![txtdate1] <= txt1 Then
If MsgBox("القاعة : " & [txt2] & vbCrLf & _
 vbCrLf & " مجوزة  " & vbCrLf & _
vbCrLf & vbCrLf & " أضغط نعم للألغاء ... أضغط لا للأستمرار ", vbQuestion _
+ vbMsgBoxRtlReading + vbMsgBoxRight + vbYesNo) = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl ("[txtid]")

Else
End If
End If