DoMenuItem Message

S

Sandy

In Options -> Edit/Find

Uncheck the boxes in the Confirm box and then build your
own dialog to confirm the deletion. Ie

cmdClose_Click()
dim strMess as String
strMess = "Are you sure you would like to delete this
record?"
if msgbox(strMess,vbYesNo,"Confirm Delete") = vbYes then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
end if

Hope this helps
Sandy
AA Absolute Access
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Error 2237 8
vba coding 4
acEditMenu help 1
"Delete Record" command button woes 4
Button to delete record on datasheet subform 5
Msgbox problem 3
Msgbox for "Nothing to Delete" 7
Show Access Print Dialog to Ask for a Printer 1

Top