من النماذج

Private Sub edit_Click()
On Error Resume Next
If InputBox("كلمة السر مطلوبة ", "ادخل كلمة السر") <> "****" Then
MsgBox "not matching"
DoCmd.CancelEvent
Else

Me.AllowEdits = True
Me.statument_q_subform1.Form.AllowEdits = True
'End If
End Sub

==================================

Private Sub Form_AfterUpdate()
Me.AllowEdits = False
Me.statument_q_subform1.Form.AllowEdits = False
End Sub

شكراُ اخي على الايضاح ، لكن ظهرت مشكلة اثناء اجراء بعد التحديث ، و تم الحل بالطريقة التالية:

Private Sub Form_AfterUpdate()
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False
End Sub

لكم جزيل الشكر والاحترام