Pop up form does not stop to allow imput

[lawdy]

The code does not stop when the pop up form opens. I don't get to make a choice until all the code stops running.
The pop up form is called puHowToBill. The code behind the form is:


Private Sub popupHowToBill_Click()
pubLngGen = popupHowToBill ' name of option group holding option buttons
Debug.Print "pubLngGen " & pubLngGen
DoCmd.Close
End Sub

Then I have a button (on a separate form) to open the pop up form:

Private Sub btnOpenPopUp_Click()


DoCmd.OpenForm "puHowToBill"
Select Case pubLngGen
Case 1
MsgBox "You have chosen 'Regular Mail'"
Case 2
MsgBox "You have chosen 'Email'"
Case 3
MsgBox "You have chosen '3rd Party'"
Case 4
MsgBox "You selected to skip setup"
End Select
End Sub

On the pop up form (which I will try to attach) Pop Up is set to YES and Moday is set as YES.
How can I make it stop for input?

[Micron]

Remove this line: DoCmd.Close
Use some other method to close the form, such as its own close button or one that you add to click to close.

[lawdy]

Ok, i removed the line DoCmd.Close and added a button on the pop up form:

Private Sub btnClose_Click()
DoCmd.Close
End Sub

The code still don't pause to let me make a choice. Once the code finishes the 'select case', then I can make a choice. But that is too late.

[June7]

DoCmd.Close has nothing to do with closing "puHowToBill". It's closing whatever form the first button is on.

Use acDialog parameter. This will suspend code execution on calling form until popup is closed:

DoCmd.OpenForm "puHowToBill", , , , , acDialog

Or put the Select Case code behind the popup.

[lawdy]

Thank you June 7. That works like a charm.