[Resolvido]Erro em Tempo de Execução "94" - Uso de "NULL" Inválido

Boa Tarde,
     
      Tenho um formulário que me gera parcelas e cálculos de amortização automático, mas quando clico a primeira vez no botão GERAR PARCELAS, ele aparece o erro, se eu fechar o ACCESS e Abrir o formulário novamente e clicar no Botão GERAR PARCELAS ele gera normalmente.

      Na primeira vez quando dá o erro e clico em Deputar ele mostra essa primeira linha.


      intParcela = Nz(CInt(DLookup("Num_Parc", "TABELAPRICEEmprestimo", "N_EmprestimoFixo=" & Me!N_EmprestimoFixo)), 0)
       curCapital = Nz(CCur(DLookup("Vlr_Capital", "TABELAPRICEEmprestimo", "N_EmprestimoFixo=" & Me!N_EmprestimoFixo)), 0)
       sngJuros = Nz(CSng(DLookup("Porcentagem", "TABELAPRICEEmprestimo", "N_EmprestimoFixo=" & Me!N_EmprestimoFixo)), 0)
       curJuros = 1
       curDevedor = 1
       VarVencim = Pri_Vencimento

Alguém poderia me ajudar

Já utilizei sem o Nz também e não funcionou.

Colega!
Me envie o projeto que vejo em resolver pra você.

gfranguelli,

Segue projeto para vc analisar se puder me ajudar a resolver fico grato.

"drive.google.com/file/d/1EZL2wdurKEta5mNsUyMV6ouEsAkOec6v/view?usp=sharing"

Obrigado

Analisemos a linha
Nz(CInt(DLookup("Num_Parc", "TABELAPRICEEmprestimo", "N_EmprestimoFixo=" & Me!N_EmprestimoFixo)), 0)

Primeiro é buscado um valor
DLookup("Num_Parc", "TABELAPRICEEmprestimo", "N_EmprestimoFixo=" & Me!N_EmprestimoFixo)

Depois é convertido pra inteiro
CInt(VALOR_QUE_FOI_BUSCADO_COM_DLOOKUP)

Depois é aplicado o Nz, ou seja, caso seja nulo então transforme em 0
Nz(VALOR_CONVERTIDO_EM_TIPO_INTEIRO, 0)

Só que existe um problema aí.
E se ao buscar o valor não encontrar nada, o que será convertido em inteiro? Pelo visto, esse é o problema que está ocorrendo. Então é preciso ajustar a ordem dos acontecimentos. 1 - Buscar um valor; 2 - Não encontrando, transforme em 0; 3 - Converter pro tipo inteiro

CInt(Nz(DLookup("Num_Parc", "TABELAPRICEEmprestimo", "N_EmprestimoFixo=" & Me!N_EmprestimoFixo), 0))

Bom dia DamascenoJr, vou fazer a alteração hoje e te aviso se deu certo, muito obrigado.

DamascenoJr.

Muito obrigado funcionou!!!

Abraços

Olá a todos,

Celio Martins, seja bem-vindo ao fórum.
Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Solução do DamascenoJr. e observações feitas funcionou perfeitamente.

Obrigado

O fórum agradece o retorno. Sucesso.