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


2 participantes

    [Resolvido]Validação de campo vazio

    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]Validação de campo vazio Empty [Resolvido]Validação de campo vazio

    Mensagem  AndrePeteca 24/3/2015, 12:07

    Bom dia a todos, gostaria de uma ajuda com um código que estou tentando fazer, ate fiz o código e funciona mas o menos, ao abrir o formulário funciona perfeitamente, aperto no botão para cadastrar os dados com os campos vazio e não cadastra, mas quando preencho os campos e gravo normalmente os dados, ai minha validação não funciona mas. Gostaria de saber o que eu estou fazendo de errado para corrigir.

    BancoComandosSQL
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Validação de campo vazio Empty Re: [Resolvido]Validação de campo vazio

    Mensagem  Assis 24/3/2015, 13:12

    Boa tarde

    Teste

    Private Sub btnCadastrar_Click()
       If IsNull(Me.txtNome) Or Me.txtNome = "" Then
           MsgBox "Campo Nome em branco favor prencher", vbInformation, "Erro ao Cadastrar"
           Me.txtNome.SetFocus
           ElseIf IsNull(Me.txtCpf) Or Me.txtCpf = "" Then
           MsgBox "Campo CPF em branco favor prencher", vbInformation, "Erro ao Cadastrar"
           Me.txtCpf.SetFocus
           ElseIf IsNull(Me.txtdinheiro) Or Me.txtdinheiro = "" Then
           MsgBox "Campo Dinheiro em branco favor prencher", vbInformation, "Erro ao Cadastrar"
           Me.txtdinheiro.SetFocus
           Else
           CurrentDb.Execute "INSERT INTO[tblCadastrar]" _
                   & "(Nome, CPF, Dinheiro) VALUES" _
                       & "('" & txtNome & "', '" & txtCpf & "', '" & txtdinheiro & "');"
                 
              DoCmd.RunCommand acCmdSaveRecord
              DoCmd.GoToRecord , , acNewRec
           
           CurrentDb.Close
           Me.txtNome.Value = ""
           Me.txtCpf.Value = ""
           Me.txtdinheiro.Value = ""
           Me.txtNome.SetFocus
           MsgBox "Dados inseridos com sucesso", vbInformation, "Cadastro OK"
          End If
    End Sub


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

    [Resolvido]Validação de campo vazio Empty Re: [Resolvido]Validação de campo vazio

    Mensagem  Assis 25/3/2015, 10:48

    Bom dia

    Resolveu ?


    .................................................................................
    *** Só sei que nada sei ***
    AndrePeteca
    AndrePeteca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 128
    Registrado : 24/02/2015

    [Resolvido]Validação de campo vazio Empty Re: [Resolvido]Validação de campo vazio

    Mensagem  AndrePeteca 25/3/2015, 11:54

    bom dia, Resolveu sim muito obrigado e me desculpe pela a demora para responder muito grato

    Conteúdo patrocinado


    [Resolvido]Validação de campo vazio Empty Re: [Resolvido]Validação de campo vazio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:45