MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 : 229
    Registrado : 13/03/2011

    Campo com Preenchimento obrigatorio Empty Campo com Preenchimento obrigatorio

    Mensagem  msilveir em 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 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

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

    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 : 229
    Registrado : 13/03/2011

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  msilveir em 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 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Marcelo David em 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
    www.mrdsystem.com.br (em construção)
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  msilveir em 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 100%

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

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  ahteixeira em 9/10/2019, 16:38

    Olá a todos,

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

    Existe mais é só fazer uma "busca" aqui no fórum, veja:
    http://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 : 837
    Registrado : 13/12/2016

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Alexandre Fim em 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








    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)

    Conteúdo patrocinado

    Campo com Preenchimento obrigatorio Empty Re: Campo com Preenchimento obrigatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/10/2019, 03:13