MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    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.

    BancoComandosSQL

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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 ***

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    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 ***

    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: Sab 10 Dez 2016, 04:57