[Resolvido]Erro 6 estouro

https://dl.dropbox.com/u/90217826/Romilda%20Agente.A.rar

Amigos de uma hora pra outra este bd que estou a desenvolver,começou a dar esse erro.Erro 6 estouro,não descobri a causa,instalei ele em outra máquina e faz a mesma coisa.

Obs:Fiz uma cópia do bd e comecei a tirar alguma coisa dele pra ver,foi quando exclui a parte da data de nascimento que calcula a idade completa que parou de dar aquele erro,mas presiso dessa parte.
Gostaria que os colegas dessem uma olhada pra ver oque aconteceu.

Obrigado pessoal.

Boa tarde,
Reveja a função fncIdadeCompleta

Boa tarde Alexandre,estive revendo,mas não encontrei nada diferente,não sei mesmo onde esta o problema.
Interesante que em outra cópia que tinha feito e guardado em outro local com uns 10 registros somente,faz o mesmo defeito,esquentei a cabeça.

Amigo, o problema está na função fncIdadeCompleta,
existe uma variável chamada Dias do tipo Byte que especialmente
na data de hoje está contando os dias do mês como negativo.
E como o tipo de dados é Byte apenas abrange de 0 a 255, da esse erro.

Caso queira resolver o problema e forma parcial, altere o tipo de
dados da variável Dias para Integer. Daí ela vai poder receber valores negativos.

Boas Marcelo,quem sabe sabe,substitui o Byte por Integer e deu certo,agora me diga não vai voltar a dar esse erro novamente com essa substituição?.
Abç.

Obrigado Marcelo e Alexandre,aprendi mais uma.
Um dia eu chego la.
Valeu.

Esse erro não, mas note que a soma dos dias
corridos será apresentado com um valor negativo
geralmente quando estivermos no dia 1º março de
de cada ano.

Gratos pelo retorno.

Kaynan e Marcelo

Acrescente a linha em vermelho na função:

...
DataRef = DateSerial(Year(Date), Format(Date, "mm") + (Format(DataNascimento, "dd") > Format(Date, "dd")), Format(DataNascimento, "dd"))
DataRef = IIf(Format(DataNascimento, "dd") <> Format(DataRef, "dd"), DataRef - Format(DataRef, "dd"), DataRef)
Dias = CDbl(Date) - CDbl(DataRef)
...

Sucesso!

Ola mestre Avelino,fiz como orientou,muito obrigado como é bom aprender com quem sabe das coisas.
Abçs,bom fim de semana.