[Resolvido]Ajuda - ERRO de Null para campo TextBox - ACCESS

Olá Sou entusiasta na área da programação e estou a fazer uma aplicação com Access 2013 e vba.
Meu problema é muito simples.  Tenho um campo “txt_Data_Nasc” onde será preenchido a data de nascimento e o campo “Idade”  que receberá o calculo da idade. Adicionei no evento Ao perder o foco de txt_Data_Nasc para chamar o calculo. No entanto Quando o campo da txt_Data_Nasc está vazio retorna um erro. Gostaria de Solucionar esse Problema. Obrigado.



Essa sequencia está escrito no evento Ao perder o foco de txt_Data_Nasc
Private Sub txt_Data_Nasc_LostFocus()
'Chama o calculo da Idade.'
Me.Idade = Idade_Nascimento([txt_Data_Nasc])
End Sub

Esse Código utilizo para calcular a idade. Autor Lúcio Rezende
Dim Anos, Meses, Dias
       Dim iAnos As Double, iMeses As Double, Intevalo As Double
       
       intervalo = Date - txt_Data_Nasc
       
       iAnos = intervalo / 365.25
       Anos = Int(iAnos)
       iMeses = (iAnos - Anos) * 12
       Meses = Int(iMeses)
       
       Dias = DateDiff("d", DateSerial(DatePart("yyyy", txt_Data_Nasc) + Anos, DatePart("m", txt_Data_Nasc) + Meses, Day(txt_Data_Nasc)), Date)
       
           If Dias >= 30 Then
           Dias = 0
           Meses = Meses + 1
           End If
           
           If Meses >= 12 Then
           Meses = 0
           Anos = Anos + 1
           End If
           
           If intervalo = "" Then
           intervalo = IsNull(intervalo)
           End If
           
           
           Idade_Nascimento = Anos

Boas
veja se ajuda
Pina

Perfeito! Me ajudou muito. Mas meu problema continua. Pois as tabelas estão separadas da lógica, e o código parece não funcionar assim. Testei com as tabelas junto com a lógica, e funcionou perfeitamente. No entanto preciso usar o banco separado da lógica.

Perfeito Muito Obrigado a todos  Pela atenção. Este fórum é realmente excepcional.

Obrigado pelo retorno o forum agradece.