[Resolvido]Problemas para usar o Difdata

Oi pessoal,

Mais uma vez preciso da ajuda de vocês. Tenho um arquivo do access e precido calcular a diferença de data atual e a data de nascimento de um aluno, tendo como resultado a idade apenas em anos. Faço isso tranquilamente no formulário, usando uma função Datadif, mas a informação não aparece na tabela ou mesmo na consulta. Já tentei aplicar essa função na consulta, mas não deu certo. Já vi sobre esse assunto aqui no fórum mas não atendeu a minha necessidade. Queria saber se existe uma forma simples de fazer isso, pois não entendo nada de VBA.

Obrigada

Mas essa informação não precisa mesmo ficar na tabela. Não costumamos armazenar cálculos em tabelas. Se você já tem a data de nascimento armazenada na tabela você pode calcular a idade no formulário, no relatório, em um campo calculado na consulta. Armazenar esse cálculo na tabela só iria servir para ocupar espaço no banco de dados, espaço esse que poderá lhe fazer falta futuramente.

Obrigada por responder. Na verdade eu preciso que as informações se acumulem, pois neste banco de dados eu criei uma especie de "arquivo morto" com os dados inativos para uso posterior. Mas não precisa aparecer na tabela, pode aparecer na consulta mesmo.

Na consulta você pode usar campos calculados. Para isso, abra ela no modo estrutura, vá no cabeçalho da primeira coluna livre e digite algo como:

Código:

Idade: DateDiff("y";[nomeDoCampoDaData];now())

Veja se é isso.

Fui na consulta e criei uma coluna nova e adicionei o código no "campo", mas ele não fez o calculo infelizmente.

O campo da data de nascimento está nessa consulta? Você colocou o nome dele no lugar de "nomeDoCampoDaData"

Puxa! Não sei onde fica o "nomeDoCampoDaData". Tirei um print screen. Vai no anexo.

Obrigada

O anexo não veio.

Estou enviando!

Agora entendi o que vc quis dizer. É o nome do campo dentro dos colchetes na fórmula, né.
Estou mandando outro anexo pra ver se é isso.

Faltou colocar "Idade: " antes do DiffData:

Código:

Idade: DateDiff("y";[NASCIMENTO];now())

Eu coloquei, mas não adiantou. Ele não calcula o data de nascimento no campo Idade. Quando eu digito essa informação no formulario, a informação fica só no formulário. Na consulta fica em branco.

Era melhor postar BD para dar um help...

Tente colocando "yyyy" no lugar de "y"

Sim, eu já alterei o "yyyy" para "y", mas nada aconteceu.

Eu sugeri o contrário, alterar de "y" para "yyyy"

Verifique se o nome do campo está correto porque isso tem que funcionar desse jeito.

Deu certo, valeu! Mas com a função DifData("yyyy";[nascimento];Data()). Só não consegui alterar o nome da coluna da Consulta que fica com o nome: "Expr1", mas isso é o de menos.

Muito Obrigada

Um grande abraço!

Deveria mudar o nome para o que vem antes dos dois pontos conforme coloquei no exemplo anterior:

Código:

Idade: DifData("yyyy";[nascimento];Data())

Nesse caso, o título da coluna exibido na visualização de dados seria Idade.

Olha é incrivel, mas sabe como eu consegui que aparecesse o nome? Assim: "IDADE": DifData("yyyy";[nascimento];Data()). Mas aparece com as aspas mesmo. Tentei do jeito que vc falou, mas sumiu as informações do campo idade. Mas já ta bom assim.

Obrigada

Deve ser diferenças de idiomas. Mas, se quiser, pode tentar fazer isso abrindo a consulta em modo SQL e lá, tentar alterar o nome, que ficaria algo parecido com isso:

Código:

SELECT tbl.Código, tbl.DataNasc, DateDiff("yyyy",[DataNasc],Now()) AS [Idade]
FROM tbl;

O "AS" indica ao Access para usar "Idade" como título para coluna. Se quiser, abra a sua consulta nesse modo e veja se consegue alterar por aí. Se der certo, abra de novo no modo estrutura e diga-nos de que forma ficou lá.

Boa noite,

Sim! Deu certo. Apareceu "Idade" como eu queria!

Muitíssimo Obrigada

E como ficou quando abre a consulta em modo estrutura?

Desculpa a demora pra responder!

Na estrutura ficou assim

IDADE: DifData("yyyy";[data de nascimento];Data())

Valeu!

Engraçado que era exatamente o que estavas a tentar colocar na estrutura da consulta, não? Mas o importante é que funcionou