MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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 : Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Campo com Preenchimento obrigatorio

    Mensagem  msilveir 8/10/2019, 14:48

    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 : Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Marcelo David 8/10/2019, 15:12

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


    .................................................................................
    Marcelo David | Campo com Preenchimento obrigatorio LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  msilveir 8/10/2019, 15:55

    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 : Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Marcelo David 8/10/2019, 16:21

    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 | Campo com Preenchimento obrigatorio LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  msilveir 9/10/2019, 16:28

    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 : Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  ahteixeira 9/10/2019, 16:38

    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 : Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Alexandre Fim 9/10/2019, 19:41

    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.

    Conteúdo patrocinado

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 12/5/2021, 22:05