[Resolvidos]Calcular Idade em consulta evitando "#Erro" caso o campo data esteja vazio

Boa tarde:

Uso esta formula numa consulta para calcular a idade.

Idade: DifData("yyyy";[Nascido];Data())+(Data()
Só que se o campo da data de nascimento não for preenchido no formulário aparece "#Erro".
Será possivel evitar o "#Erro" e o campo ficar "Ou em Branco", ou "0".
Obrigado.

Tente:

Idade: Iif(NãoÉNulo([Nascido];DifData("yyyy";[Nascido];Data())+(Data()<DataSerial(Ano(Data());Mês([Nascido]);Dia([Nascido];"0")))))

Não testei, mas é por aí.

Boa tarde Criquio e Obrigado
Dá erro na coluna da consulta.
O inicio é mesmo assim "Idade: Iif(NãoÉNulo

Assis desculpe mas tem uma letra a mais no início.Penso que é Iff

Imagino que possa ser tambem uma questão de posicionamento dos parênteses. Estou sem meios de testar agora para ver.

Obrigado Vieira, mas mesmo corrigindo para If a função dá erro na consulta

Assis

O form vai buscar os dados à consulta? Se for no segundo critério coloque:

<>"IsNull"

É uma tentativa

Boa tarde
Para quem puder ajudar, fico grato.

http://dl.dropbox.com/u/8169944/Assis%20Fut.mdb

Obrigado

Boa tarde Assis,

Cole Esta Função em um Modulo:

Function CalculaAnos(meusminutos)
CalculaAnos = meusminutos \ 525600

End Function

E Crie a Consulta:

SELECT TabNasc.Nascido, IIf(CalculaAnos(DateDiff("n",[Nascido],Date())) Is Null,"Sem Registro",IIf(CalculaAnos(DateDiff("n",[Nascido],Date()))=0,"Menos de Um Ano",CalculaAnos(DateDiff("n",[Nascido],Date())) & " Anos")) AS Idade
FROM TabNasc;

Obrigado pela DICA foi perfeita Chsestrem

Valeu Grande,

Um Abraço.