ADT/ODE: End Statement in Run-Time Application Causes Error (165824)

SYMPTOMS

If you use the End statement in Visual Basic for Applications code in a run-time application, when the statement is executed, you may receive the following error message and then the application quits:

Execution of this application has stopped due to a run-time error. The application cannot continue and will be shut down.

Note that this does not happen in the retail version of Microsoft Access.

RESOLUTION

Rewrite your code so it does not use the End statement. If it is appropriate, you can use the Exit Sub or Exit Function statement to exit the procedure. Note, however, that the Exit statement only exits the currently running procedure. If you are running a nested procedure, the main procedure continues to run after you issue the Exit statement, and you must provide a mechanism to exit the main procedure as well.

MORE INFORMATION

If you use the feature in Microsoft Access 7.0 and 97 that allows you to convert macros into Visual Basic code modules, the StopAllMacros macro action will translate to an End statement in Visual Basic code.

Steps to Reproduce Behavior

Start Microsoft Access and create a new database named RTError.mdb.

Create a module and type the following procedure:

      Sub CauseError()
         On Error GoTo Err_Handler
         MsgBox "Click OK to cause a run-time error"
         End
         Exit Sub
         Err_Handler:
         MsgBox Error$
      End Sub

Save the module as Module1, and then close it.

Create a new form not based on any table or query in Design view:

      Form: Form1
      ------------------------
      Caption: Startup Form

      Command button:
         Name: Command0
         Caption: Cause Error
         OnClick: =CauseError()

Save the form as Form1, and then close it.
On the Tools menu, click Startup.
In the Startup dialog box, select Form1 in the Display Form box, and then click OK.
Start the Setup Wizard and create setup files that contain RTError.mdb, the Microsoft Access Run-Time Version, and the Workgroup Administrator.
Install the run-time application and start it. When Form1 opens, click the Cause Error button. Note that you receive the error message, and then your application quits.