Cálculo de Datas

Boa tarde, amigos

Estou começando agora no Access e tenho uma dificuldade quanto a cálculo de datas.
Tenho um campo chamado "Data de Nascimento" e um outro campo "Data de de Validade".

O campo data de validade deve obedecer o seguinte critério:

Data de Validade = Data de Nascimento + 18 anos - 1 dia

Exemplo:
Data de Nascimento: 01/01/2000

Campo "Data de Validade" deve exibir automaticamente a data 31/12/2017

Qual a regra que eu devo inserir para ter essa validação?


Desde já, Agradeço

DamascenoJr, agradeço a sua atenção.

Infelizmente, não consegui fazer a formula funcionar, com certeza por inépcia da minha parte.

Vou enviar meu arquivo para ficar mais didático para mim.

Desde já agradeço

Flavio

Como está iniciando no Access, procure desde já colocar os nomes nos controles, isso vai te facilitar

e quem ler teu código.

Procure também não deixar espaço nos nomes dos controles, senão terá que usar os Colchetes

[data de validade] , [Data de Nascimento]

dtValidade ou dt_Validade (dt_Val)

dtNascimento ou dt_Nascimento (det_Nasc)


Nos formulários poderá escrever o nome correto nos rótulos.

{ }'s

Balem

Aproveitando a oportunidade, fiz um pequeno exemplo pra vc entender como é feito o cálculo da data usando o procedimento do amigo DamascenoJr.

Entre no modo estrutura do formulário "frmCalcData" e abra o evento "Após Atualiza" do campo "Data de Nascimento", conforme abaixo:

Clique nos TRES PONTINHOS




Código que realiza o cálculo


Private Sub Data_de_Nascimento_AfterUpdate()

   Me.[Data de Validade] = DateAdd("d", -1, DateAdd("yyyy", 18, [Data de Nascimento]))

End Sub



OBS.: Fiz o exemplo conforme o nome das colunas que vc informou.
Como disse o nobre amigo e mestre Noobezinho, procure sempre criar uma nomenclatura sem o uso de ESPAÇO entre as palavras para seus campos, tabelas, relatorios, consultas e etc, conforme já mencionado.

boa sorte

Boa tarde amigos.

Tentei a todo custo aplicar a solução proposta, mas não consegui fazer funcionar.
Mais uma vez, a humildade de aceitar que eu que não estou sabendo aplicar a solução.

Renomeei os controles todos sem espaço.

E estou enviando o anexo pra vocês me ajudarem (aprendi que devo enviar zipado, rsrsrsrsrsr)

Aguardo a ajuda dos colegas...

Espero um dia chegar no nivel de poder ajudar outros iniciantes em Access assim como vocês trem me ajudado.

Flavioabc, aparentemente você está tentando fazer o cálculo pela tabela. Talvez por costume com o modelo de funcionamento do Excel.

No Access não funciona assim!

Basta seguir a dica a mensagem nº 5, ou seja, crie um formulário.