طيب انت لديك في النموذج هذا الكود خلف زر وظيفته التحكم بالتعديل من عدمه :
Private Sub أمر85_Click()
If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟ ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then
AllowEdits = True
DoCmd.CancelEvent
Else
AllowEdits = False
End If
End Sub
لو اضفت اليه خاصية الاضافة لأصبح التحكم بيدك
Private Sub أمر85_Click()
If MsgBox("هـــــل تريــــد تحرير السجل الحالي ؟ ", vbInformation + vbYesNo + vbMsgBoxRight + 256, "تنبيـــــه") = vbYes Then
AllowEdits = True
AllowAdditions = True
DoCmd.CancelEvent
Else
AllowEdits = False
AllowAdditions = False
End If
End Sub