a button forclose and open - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

a button forclose and open

John Yeung

3 years ago

just for fun, I created a button with code
DoCmd.Close acForm, "frm_A", acSaveYes
DoCmd.OpenForm "frm_A"

I thought the form would close and not reopen again as the form has already closed, the second command could not be executed. But the form did close and open again . strange

anyone knows why?

	Juan C Rivera @Reply 3 years ago
your code worked correctly i am thinking it closed and open just to fast

	Kevin Robertson @Reply 3 years ago
The code will run to the end of the Sub Routine unless you tell it to exit for whatever reason.

	Gregory Clancey @Reply 3 years ago
Could it be that an "If" test with an "Exit Sub" is called for to re-open the Form only if it had been closed?

Kevin Robertson @Reply

3 years ago

Try this guys (changing FormName to the name of the form).

    DoCmd.Close

    MsgBox "The form has closed"



    DoCmd.OpenForm "FormName"

    MsgBox "The form has re-opened"

This will close the form then display the first message.
When you click the OK button the form will re-open and display the second message.

Add the following line between the two code blocks and the form won't re-open.

If Not CurrentProject.AllForms("FormName").IsLoaded Then Exit Sub

	Gregory Clancey @Reply 3 years ago
Thanks. This works perfectly for me and can be custom tailored to work in other circumstances as well!

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Forum.

Next Unseen

New Feature: Comment Live View