MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Campo com Preenchimento obrigatorio

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    Campo com Preenchimento obrigatorio Empty Campo com Preenchimento obrigatorio

    Mensagem  msilveir em Ter 08 Out 2019, 1:48 pm

    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
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3164
    Registrado : 21/04/2011

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Marcelo David em Ter 08 Out 2019, 2:12 pm

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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  msilveir em Ter 08 Out 2019, 2:55 pm

    Ola Marcelo David

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3164
    Registrado : 21/04/2011

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Marcelo David em Ter 08 Out 2019, 3:21 pm

    teste assim:

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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  msilveir em Qua 09 Out 2019, 3:28 pm

    Ola Marcelo David

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

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6896
    Registrado : 15/03/2013

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  ahteixeira em Qua 09 Out 2019, 3:38 pm

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1146
    Registrado : 13/12/2016

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Alexandre Fim em Qua 09 Out 2019, 6:41 pm

    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








    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: Qua 23 Set 2020, 12:35 pm