للتأكد من حذف السجل

ضع هذا الكود فى زر عند حدث عند النقر .

       If MsgBox(" انت تقوم بحذف هذا السجل هل تريد الحذف فعلا ؟ سيتم الحذف إذا اخترت نعم", vbYesNo, _
   " رسالة تاكيد حذف سجل ") = vbNo Then
   Cancel = True
   SendKeys "{ESC}"
   Exit Sub
End If
DoCmd.SetWarnings False
        
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

أشرف خليل

وهذا كود آخر

DoCmd.SetWarnings False
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
On Error Resume Next
DoCmd.RunCommand acCmdDeleteRecord
End If

أشرف خليل

اخي الكريم شكرا على الاجابة

ولكن اين اضع هذا الكود....

في خاصية عند النقر لزر الحذف مع الغاء الحدث الاصلي ام اظافة علية..واين اذا كان إظافة في اخر الاسطر

اسمح لي جهلي

مع خالص شكري لك تمت العملية على الكود الثاني اشكرك

وجزاك الله الف خير