[Resolvido]Uso de "null" inválido

Boa noite.
Gostaria da ajuda de vocês.
Tenho um formulário fFamilia da Tabela Família e com chave primária "dcod_familiar_fam" número.
Dentro desse formulário fFamilia, tenho um subformulário subComposicaoFamiliar com chave primária "pnum_nis_pessoa_atual" número
Adicionei um botão no subComposicaoFamiliar para abrir um outro formulário que será registrado a um atendimento e gerará uma chave primária "rcod_recepcao" com o seguinte código:

Código:

Private Sub btnRecep_Click()

DoCmd.OpenForm "fRegistro_Recepcao", , , , acFormAdd
'Verifica o próximo número livre e acrescenta como código da recepcao
Forms!fRegistro_Recepcao!rcod_recepcao = Nz(DMax("[rcod_recepcao]", "t_Recepcao"), 0) + 1

'Insere o codigo da familia no formulario fRegistro_Recepcao
Forms!fRegistro_Recepcao!rcod_familiar_fam = Me.pcod_familiar_fam

'Insiro o código do membro da familia no formulario fRegistro_Recepcao
Forms!fRegistro_Recepcao!rnum_nis_pessoa_atual = Me.pnum_nis_pessoa_atual

End Sub

Ao abrir o formulário com o código da recepção gerado corretamente, juntamente com o rcod_familiar_fam e rnum_nis_pessoa_atual, o formulário me apresenta erro Uso de "null" inválido. Tenho um botão para excluir o registro, só que não funciona assim que dou OK no erro. Se eu clicar em uma caixa de seleção no formulário fRegistro_Recepcao após pressionar o Ok do Erro Null, o Access me permite clicar no botão de excluir o registro e ele executar corretamente.

segue o link para baixar o BD

Ao abrir o BD, executar o formulário fFamilia, clicar na guia compfam e terá um botão chamado "Rec"para registrar um atendimento.
Alguma luz pra me ajudar? Desde já agradeço.

Up

Alguém poderia me ajudar?

up

Olá Abymael,

Por gentileza, compartilhe uma cópia do seu bd, somente objetos (forms/tabelas/consultas e etc) envolvidos no problema, para análise e solução.

Att,
FIM

Eu havia mandado link pelo Google Drive, mas sumiu do post inicial.
Segue em anexo o BD.
Ao clicar no Formulário fFamilia, abrirá um controle de guias. Na aba da guia que se chama compfam, aparecerá membros da família correspondente ao Código Familiar (dcod_familiar_fam) e um botão btnRecep.
Assim que apertar o btnRecep, ele abre um formulário chamado fRegistro_Recepcao. Quando o formulário abre, aparece o erro Null inválido. Já revisei e não localizo o erro de jeito nenhum, estou desesperado.

Ola,

Na rotina abaixo, o parametro destacado em vermelho está incorreto

''Evita o erro de data não preenchida
If IsNull(Data_Nasc) Then
CalculaIdade = ""
Exit Function
End If

Substitua por:

''Evita o erro de data não preenchida
If IsNull(DataNasc) Then
CalculaIdade = ""
Exit Function
End If

É isso

Att,
FIM

Alexandre, o problema era esse mesmo. Muito obrigado e desculpa minha falta de atenção. Eu achei que o erro estava de alguma forma relacionada à chave primária e não conseguia resolver. Mais uma vez obrigado a você e a este fórum.

Valeu Abymael,

Boa sorte e sucesso nos teus projetos.
O fórum agradece.
Abs