Form on screen after closed

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a form that pops up as a Dialog to halt the code for a user to update
some items before it goes out into Excel.
After I click the button to close the form the code takes off and starts
exporting to Excel, but the input form stays up there but slightly faded...
I would like to have it complete close before I move onto the next step to
make this look cleaner to the user. How do I make the form completely close
before I move on?

This is the code that calls said form.

If DCount("Model", "qryOptionBlanks") > 0 Then
DoCmd.OpenQuery "qryAPPENDBlankOptionDesc"
DoCmd.Hourglass (False)
DoCmd.OpenForm "frmAddOptionDesc", , , , , acDialog
DoCmd.Hourglass (True)
DoCmd.OpenQuery "qryUPDATEOptionDesc"
End If

Call SendtoExcel
 
If DCount("Model", "qryOptionBlanks") > 0 Then
DoCmd.OpenQuery "qryAPPENDBlankOptionDesc"
DoCmd.Hourglass (False)
DoCmd.OpenForm "frmAddOptionDesc", , , , , acDialog
DoCmd.Hourglass (True)

' This frees some time for screen refresh maybe this helps

DoEvents


DoCmd.OpenQuery "qryUPDATEOptionDesc"
End If

Call SendtoExcel


- Raoul
 
Back
Top