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

    [Resolvido]Ajuda campo data de nascimento

    Danielldc
    Danielldc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 23/05/2011

    [Resolvido]Ajuda campo data de nascimento Empty Ajuda campo data de nascimento

    Mensagem  Danielldc 12/1/2013, 18:12

    Boa Tarde à todos !

    Amigos, preciso de ajuda para a seguinte questão:

    No meu formulário eu tenho um campo chamado txtdata e outro txtidade, estou usando o módulo calcula idade simples (somente anos).

    Preciso que a idade seja atualizada automaticamente ao entrar no formulário, pois no momento estou tendo que fazer alteração no campo txtdata para que a idade seja atualizada.

    No evento após atualizar do campo txtdata uso o seguinte código:
    Me.Idade.Value = CalculaIdade(Me.DLN) & " " & ""
    Me.Idade.Requery

    Estou utilizando o Access 2007 com service pack 2.

    Formulário simples.

    no aguardo.
    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Ajuda campo data de nascimento Empty CalculaIdade

    Mensagem  Pina 12/1/2013, 18:41

    Bom dia Dani
    Copia este Modulo
    Function CalculaIdades(DataNascimento As Date)

    If IsNull(DataNascimento) Or DataNascimento > Date Then
    MsgBox "Data de nascimento inválida!", vbExclamation, "Erro"
    Exit Function
    End If
    Dim Anos, meses, dias
    Dim iAnos As Double, iMeses As Double, Intervalo As Double

    ' O resultado da diferença está em Double
    Intervalo = Date - DataNascimento

    ' Um ano tem exatamente 365,25 dias
    iAnos = Intervalo / 365.25
    Anos = Int(iAnos)
    iMeses = (iAnos - Anos) * 12
    meses = Int(iMeses)

    dias = DateDiff("d", DateSerial(DatePart("yyyy", DataNascimento) + Anos, DatePart("m", DataNascimento) + meses, Day(DataNascimento)), Date)

    If dias = 30 Then
    dias = 0
    meses = meses + 1
    End If

    If meses = 12 Then
    meses = 0
    Anos = Anos + 1
    End If

    Fim:
    If Anos > 1 Then
    Anos = Anos & " anos "
    Else
    Anos = Anos & " ano "
    End If

    If meses > 1 Then
    meses = meses & " meses "
    Else
    meses = meses & " mês "
    End If

    If dias > 1 Then
    dias = dias & " dias"
    Else
    dias = dias & " dia"
    End If

    CalculaIdades = Anos & meses & dias

    End Function

    Pina
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Ajuda campo data de nascimento Empty Re: [Resolvido]Ajuda campo data de nascimento

    Mensagem  Alexandre Neves 12/1/2013, 19:25

    Boa noite, Danielldc
    O tema foi movido para esta sala porque a sala de repositórios serve apenas para tal.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Danielldc
    Danielldc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 23/05/2011

    [Resolvido]Ajuda campo data de nascimento Empty Re: [Resolvido]Ajuda campo data de nascimento

    Mensagem  Danielldc 12/1/2013, 21:42

    Amigo Pina, fiz o que vc recomendou pórem nao deu certo.

    Eu preciso que a idade seja atualizada automaticamente ao entar no form, pois tenho várias pessoas cadastradas.

    no aguardo.
    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Ajuda campo data de nascimento Empty idadecompleta

    Mensagem  Pina 12/1/2013, 22:13

    Bom dia Dani
    vê se este exemplo dá?
    Anexos
    [Resolvido]Ajuda campo data de nascimento AttachmentIdadeCompleta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (58 Kb) Baixado 20 vez(es)
    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Ajuda campo data de nascimento Empty IdadeCompleta

    Mensagem  Pina 12/1/2013, 22:22

    Bom dia Dani
    Outro Exemplo
    Anexos
    [Resolvido]Ajuda campo data de nascimento AttachmentIdadeCompleta1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (157 Kb) Baixado 23 vez(es)
    Danielldc
    Danielldc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 23/05/2011

    [Resolvido]Ajuda campo data de nascimento Empty Re: [Resolvido]Ajuda campo data de nascimento

    Mensagem  Danielldc 13/1/2013, 00:00

    Amigo Pina, Boa Noite!

    Muito obrigado pela ajuda, depois de muito esforço e dedicação com os exemplos que você forneceu, consegui resolver meu problema.

    Valew

    Conteúdo patrocinado


    [Resolvido]Ajuda campo data de nascimento Empty Re: [Resolvido]Ajuda campo data de nascimento

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:30