Warning: Use of undefined constant HTTPS - assumed 'HTTPS' (this will throw an Error in a future version of PHP) in /home/startinn/public_html/home/blog/post.php on line 7

Warning: Use of undefined constant HTTPS - assumed 'HTTPS' (this will throw an Error in a future version of PHP) in /home/startinn/public_html/home/blog/post.php on line 7
Criando validação de formulário com VBA - Startinn

Criando validação de formulário com VBA

Publicado em 26/07/2017 | (0) comentários

A validação do preenchimento de campos de um formulário no ACCESS utilizando VBA é muito simples.

No evendo AO CLICAR do botão SALVAR, insira o seguinte código:

'validação dos campos
'caso um dos campos não esteja preenchido, a ação para dentro do sub
If Nz(Me.campo1) = "" Then
    MsgBox "Preencha o campo", vbCritical
    Exit Sub
ElseIf Nz(Me.campo2) = "" Then
    MsgBox "Preencha o campo", vbCritical
    Exit Sub
ElseIf Nz(Me.campo3) = "" Then
    MsgBox "Preencha o campo", vbCritical
    Exit Sub
ElseIf Nz(Me.campo4) = "" Then
    MsgBox "Preencha o campo", vbCritical
    Exit Sub
Else

    'salva data e usuario de alteração/registro
   DoCmd.RunCommand acCmdSaveRecord
 
End If

Funcionamento

Ao clicar no botão SALVAR, a validação passa por todos os campos (destaque em azul). Caso um dos campos esteja vazio, a mensagem dentro de MSGBOX é apresentada e o código para de ser executado com EXIT SUB.

Caso nenhum dos campos obrigatórios esteja vazios, o IF passa direto para o ELSE e salva o registro com o comando: DoCmd.RunCommand acCmdSaveRecord


Categoria: vba access