Ação da macro PararMacro

Aplica-se ao: Access 2013, Office 2013

Você pode usar a ação PararMacro para interromper a macro em execução no momento.

Configuração

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

Comentários

Normalmente, você usa essa ação quando uma condição torna necessário interromper 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 Verdadeira (–1), o Microsoft Access interrompe a macro.

Por exemplo, você pode criar uma macro que abra um formulário mostrando os totais diários dos pedidos para a data inserida em uma caixa de diálogo personalizada. Você pode usar uma expressão condicional para garantir que o controle Data do Pedido na caixa de diálogo contenha uma data válida. Caso contrário, a ação CaixaDeMensagem pode exibir uma mensagem de erro e a ação PararMacro pode parar a macro.

Se a macro tiver usado as ações Eco ou SetWarnings para desativar o eco ou a exibição de mensagens do sistema, a ação PararMacro as ativará automaticamente.

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

Exemplo

A macro a seguir demonstra o uso da ação OnError . Neste exemplo, a ação OnError especifica que o Access execute uma macro personalizada de tratamento de erros chamada ErrorHandler quando ocorrer um erro. Quando ocorre um erro, a submacro CatchErrors é chamada. Se o número do erro for 2102, uma mensagem específica será exibida e a execução da macro será interrompida. Caso contrário, uma mensagem descrevendo o erro será exibida e a macro será pausada para que você possa executar soluções de problemas adicionais. A macro ErrorHandler exibe uma caixa de mensagem que faz referência ao objeto MacroError para exibir 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