MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Cálculo de Datas

    avatar
    Flavioabc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 22/08/2017

    Cálculo de Datas Empty Cálculo de Datas

    Mensagem  Flavioabc 1/3/2021, 17:42

    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.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    Cálculo de Datas Empty Re: Cálculo de Datas

    Mensagem  DamascenoJr. 2/3/2021, 04:09

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Flavioabc gosta desta mensagem

    avatar
    Flavioabc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 22/08/2017

    Cálculo de Datas Empty Re: Cálculo de Datas

    Mensagem  Flavioabc 2/3/2021, 11:46

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4118
    Registrado : 29/06/2012

    Cálculo de Datas Empty Re: Cálculo de Datas

    Mensagem  Noobezinho 2/3/2021, 13:29

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 13/12/2016

    Cálculo de Datas Empty Re: Cálculo de Datas

    Mensagem  Alexandre Fim 2/3/2021, 14:49

    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álculo de Datas Atuali11


    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
    Anexos
    Cálculo de Datas AttachmentCalcData.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 10 vez(es)


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    Flavioabc gosta desta mensagem

    avatar
    Flavioabc
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 22/08/2017

    Cálculo de Datas Empty Re: Cálculo de Datas

    Mensagem  Flavioabc 3/3/2021, 17:57

    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.
    Anexos
    Cálculo de Datas AttachmentCredencial ER.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 5 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    Cálculo de Datas Empty Re: Cálculo de Datas

    Mensagem  DamascenoJr. 6/3/2021, 14:16

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 14/6/2021, 07:02