Ação da macro PararMacro

Aplica-se ao: Access 2013, Office 2013

Pode utilizar a ação PararMacro para parar a macro atualmente em execução.

Configuração

A ação PararMacro não tem argumentos.

Comentários

Normalmente, utiliza esta ação quando uma condição torna necessário parar a macro. Você pode usar uma expressão condicional na linha de ação da macro, contendo essa ação. Quando a expressão é avaliada como Verdadeiro (–1), o Microsoft Access para a macro.

Por exemplo, pode criar uma macro que abre um formulário que mostra os totais de encomendas diárias da data introduzida numa caixa de diálogo personalizada. Pode utilizar uma expressão condicional para se certificar de que o controlo Data da Encomenda na caixa de diálogo contém uma data válida. Se não for o caso, a ação MessageBox pode apresentar uma mensagem de erro e a ação PararMacro pode parar a macro.

Se a macro tiver utilizado as ações Eco ou SetWarnings para desativar o eco ou a apresentação de mensagens do sistema, a ação PararMacro volta a ativá-las automaticamente.

Esta ação não está disponível em um módulo VBA (Visual Basic for Applications).

Exemplo

A seguinte macro demonstra a utilização da ação OnError . Neste exemplo, a ação OnError especifica que o Access executa uma macro de processamento de erros personalizada chamada ErrorHandler quando ocorre um erro. Quando ocorre um erro, a submacro CatchErrors é chamada. Se o número de erro for 2102, será apresentada uma mensagem específica e a execução da macro será interrompida. Caso contrário, é apresentada uma mensagem que descreve o erro e a macro é colocada em pausa para que possa efetuar uma resolução de problemas adicional. A macro ErrorHandler apresenta uma caixa de mensagem que se refere ao objeto MacroError para apresentar informações sobre o erro.

Código de exemplo fornecido por: a Referência do programador do Microsoft Access 2010.

    /* 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