vba - ms access form closing ask save yesnocancel -
i have put vba in unload form event in ms access 2010
private sub form_unload(cancel integer) dim strmsg string dim iresponse integer ' specify message display. strmsg = "do wish save changes?" & chr(10) strmsg = strmsg & "click yes save or no discard changes." ' display message box. iresponse = msgbox(strmsg, vbquestion + vbyesnocancel, "save record?") ' check user's response. if iresponse = vbyes ' undo change. docmd.runcommand accmdsave end if if iresponse = vbno ' undo change. docmd.runcommand accmdundo end if if iresponse = vbcancel ' undo change cancel = true end if end sub
if data changed above code working fine, yes save & close, no undo & close , cancel cancel event , remain on form when data unchanged yes button working fine, no button not close form
where m mistaking ?
your question vague because state "no button not close form."
you can do:
docmd.close
see here:
private sub cmdcloseform_click() on error goto err_cmdcloseform_click docmd.runcommand accmdundo 'or me.undo - test works best situation docmd.close exit_cmdcloseform_click: exit sub err_cmdcloseform_click: msgbox err.description resume exit_cmdcloseform_click end sub
on me.undo
allen browne:
me.undo cancels edits in specific form, no longer dirty. once form no longer dirty, no further undo possible, because has reached desired state.
however, me. represents form in focus, form must have focus perform me.undo
command.
Comments
Post a Comment