[Resolvido]Calcular Idade diariamente

Boa noite
Esta é a minha primeira mensagem, e parabenizo o fórum que é muito bom. Sou bastante leigo no access, mas precisei fazer um BD para controlar pacientes, em que necessito da idade completa no receituário, a data tem de ser correta e atualizada diariamente, encontrei aqui mesmo no fórum (http://maximoaccess.forumeiros.com/t283-calcula-idade), um exemplo que funcionou perfeitamente, só que como quero as datas para imprimir relatórios e receitas, acoplei os campos para uso posterior, só que para atualizar as datas adicionei um botão que atualiza cada registro em foco, queria saber como faço para que este botão quando acionado (Click) atualize todas as idades em todos os registros no meu BD e não apenas do registro em foco no meu formulário. Obs: como uso o cálculo de idade completo, todos os dias a idade do paciente altera.

Obrigado

Francisco

Olá Francisco, seja bem vindo ao forum. Ao que parece você está armazenando a idade na tabela. Essa não é a forma correta de se trabalhar. Os cálculos devem ser feitos apenas nos formulários e relatórios. Essa é uma das regras de normalização de banco de dados. Assim sendo, você apenas coloca a data de nascimento na tabela. Nos formulários e relatórios, você usa a data da tabela e a data atual para calcular a idade diretamente nesses elementos.

Olá, bom dia. Então tudo bem, desacoplei o campo, e o cálculo das idades não serão armazenada em uma tabela, só que como faço para ao avançar nos registros através do meu formulário para que as idades dos pacientes sejam atualizadas automaticamente, sempre estando atualizadas no formulário em relação a data atual, tentei, e quando avanço os registros, a idade é atualizada somente se o foco estiver no botão que uso para calcular a idade, se o foco estiver em outro campo a última idade calculada permanece no campo (cálculo da idade), mesmo a Data de Nascimento do paciente sendo alterada. Desculpe a minha "Noobice"

Como está fazendo esse cálculo? Em que evento e usando qual código? Poste o código para melhor visualização por gentileza.

Você está usando formulário simples ou formulário contínuo?

Olá, bom dia, estou enviando um pequeno BD, para você analisar, e se possível me orientar como resolver o problema. Aproveitei o exemplo que estava ai mesmo no Fórum
Não consegui enviar o BD está dando o seguinte erro: Obs. compactei em ZIP, só que usei o WINRAR e ficou com um tamanho de: 33,7 Kb
Os seguintes erros foram encontrados
Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb)
vou colocar o arquivo na pasta publica do Dropbox

Envie por favor para o email de um moderador que nós colocamos aqui. Vá ao perfil do mederador e veja se o email está disponível.

Aí está a BD

http://dl.dropbox.com/u/8157744/CalculaIdadeModificado.zip

Amigão como diz o meste JP....
Veja o Simples..

=Int(((Data()-[SeuCampoDataNascimentoNoFormOuRelatório])-1)/365,25)


*** Uma caixa desacoplada com essa instrução dentro....
** ela pega da data de nascimento contida em uma caixa texto, no form ou relatório

Saudações

Caro Harysohn, já usava um código semelhante:

"Private Sub Calcula_Idade_Click()

IdadeMorPrinc = Int((Date - [DataNascMorPrinc]) / 365.25)

Anos = Int((Date - [DataNascMorPrinc]) / 365.25)
Meses = Int((((Date - [DataNascMorPrinc]) / 365.25) - Int((Date - [DataNascMorPrinc]) / 365.25)) * 12)
Dias = Int((((((Date - [DataNascMorPrinc]) / 365.25) - Int((Date - [DataNascMorPrinc]) / 365.25)) * 12) - Int((((Date - [DataNascMorPrinc]) / 365.25) - Int((Date - [DataNascMorPrinc]) / 365.25)) * 12)) * 31)

End Sub"
Achava que funcionava perfeitamente, mas não atualiza automaticamente a idade do paciente quando entro no formulário (necessito deste recurso), e dai descobri que ele da diferença de até 2 dias na idade do paciente,alguns a idade está correta e em outros dá diferença daí prefiro agora usar o código que está aí no meu exemplo de BD, que adaptei de um programa que peguei aqui mesmo no Fórum (CalculoIdade)

Observe que este é diferente.. e não dá essa diferença..

=Int(((Data()-[SeuCampoDataNascimentoNoFormOuRelatório])-1)/365,25)

O seu exemplo aplicado os módulos de Idade e idade completa

http://dl.dropbox.com/u/26441349/CalculaIdade11_07_11.rar

Saudações

Muito bom Harysohn, é justamente o que eu queria, muito obrigado, agora teria como me orientar como fazer um relatório onde as idades dos pacientes estejam no relatório e atualizadas para eu poder imprimir.

No seu relatorio coloque o campo onde vai a data de nascimento assim como esta no seu form...

e aplique em caixas desacopladas assim como no seu form...

Se não quiser que a data de nascimento fique visível no relatorio, basta esconde-la ou diminuir-lhe o tamanho horizontal, deixando-a sem contorno.. assim a mesma não será vista.. pois ela é necessária para levar a data de nascimento à inatrução nas caixas onde se mostrará a idade..

Saudações

Muito bom, deu tudo certinho, pode colocar o tópico como resolvido, tenho outras dúvidas e logo as postarei. Muito Grato.

Amigão.. ai onde escreve a msg abaixo tem um botão resolvido.. é você quem o coloca..

O Fórum agracdece o retorno

Resolvido.

Bom dia,

Esta função foi desenvolvido pelo Harysohn:

=Int(((Data()-[SeuCampoDataNascimentoNoFormOuRelatório])-1)/365,25)

E eu gostaria de saber como eu poderia colocar para funcionar em uma consulta e exibi-la em um relatório, se é possível e como? Podem me ajudar?

Atenciosamente,

Adilson

http://dl.dropbox.com/u/26441349/dyl2011_09_08_11.rar

Saudações

Bom dia,

Valeu Harysohn, só não dou dez de nota a você, porque dez só Jesus, mas lhe dou nota 9,99999999999999999999999999.

Grato pela a ajuda,

Agora se possível mais uma ajuda, ainda na mesma consulta caso eu queira calcular o tempo de casa de um determinado aluno e o retorno seja dado em tantos anos, tantos meses, tantos dias, o que devo fazer?

Atenciosamente,

Adilson

Este exemplo é para idade em anos meses e dia.. e so substituir a Data pelo data de entrada na casa

http://dl.dropbox.com/u/26441349/CalculaIdade11_07_11.rar

Saudações

Bom dia,

Agradeçido Harysohn, funcionou perfeitamente, e bastante interessante aquele código.

Agradeçido

Adilson

Agradecemos o retono. Bom trabalho.