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

    [Resolvido]Validação de campo vazio

    Compartilhe
    avatar
    AndrePeteca
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Validação de campo vazio

    Mensagem  AndrePeteca em Ter 24 Mar 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.

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 24 Mar 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 ***
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 25 Mar 2015, 10:48

    Bom dia

    Resolveu ?


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

    Respeito às Regras 100%

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

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

    Mensagem  AndrePeteca em Qua 25 Mar 2015, 11:54

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

      Data/hora atual: Ter 24 Out 2017, 06:55