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


3 participantes

    Consulta Idade

    avatar
    jefsni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 09/08/2013

    Consulta Idade Empty Consulta Idade

    Mensagem  jefsni 28/8/2018, 23:04

    Tem como fazer uma consulta que ao abrir pedir 2 idades entre 40 e 50 anos por exemplo e abrir todos os clientes que tenham entre 40 e 50 anos.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  Alexandre Fim 29/8/2018, 01:53

    Ola Jefsni,

    Sim. É possível, mas é necessário que no registro tenha a data de nascimento da pessoa para realizar o cálculo.
    É a função "DateDiff".

    Veja esse artigo:

    https://support.office.com/pt-br/article/calcular-o-n%C3%BAmero-de-dias-entre-duas-datas-e73f4810-ea5b-4f82-86cd-93853f8029bd

    No link acima mostra o número de dias entre datas, através do argumento "d".
    No exemplo abaixo, uso o argumento "yyyy" para calcular o nro. de anos:

    DateDiff("yyyy","07/08/1970",Now)
    Resultado é 48.



    Boa sorte

    []'s
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  crysostomo 29/8/2018, 16:43

    ja busquei e tentei colocar , esse que pega o campo do nascimento
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  Alexandre Fim 29/8/2018, 16:47

    Não conseguiu? Poste seu bd ...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  crysostomo 29/8/2018, 16:51

    ja tirei até os modulos que estava alterando, e esse que voce me mandou eu peguei no link do suporte tem caractere invalida ,
    perai
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  crysostomo 29/8/2018, 18:18

    https://drive.google.com/open?id=1J8AfFDfVT8MxBDmyqfAJftmEO4zJj79l
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  Alexandre Fim 29/8/2018, 19:05

    Cara,

    Meu Access aqui na consultoria é 2013 64 bits. Teria que alterar seus módulos para funcionar aqui, mas se eu te mandar alterado não vai funcionar ai.

    Faz o seguinte:

    No formulário que carrega os dados da pessoa, você coloca assim

    SeuCampoIdade = Int(DateDiff("yyyy", DataNascimento, Date) / 365)



    Boa sorte.

    []'s
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  crysostomo 29/8/2018, 21:01

    ja fiz , esta dando a mesma mensagem sintaxe invalida. com 3 mudulos diferente aqui , não consigo mostrar a idade , criei 3
    nacimento
    ano
    idade

    o campo data pega so o ano do campo nascimento , o campo idade subtrai [ano]-[com com ano atual ] e nada de certo
    na vdd esse tipo que tentei foi na vdd o que chamamos de "códigos embolados"
    Cara, ja fiz uma varredura e não consigo tambem estou com um modulo aqui , que nem vejo o erro , mas da erro.
    como é ruim no inicio , kk
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  Alexandre Fim 29/8/2018, 21:25

    Crysostomo,

    Não faz a chamada da função pra calcular a idade. Como escrevi na msg anterior, coloca a instrução num botão, ou num evento qualquer do campo:

    SeuCampoIdade = DateDiff("yyyy", Me.DataNasc, Date)

    Ai vai funcionar!!!

    Boa sorte

    []'s
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  crysostomo 29/8/2018, 21:36

    ja fiz , o acces manda a mesma mensagem que tem sintaxe invalida ou virgula de a mais

    agora coloquei um modulo que o problema é que ele não está encontrando o módulo
    https://drive.google.com/open?id=19ZgbAinIA7j3p4KFt6iCR7G8v2xzUrQs
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Consulta Idade Empty Re: Consulta Idade

    Mensagem  Alexandre Fim 29/8/2018, 21:38

    Segue exemplo de calculo de idade
    Anexos
    Consulta Idade AttachmentCalcIdade.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 56 vez(es)

    Conteúdo patrocinado


    Consulta Idade Empty Re: Consulta Idade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 05:47