Wait for user to close form

[hufnagel]

I have a module I'm building that kicks off with a button click. I need the module to do the following...
* some various housekeeping stuff and data collection (done)
* open a form (done)
* fill in fields of the form (done)
* excute a private function stored with the form (???)
(performs updates to other fields in the form)
* have the module WAIT until the form is closed by the user (???)
* resume the module (???)

Here's a code snippet of what I have so far...

    Do While Not rsCustNum.EOF
        DoCmd.OpenForm "frmInvoicesLookup"
        With [Forms]![frmInvoicesLookup]
            ![filterToEmail].Value = "True"
            ![DateFrom].Value = Date - 8
            ![DateTo].Value = Date
            ![CustomerNumber].Value = rsCustNum!CustomerNumber
        End With
CustomerNumber
' ---
'      need to set focus to the form in question,
'      execute the private function,
'      and wait for the form to close
' ---
        rsCustNum.MoveNext
 

How do I do what is marked as the comment in the above code?

For the 'execute private function' part I could setup code for the form's On Open event that checks for "True" in the filterToEmail field and then calls the private function in question... although I'd rather try to call it from the Module if at all possible.

It's the setting focus to the form and waiting for it to be closed parts that have me stopped.

Thanks!

[Tanis]

A form won't close on it's own. It takes user intervention on their part, unless you have programmed it to do so after an event has finished.

[MMcCarthy]

Is this what you're looking for?

 
    Do While Not rsCustNum.EOF
        DoCmd.OpenForm "frmInvoicesLookup"
        With [Forms]![frmInvoicesLookup]
            ![filterToEmail].Value = "True"
            ![DateFrom].Value = Date - 8
            ![DateTo].Value = Date
            ![CustomerNumber].Value = rsCustNum!CustomerNumber
        End With
        DoCmd.Close acForm, "frmInvoicesLookup"
 
        rsCustNum.MoveNext