Untermakro-Makroanweisung

Gilt für: Access 2013, Office 2013

Die Submacro-Anweisung definiert ein separates Makro im Makrofenster Designer.

Einstellung

Die Untermakro-Aktion kann mit den folgenden Argumenten verwendet werden.

Argument	Erforderlich	Beschreibung
Name	Ja	Eine Zeichenfolge, die als Name des Makros angezeigt wird.

Beispiel

The following macro demonstrates the use of the OnError action. In this example, the OnError action specifies that Access run a custom error handling macro named ErrorHandler when an error occurs. Wenn ein Fehler auftritt, wird das Untermakro CatchErrors aufgerufen. Wenn die Fehlernummer 2102 ist, wird eine bestimmte Meldung angezeigt, und die Makroausführung wird angehalten. Andernfalls wird eine Meldung angezeigt, die den Fehler beschreibt, und das Makro wird angehalten, sodass Sie eine zusätzliche Problembehandlung durchführen können. The ErrorHandler macro displays a message box that refers to the MacroError object to display information about the error.

Der Beispielcode stammt von:Microsoft Access 2010 Programmer's Reference.

    /* MACRO: mcrThrowErrors                                  */
    /* PURPOSE: Error handling using macros in Access 2010    */
    
    OnError
        Go to Macro Name
        Macro Name CatchErrors
    
    OpenForm 
        Form Name frmSamples
        View Form
        Filter Name
        Where Condition
        Data Mode
        Window Mode Normal
    
    MessageBox 
        Message This message appears after the OpenForm action
        Beep Yes
        Type None
        Title
    
    
    /* SUBMACRO: CatchErrors                                   */
    
    SubMacro: CatchErrors
        If [MacroError].[Number]=2101 Then
            MessageBox
                Message Cannot find the specified form!
                Beep Yes
                Type Critical
                Title
            StopMacro
    
        Else
            MessageBox
                Message =[MacroErro].[Description]
                Beep Yes
                Type None
                Title Unhandled Error
    
            SingleStep
        End If
    
    End SubMacro