FUNÇÃO E INSTRUÇÃO DE CONTROLE DO FLUXO DE EXECUÇÃO - ASSERT

Assert

    Método do objeto Debug, empregado para suspender condicionalmente a execução de um procedimento na linha na qual aparece, utilizando a seguinte sintaxe:

Debug.Assert Expressão

Onde, 

• Expressão: argumento obrigatório, constituindo-se de uma expressão booleana, que sempre avalia para verdadeiro ou falso (no VBA, o valor zero é sempre falso e qualquer outro valor é verdadeiro).

As seguintes considerações são válidas sobre o método Assert: 

• Assert funciona apenas no ambiente de desenvolvimento do VBA. Quando o módulo é compilado para um executável (arquivos MDE no Access) todas as instruções contendo o método Assert são ignoradas.

Exemplo: O exemplo a seguir demonstra como empregar o método Assert para interromper temporariamente a execução do código de um procedimento que retorna a raiz quadrada de um número, tornando mais fácil depurá-lo. O procedimento será interrompido sempre que o argumento for negativo:

Option Explicit

Function RaizQuadrada(dblValor as Doublé) as Doublé

Debug.Assert dblValor < 0

RaizQuadrada = dblValor^(1/2)

End Function

Até a Próxima!!