Validando a Entrada do Usuário

O botão Salvar do capítulo anterior irá gravar tranquilamente um Nome da Empresa em branco ou um e-mail inválido na tabela Customers, porque nada em cmdSave_Click verifica os dados antes. Validação é a etapa que ocorre antes de salvar — identificando problemas enquanto ainda são fáceis de corrigir, em vez de depois que já se tornaram dados ruins em uma planilha.

Campos obrigatórios

A verificação mais simples: este TextBox ainda está vazio?

If Trim(txtCompanyName.Value) = "" Then
    MsgBox "Company Name is required."
    txtCompanyName.SetFocus
    Exit Sub
End If

Trim é importante aqui mais do que parece — um usuário que digita apenas alguns espaços e nada mais passaria em uma verificação simples = "", já que " " tecnicamente não é uma string vazia, mas é tão inutilizável quanto o verdadeiro vazio. SetFocus move o cursor piscante diretamente para o controle com problema, assim o usuário não precisa procurar qual campo precisa ser corrigido — um detalhe que torna o formulário visivelmente mais refinado.

Validação numérica

IsNumeric verifica se um valor pode ser convertido em número, sem realmente tentar a conversão e correr o risco de erro:

If Not IsNumeric(txtReorderLevel.Value) Then
    MsgBox "Reorder Level must be a number."
    txtReorderLevel.SetFocus
    Exit Sub
End If

Esta é a verificação que teria identificado "twenty" digitado em um campo numérico, exatamente como mostrado na captura de tela acima. Só depois que essa verificação passa é seguro escrever código como CInt(txtReorderLevel.Value) mais adiante na Sub — validar primeiro e converter depois garante que a conversão nunca falhe de forma inesperada.

Validação de data

IsDate segue a mesma ideia, aplicada a datas em vez de números:

If Not IsDate(txtOrderDate.Value) Then
    MsgBox "Order Date must be a valid date."
    txtOrderDate.SetFocus
    Exit Sub
End If

Mensagens de erro que reúnem todos os problemas de uma vez As três verificações acima todas usam Exit Sub assim que encontram um problema — adequado para um formulário curto, mas frustrante em um mais longo, onde o usuário corrige um erro apenas para encontrar o próximo imediatamente. Um padrão mais refinado acumula uma lista de todos os problemas antes de exibir uma única mensagem combinada:

Private Sub cmdSave_Click()
    Dim errors As String
 
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
    End If
 
    If Not IsNumeric(txtReorderLevel.Value) Then
        errors = errors & "- Reorder Level must be a number" & vbNewLine
    End If
 
    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, _
            vbExclamation
        Exit Sub
    End If
 
    ' ... all checks passed, safe to save now
End Sub

Esta é a mesma técnica de construção de string do macro de alerta de estoque do último capítulo — errors começa vazio, e cada verificação que falha acrescenta mais uma linha em vez de sair imediatamente. Só depois que todas as verificações são executadas é que a Sub verifica se errors ficou vazio ou não, o que permite ao usuário ver todos os problemas de uma vez em vez de uma ida e volta frustrante para cada erro.

Tarefa

1. Reescrever cmdSave_Click da tarefa do capítulo anterior para construir uma string de erros, verificando se Nome da Empresa, Contato e Email não estão em branco.
2. Adicionar uma quarta TextBox, txtReorderLevel, apenas para este exercício, e validá-la com IsNumeric.
3. Exibir uma única MsgBox listando todos os problemas, usando vbExclamation como ícone, e só prosseguir para o código ListRows.Add quando a variável de erros estiver vazia.
4. Testar deixando todos os campos em branco e clicando em Salvar — confirmar se todas as linhas de erro esperadas aparecem em uma única mensagem.