msgbox displaying before the form opens

Question

This code runs, and the msgbox displays prior to the form loading on the screen. Is there any way to get the form to display before the msgbox displays?

Private Sub Form_Load()

On Error GoTo Blank

    txt_Test.Value = txt_ImpactedRoutes.Value

Blank:

    MsgBox "There were no Route Issues Reported for this day. Please select another date above."

End Sub

Answer 1

Part of the problem is your code's logic.

If it encounters an error, it'll display the message box.

If it doesn't encounter an error, it'll display the message box.

Try this instead:

Private Sub Form_Load()

On Error GoTo Blank

txt_Test.Value = txt_ImpactedRoutes.Value

NormalExit:

Exit Sub

Blank:

MsgBox "There were no Route Issues Reported for this day. Please select another date above."

Resume NormalExit

End Sub

You might also want to put the code in the Activate event instead of Load.

Answer 2

Thank you sir