Close a query and reopen the form

J

Joe Gieder

I"m not sure where to post this but here's what I'm trying to do. I created a
form and a query and what I want to do is, input a value into the form, the
query runs, and the form closes, then when I close the query I want the form
to reopen. I tried using the query to fill in another form and it works to
fill in the form but when I close the form it still doesn't reopen the
original input form. Can this be done easily or at all?

Thank you in advance for your help.
Joe
 
T

Tom Wickerath

Hi Joe,
...then when I close the query I want the form to reopen.
Click to expand...

You won't be able to do this, since a query has no events that you can
program.
I tried using the query to fill in another form and it works to
fill in the form but when I close the form it still doesn't reopen the
original input form. Can this be done easily or at all?
Click to expand...

Sure. In the Form_Close event procedure for the second form, use a
DoCmd.Openform statement to re-open the first form.

Private Sub Form_Close()
On Error GoTo ProcError

DoCmd.OpenForm "NameOfFirstFormGoesHere", View:=acNormal

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Error in procedure Form_Close..."
Resume ExitProc
End Sub


Tom Wickerath
Microsoft Access MVP
https://mvp.support.microsoft.com/profile/Tom
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________
 
J

Joe Gieder

Tom,
Thank you it worked perfectly.

Joe

Tom Wickerath said:
Hi Joe,


You won't be able to do this, since a query has no events that you can
program.


Sure. In the Form_Close event procedure for the second form, use a
DoCmd.Openform statement to re-open the first form.

Private Sub Form_Close()
On Error GoTo ProcError

DoCmd.OpenForm "NameOfFirstFormGoesHere", View:=acNormal

ExitProc:
Exit Sub
ProcError:
MsgBox "Error " & Err.Number & ": " & Err.Description, _
vbCritical, "Error in procedure Form_Close..."
Resume ExitProc
End Sub


Tom Wickerath
Microsoft Access MVP
https://mvp.support.microsoft.com/profile/Tom
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________
Click to expand...
 
Top