Campo com Preenchimento obrigatorio

Ola Pessoal

uso no evento ao sair do campo

Código:

If IsNull(Me.CodFilial) = True Then
   MsgBox "É necessário preencher o CodFilial", vbCritical
   Cancel = True
   Me.CodFilial.SetFocus
End If

esta funcionando blz , mas só tem um problema como é um formulário de lançamento de dados quando vou fechar ele sem lançar nada
fica vindo a menssagem "É necessário preencher o CodFilial" como faço para fechar o formulario

Bom dia,
ponha seu código no evento Antes de atualizar do campo.

Ola Marcelo David

consigo fechar o formulario , mas quando saio do campo ele nao me da a menssagem de preenchimento obrigatorio

teste assim:

Código:

If Len(Trim(Me.CodFilial.Text)) = 0 Then
    MsgBox "É necessário preencher o CodFilial", vbCritical
    Cancel = True
End If

Ola Marcelo David

não funcionou não pediu o preenchimento do campo apos dar enter

Olá a todos,

Marcio, veja este tópico:
https://www.maximoaccess.com/t102-resolvidovalidar-campos-com-preench-obrigatorio-pela-tag

Existe mais é só fazer uma "busca" aqui no fórum, veja:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Qualquer coisa estamos cá!

Abraço a todos

Marcio,

Procure separar seu código, para não gerar determinados conflitos no comportamento do formulário.
A verificação de preenchimento de campos obrigatórios pode ser feita através de um botão "Salvar".
O sistema deve gravar os dados quando a função for VERDADEIRA.

Exemplo:

Código:



Private Sub cmdSalvar_Click()

    'Se o retorno da função for FALSO, é pq campos obrigatórios
    'não foram preenchidos
    If fncValidaCampos = False Then
        'Finaliza a execução do comando
        Exit Sub
    End If
   
    'Se o retorno da função for VERDADEIRO, então:
    '
    ' Executa rotina para salvar dados
    '................
    '................
    '...............

End Sub

Private Function fncValidaCampos() As Boolean

    'Define a funçãocomo verdadeira
    fncValidaCampos = True
   
    'se o campo for NULO ou Vazio
    If IsNull(Me.campo) Or Trim(Me.campo) = Empty Then
        MsgBox "o campo é de preenchimento obrigatório.", vbExclamation, "Aviso."
        'Seta o foco no campo para o usuário visualizar
        Me.campo.SetFocus
        'Define a função como FALSE
        fncValidaCampos = False
        'Saída da função
        Exit Function
    End If
   

End Function