[Resolvido]campo calculado em tabela access

Boas tenho uma tabela que tem um campo com data de nascimento gostaria de saber se é possível colocar um novo campo calculado que através da data de nascimento calculasse e preencher esse campo com a idade já tentei várias fórmulas de datas mas não consigo
Alguém me pode ajudar

Boa tarde Luis

Na tabela não deve armazenar o campo idade.
Porque quando grava o registo fica por exemplo com 18 anos, e assim ficará até que esse registo seja editado.

A idade tem de ser calculada numa consulta para estar sempre actualizada.

Quer postar só a sua tabela e o formulário aonde regista os dados.

Aguardo

boa tarde segue o exemplo em anexo
para alem da duvida acima gostaria de saber se existe alguma forma de trabalhar com um documento pdf em mala direta ou indicador como se faz com o word no botao de guia de ferias no formulario alardotem um codigo que preenche documento word atraves do word indicador ou mala direta
Obrigado

Luis

Está optimo sr assis
Em relação ao preencher indicadores de um documento pdf com os dados do access sabe algum codigo para colocar no botão eu tenho para word o seguinte codigo para abrir e preencher o documento word atraves dos indicadores:

Código:

Private Sub Comando124_Click()

Dim oApp As Object 'Cria uma variável objeto
Dim PastaArq, ArqModelo

'seta pasta do banco de dados
PastaArq = CurrentProject.Path

'Indicar nome do arquivo
'Requerimento Padrão. Argumentos: Nome, Cargo e DataNascimento
ArqModelo = "FERIAS_MILITARESNO.docx"

' Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
' Torna o MS Word visível
oApp.Visible = True
' Abre o documento base
oApp.Documents.Add (PastaArq & "\" & ArqModelo)

'Move cada campo para o indicador definido no documento
oApp.ActiveDocument.Bookmarks("NII").Select
oApp.Selection.Text = (NII)
oApp.ActiveDocument.Bookmarks("POSTO").Select
oApp.Selection.Text = (POSTO)
oApp.ActiveDocument.Bookmarks("CLASSE").Select
oApp.Selection.Text = (CLASSE)
oApp.ActiveDocument.Bookmarks("NOME").Select
oApp.Selection.Text = (NOME)
oApp.ActiveDocument.Bookmarks("MORADA").Select
oApp.Selection.Text = (MORADA)
oApp.ActiveDocument.Bookmarks("CODPOSTAL").Select
oApp.Selection.Text = (CODPOSTAL)
oApp.ActiveDocument.Bookmarks("CONCELHO").Select
oApp.Selection.Text = (CONCELHO)

oApp.Application.Quit

Set oApp = Nothing

End Sub

gostaria de saber se existe algum codigo para fazer o mesmo mas com documento pdf

Obrigado

Luis deixe o sr de lado.
Pode fazer isso num relatório e criar o PDF no access.
Crie um relatório com os campos que precisa e poste como quer fazer

Dúvida meio que Idênticas né amigo!
https://www.maximoaccess.com/t29833-formulario-para-abrir-relatorio-por-idade-inserida-em-textbox

boa noite assis
enviei uma mensagem particular com os documentos porque não podem ser publicos

Obrigado pela resolução ficou so a faltar o documento PDF e word