السلام عليكم ورحمة الله وبركاته
أسمحوا لي بمشاركتم أخي @عبد اللطيف سلوم و أخي @ابو ياسين المشولي بهذا الكود
If MsgBox("سيتم حذف السجل " & vbCrLf & _
"هل تريد المتابعة ؟؟", _
vbInformation + vbYesNo, _
"تحذير") = vbYes Then
Dim strPWord As String
strPWord = InputBox("فضلا ادخل الرقم السري", "الرقم السري")
If strPWord = "123" Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
End If
Else
Exit Sub
End If