نداء الى الاخ فتى الوادي

شكرا اخي فتى الوادي على تواصلك معي,,

ولكن لدي بعض التساؤلات في الكود التالي الذي كتبته لي :

كود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

وهو الما ترمز الحقول التالية :

TXT1,TXT2,TXTID,T_DATA,TXT_NUM,TXT_DATE2,TXT_DATE2,F_DATA

واين يتم كتابه هذا الكود,,,ولك مني دزيل الشكر والتقدير