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
 
Top