Pausing macro execution

[lupis]

I have a form with a macro that has the action "SendObject" that sends a report by email. In the report itself I have macro that displays a messagebox if no records were found.

What I want o achieve is to halt the "SendObject" macro if no records were found and stop loading Outlook, instead display the parameter box for the report once more to let the user input a valid string after the messagebox that warns for No Records

-Sohail

[llkhoutx]

Check o see if you have any records first.

[lupis]

I am already doing this by the following code:

Do
  intNumOfRecs = DCount("*", "qSalesQueryLastName", "[Name] = '" & varName & "'")
 
  If intNumOfRecs = 0 Then
    intResponse = MsgBox("No Records exists for a Name of [" & varName & "], try again?", _
                          vbQuestion + vbYesNo + vbDefaultButton1, "Parameter Prompt")
      If intResponse = vbYes Then Me![txtName].SetFocus: Exit Sub
  Else
  'Record(s) exist, Run Macro or execute code here

[lupis]

My problem is that the outlook form gets focus and cant be minimzed so I cant see the report generated in access