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


2 participantes

    [Resolvido]Atualização da idade

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 126
    Registrado : 24/03/2012

    [Resolvido]Atualização da idade Empty [Resolvido]Atualização da idade

    Mensagem  cantu 6/1/2023, 11:54

    Bom dia ao Forum,

    Tenho um formulário que tem um campo com a data de nascimento e outro com a idade. A primeira vez que digito a ficha do cliente e quando coloco a data de nascimento automaticamente aparece a idade no campo seguinte. A maior parte dos campos depois ficam ocultos não permitindo editar os dados que é o caso do campo data de nascimento e do campo idade.
    O meu problema é que a idade não é atualizada e o que pretendo é que cada vez que entro na ficha do cliente a idade seja atualizada.
    No campo data de nascimento existe um evento "Depois de atualizar":

    * Private Sub TxtDtNascimento_AfterUpdate()
       If VBA.IsDate(Me.TxtDtNascimento.Value) Then
           Me.TxtIdade.Value = (VBA.Date - VBA.CDate(Me.TxtDtNascimento.Value)) \ 365
       End If
    End Sub

    Aguardo ajuda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualização da idade Empty Re: [Resolvido]Atualização da idade

    Mensagem  Alexandre Fim 6/1/2023, 13:20

    Olá Alberto,

    Não é o mais correto utilizar um campo na tabela para armazenar a Idade, pois esse dado pode ficar desatualizado, como está ocorrendo com teu sistema.
    Ao ter o campo Data de Nascimento no cadastro já é o suficiente para calcular a idade do indivíduo em qualuquer situação/rotina no sistema.

    Mas se vc quiser manter assim, sugiro que utilize a rotina no evento Form_Current,, conforme abaixo:

    Código:

    Private Sub Form_Current()
       
        If VBA.IsDate(Me.TxtDtNascimento.Value) Then
            Me.TxtIdade.Value = (VBA.Date - VBA.CDate(Me.TxtDtNascimento.Value)) \ 365
        Else
            Me.TxtIdade.Value = 0
        End If
       
    End Sub


    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Atualização da idade Setinf11
    Sistemas e Tecnologia Ltda

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 126
    Registrado : 24/03/2012

    [Resolvido]Atualização da idade Empty Re: [Resolvido]Atualização da idade

    Mensagem  cantu 10/1/2023, 10:41

    Obrigado pela ajuda, ficou a funcionar.... mas no entanto a sua sugestão deixou-me a pensar.
    Como ficaria a outra opção considerando que preciso do campo coma idade?
    Cumprimentos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualização da idade Empty Re: [Resolvido]Atualização da idade

    Mensagem  Alexandre Fim 10/1/2023, 13:04

    Olá Alberto,

    Você pode utilizar uma expressão em uma consulta para calcular a idade, e esta consulta vc pode usar em qualquer situação no sistema.
    Elaborei um pequeno exemplo.

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Atualização da idade AttachmentCalcIdade.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 21 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Atualização da idade Setinf11
    Sistemas e Tecnologia Ltda

    cantu gosta desta mensagem

    avatar
    cantu
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 126
    Registrado : 24/03/2012

    [Resolvido]Atualização da idade Empty Re: [Resolvido]Atualização da idade

    Mensagem  cantu 10/1/2023, 13:56

    Excelente!!
    Muito obrigado pela ajuda e pela dica
    Cumprimentos

    Conteúdo patrocinado


    [Resolvido]Atualização da idade Empty Re: [Resolvido]Atualização da idade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 05:58