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

Popular posts from this blog

database - VFP Grid + SQL server 2008 - grid not showing correctly -

jquery - Set jPicker field to empty value -

.htaccess - htaccess convert request to clean url and add slash at the end of the url -