Message box not working all of the time
I have a strange thing happening with a message box. Here is the code of an onclick event of a command button:
DoCmd.SetWarnings False
DoCmd.RunSavedImportExport
DoCmd.RunSavedImportExport
DoCmd.SetWarnings True
MsgBox "Estimate imported. Proceed to job schedule. Be sure to check for outside purchase information."
The problem is this... if there is no "EstimateWonOutbuys" import the message box does not appear. If both imports take place then the message box does appear. I need it to appear in either case. There are cases where there is no import to be done for "EstimateWonOutbuys".
--Steve
DoCmd.SetWarnings False
DoCmd.RunSavedImportExport
DoCmd.RunSavedImportExport
DoCmd.SetWarnings True
MsgBox "Estimate imported. Proceed to job schedule. Be sure to check for outside purchase information."
The problem is this... if there is no "EstimateWonOutbuys" import the message box does not appear. If both imports take place then the message box does appear. I need it to appear in either case. There are cases where there is no import to be done for "EstimateWonOutbuys".
--Steve
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
do you have error handling codes that goes with the codes above?
or, is there an
on error resume next line
or, is there an
on error resume next line
comment this two lines, then test your codes again
' DoCmd.SetWarnings False
' DoCmd.SetWarnings True
' DoCmd.SetWarnings False
' DoCmd.SetWarnings True
I commented those two lines out and the message box did not popup when only the first import existed.
Just say NO to DoCmd.Setwarnings - very dangerous and it masks errors you want to know about.
Try this:
With CurrentDb
.Execute "ImportEstimateWon" , dbFailOnError
.Execute "EstimateWonOutbuys" , dbFailOnError
End With
MsgBox "Estimate imported. Proceed to job schedule. Be sure to check for outside purchase information."
mx
Try this:
With CurrentDb
.Execute "ImportEstimateWon" , dbFailOnError
.Execute "EstimateWonOutbuys" , dbFailOnError
End With
MsgBox "Estimate imported. Proceed to job schedule. Be sure to check for outside purchase information."
mx
Premium Content
You need an Expert Office subscription to comment.Start Free Trial