[Resolvido]Uso de "Null" inválido

Bom dia!

Estou tentando fazer uma numeração automática para o meu formulário com ajuda do fórum.

No banco de dados vazio para teste funcionou perfeitamente, mas quando importei o formulário para o BD em uso com dados cadastrados ocorreu o seguinte erro.






Como poderia resolver este erro.

Obrigado pela atenção

Rodrigues


Veja o campo da tua tabela se tem campo apagado em branco(nulo).


Se ainda não conseguir, limpe a tabela e adicione novos registros.


[ ]'s

Rodrigues


Resolveu?

Bom dia Noobezinho.
A tabela não tem dados em branco.
A tabela possui 507 registros que começaram a ser inseridos em 2017 até a data atual.

Vou continuar a inserir de forma manual e avaliar se é o caso cadastrar tudo de novo.

Obrigado

Sabe usar a janela imediata?

Se não, No google encontrará site que ensinar a utiliza=la, o que é uma mão na roda.

Digo isso, porque  o código está parado naquela linha.

Com isso, você pode verificar os valores dos campos utilizados até o momento.

Rode o programa e quando ele parar nessa linha, faça o seguinte:

Se a janela imediata não está aberta na página do VBA, tecle Crtl+G

Na janela imediata digite:

? Nr_Crendencial    ' --> Tecle enter, na linha debaixo deve aparecer o valor do campo, ou  nulo

Aguardo...

Boa tarde!

Após digitar ? Nr_Credencial e dar "enter" na janela imediata apareceu a palavra "nulo"

Rodrigues

Então

Nr_Credencial está com o valor nulo, por isso está dando erro.

Veja o campo Nr_Credencial do primeiro registro na tbl_Credencial.

Ou ainda

Abra a tabela e no campo Nr_Credencial coloque em ordem Crescente, se tiver algum campo em branco,

ficará na parte de cima da tabela.

A tabela Tbl_Credencial não possui valores em branco para o Nr_Credencial

Existem números duplicados, por exemplo 2 0001, mas não possui valores em branco.

O campo está formatado como texto.

Boa tarde,

Se me permitem uma tentativa: substitua a linha grifada por:

Código:

If Eval(Right(DMax("[Nr_Credencial]", "Tbl_Credencial", "Right([Nr_Credencial], 4) = '" & Year(Date) & "'"), 4)) <> Year(Date) Then

Retorne.

Abraço.

Cassio

Esse código uso direto e está funfando conforme no exemplo que enviei.

Rodrigues

O campo está como 0001 como disse ou como 0001/2017 (qualquer ano)

Irá funcionar somente se o campo for 0001/ano.

Bom dia!
Como a tabela já continha dados o formato estava 0001 e não 0001/ano

Fiz um teste com 20 registros adicionando manualmente o ano depois do número.

Após este procedimento funcionou perfeitamente.


Obrigado pela atenção de todos

Que bom que está resolvido!

Agora, só falta o Resolvido no título do tópico.

Faça isso, editando uma mensagem tua e clicando no botão resolvido, embaixo, na página.

Boa sorte!

Resolvido conforme descrição acima