Hi all,
Dim vAns As Variant
vAns = MsgBox("Are you sure you want to delete this record?", vbQuestion + vbYesNo, "Delete")
If vAns = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70...