تقدر تعمل الكود في التقرير
في حدث عند الاغلاق
If MsgBox("هل تريد حذف البيانات ¿", vbYesNo, "تنبيه") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL " delete * from TblMihawlatLogIn"
MsgBox "لقد تم حذف البينات بنجاح !!!!", vbOKOnly, "تنبيه"
'Me.Refresh
Else
DoCmd.CancelEvent
End If