[Resolvido]Problemas com "Nulo"

Olá Pessoal,

Estou com probleminha muito chato aqui e até agora não consegui resolver, é brincadeira passar o dia só em uma coisa que não dá em nada! O problema é o seguinte, criei um formulário para cadastrar funcionário na tabela de funcionários, mas o problema está em "ao perder o foco" no primeiro campo que no caso seria o CPF do funcionário, ele emite a mensagem dizendo que o campo nome não permite nulo ou seja ao invés de ir para o próximo campo ele está indo para o próximo registro! Alguém algum dia já passou por esse problema horroroso? Se sim, por favor, ajude-me!

Cumprimentos!

De Paula
Pode postar a tabela e o formulário?
Aguardo

2007

Então Assis por ser um aplicativo da Polícia Militar não estou autorizado a compartilhar parte do Banco de Dados, e tentei fazer um outro mas só que não tenho problema nenhum o formulário que crio no novo banco de dados funciona corretamente somente no Banco de Dados da Produção é que não roda!

Esse campo possui uma consulta?
Se sim, você colocou "É Negado Nulo" nos critérios?
Tente retirar esse critério e veja se funfa.

Então Chumbrega, não estou fazendo o cadastro por uma consulta (query) e sim direto pela tabela de funcionários...

Isso na verdade acontece quando eu coloco o código VBA de validação deixando todos os campos do formulário ao abrir em "Enable = False" e após o usuário inserir algum dado no primeiro campo e pressionar a tecla TAB ele então teria que ir para o próximo campo só que antes ele deixa o próximo campo em "Enable = True" e então SetFocus para o próximo campo.

Campo 1 = CodFuncionario
Campo 2 = NomeFuncionario

Quando o usuário insere um código para o funcionário no campo "CodFuncionario" e pressiona a tecla TAB ao invés de habilitar o campo "NomeFuncionario" ele da uma mensagem dizendo que o campo "NomeFuncionario" não permite valores nulos.

O que fazer???

Tente:

Campo 1 = CodFuncionario
Campo 2 = Nz(NomeFuncionario,0)

Abraços.

Onde eu colocaria isso o "Nz(NomeFuncionario,0)"?

Onde vc colocou NomedoFUncionário.

Por exemplo:

Se o campo da tabela é nome e a caixa de texto txtNome

nome = Nz(txtNome.value,0)

Esse "Nz" pega o campo de valor nulo e da um valo "0" a ele, evitando assim a msg de erro.

Se puder colocar o código aqui facilita.
Abraços.

Existe algum evento neste campo?

Exemplo, Ao Sair, Após Atualizar, etc.

O na tabela talvez o campo esteja como obrigatório!

Eis o Código de validação do campo "txtCodFuncionario" Senhores:

Código:

Private Sub txtCodFuncionario_LostFocus()
    If IsNull(txtCodFuncionario) Or Me.txtCodFuncionario = 0 Then
        MsgBox "Atenção: Você deve criar um código para o Novo Funcionário!", vbCritical, "Erro de Autenticação"
            Me.txtCodFuncionario.SetFocus
            Me.Undo
    Else
        Me.txtNomeFuncionario.Enable = True
        Me.txtNomeFuncionario.SetFocus
    End If
End Sub

Cumprimentos!

Esta no evento ao perder foco coloque no evento Após Atualizar!

No exemplo Após Atualizar eu coloco Nz(txtNomeFuncionario.value,0)?

Não, coloque seu código de verificação no evento após atualizar:

   If IsNull(txtCodFuncionario) Or Me.txtCodFuncionario = 0 Then
       MsgBox "Atenção: Você deve criar um código para o Novo Funcionário!", vbCritical, "Erro de Autenticação"
           Me.txtCodFuncionario.SetFocus
           Me.Undo
   Else
       Me.txtNomeFuncionario.Enable = True
       Me.txtNomeFuncionario.SetFocus
   End If

Mas remova o evento ao perder foco desse controle!

Então Gilberto Rocha,

Mesmo mudando de "Ao Perder o Foco" para "Após Atualizar" o erro ainda continua... Minha dúvida é onde eu coloco a linha de comando sugerida pelo nosso colega Chumbrega sugeriu: Nz(NomeFuncionario,0)

Cumprimentos

Podes postar parte do banco?

Pois no evento após atualizar deveria funcionar!

Tente tambem!

If IsNull(txtCodFuncionario) Or Me.txtCodFuncionario = 0 or Me.txtCodFuncionario ="" Then
MsgBox "Atenção: Você deve criar um código para o Novo Funcionário!", vbCritical, "Erro de Autenticação"
Me.txtCodFuncionario.SetFocus
Me.Undo
Else
Me.txtNomeFuncionario.Enable = True
Me.txtNomeFuncionario.SetFocus
End If

Então Gilberto como eu disso ao Assis, por ser um banco de dados da Polícia Militar não estou autorizado a compartilhar parte do mesmo... por isto estou tentando resolver esclarecendo todos os detalhes solicitados possíveis!

Certo, mas você removeu do evento ao perder foco e colocou no evento Após atualizar?

Sim fiz o que sugeriu mas continuou do mesmo jeito...  

Fiz um exemplo veja.

Mas eu acho que o ideal é ter formularios desacoplados e um botão salvar e fazer a verificação dos campos ao salvar!

Cod = Nz(Me.txtCodFuncionario,0)
If Cod = "" Then
MsgBox "Atenção: Você deve criar um código para o Novo Funcionário!", vbCritical, "Erro de Autenticação"
Me.txtCodFuncionario.SetFocus
Me.Undo
Else
Me.txtNomeFuncionario.Enable = True
Me.txtNomeFuncionario.SetFocus
End If
End Sub

Não testei, mas pode ser isso.

E siga o que o Gilberto falou.
Prefiro assim tb, menos chance de erros.
Abraços.

Boas Amigos, com a ajuda de vocês consegui resolver o problema adicionei a função Nz() e tudo funcionou corretamente, também mudei de "Ao perder o foco" para "Após atualizar" e ficou melhor mesmo... valeu galera pela ajuda!

Mas ainda fica o desafio ai para quem quiser tentar resolver, pois o que eu não consigo entender é o porque do Access emitir a mensagem "O campo X não aceita valores nulos!", e a metodologia de desenvolvimento de tabelas é a mesma para todas as tabelas do banco de dados, e o problema só foi apresentado pela tabela de Funcionários. Até a próxima galera...

Cumprimentos!

Como o campo estava vinculado a tabela e o campo era uma chave primária, ele não aceitava deixá-lo em branco.
Pelo que entendi era isso que estava acontecendo.
Abraços.