On Error Resume Next
Dim R As String
R = Forms![بحث عن سند إيرادات]![تابع132]![رقم السند].Value
If DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = False Then
MsgBox "ليس لديك صلاحيه بالتعديل"
ElseIf DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = True And R > 1 Then
DoCmd.OpenForm "تعديل سند إيرادات", acNormal, , "[رقم السند]=" & R
Else
MsgBox "ادخل رقم السند المطلوب تعديله"
End If
غيرت كما قلت الان وتظهر رساله ادخل قيمه المعلمه وانا لااريد ظهور هذه الرساله والمشكله كمان يظهرالنموذج فاضي بدون ا حقول القي اليه نظره اخي بارك الله فيك