فى حدث عند مفتاح لأسفل للنموذج ضع الكود التالى
Case vbKeyF8
Dim strMsg As String, strTitle As String
Dim strMsgNo As String, strTitleNo As String
strMsg = "هــــل تـريـــد حـــذف هــــذا الصنــــــف .....؟"
strTitle = " تأكيد الحذف"
If MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton2, strTitle) = vbYes Then
DoCmd.SetWarnings False
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End If
End Select
ولا تنسى أن تغير بند مفتاح العرض التمهيدي إلى نعم .
الكود السابق لزر F8
أشرف خليل