[Resolvido]Variável = caixa de texto com valor nulo (erro)

Mais uma vez estou aqui precisando da ajuda de vocês, dessa vez o problema é o seguinte: estou desenvolvendo um sistema que emite RPA (recibo de pagamento de autônomo), tenho um formulário que contém algumas caixas de texto com uma fórmulas que somam os dados de campos de um subformulário, até ai tudo bem, nesse formulário também tenho um botão vinculado a um código que calcula o valor do IRRF, no inicio do código declarei as variáveis que irei utilizar e logo abaixo coloquei o vinculo das variáveis com as caixas de texto, exemplo:

Private Sub bt_irrf_Click()

Dim v_acumulado As Currency
Dim v_atual As Currency
Dim v_inss As Currency
Dim v_subtotal As Currency
Dim v_irrfdesc As Currency
Dim v_dep As Integer
Dim v_irrf As Currency
Dim v_terceiros As Currency

'Extração de dados so formulário para iniciar o calculo
v_atual = Me.txt_valor
v_inss = Me.txt_inss
v_dep = Me.txt_dep
v_irrfdesc = Me.txt_acumirrf
v_terceiros = Me.txt_sestsenat
(continuação do código...)

quando clico no botão para rodar o código, ocorre um erro devido a algumas caixas de texto estarem com valor null e por esse motivo o código não continua sua execução. o que devo fazer?

Ola,

Antes efetuares a atribuição podes verificar se é nulo e fazer o tratamento do erro

poderá ser

Código:


If IsNull(Me.txt_valor) then
   v_atual = 0
else
   v_atual = Me.txt_valor
endif

No entanto verifica os comentários seguintes

As boas práticas da programação ditam o uso da função interna Nz para tratamento de nulos.

Nz (SuaCaixaTexto. Value), 0

Está corretíssimo nosso nobre moderador João Paulo.

Obrigado colegas.
Não tenho utilizado essa função nos meus projetos.
Estamos sempre aprender.

Consegui resolver esse problema, apesar da minha fórmula para calcular o IRRF não ter funcionado, agradeço a ajuda.