MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Atualização de Data Atual

    Compartilhe

    angelomonteiro1981
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 16/04/2017

    Atualização de Data Atual

    Mensagem  angelomonteiro1981 em Sex 27 Out 2017, 20:32

    Boa tarde,

    Tenho um formulário (FrmEnvolvido) que possui os campos:

    txtDataNascimento
    txtIdade
    txtDataAtual

    No EVENTO AO SAIR do campo "txtDataNascimento" o seguinte:

    Private Sub DataNascimento_Exit(Cancel As Integer)
    On Error Resume Next
    If Month(txtDataNascimento) > Month(Date) Then
    Me.txtIdade = DateDiff("yyyy", [txtDataNascimento], Date) - 1
    ElseIf Month(txtDataNascimento) < Month(Date) Then
    Me.txtIdade = DateDiff("yyyy", txtDataNascimento, Date)
    ElseIf Month(txtDataNascimento) = Month(Date) Then
    If Day(txtDataNascimento) <= Day(Date) Then
    Me.txtIdade = DateDiff("yyyy", txtDataNascimento, Date)
    ElseIf Day(txtDataNascimento) > Day(Date) Then
    Me.txtIdade = DateDiff("yyyy", txtDataNascimento, Date) - 1
    Me.Refresh
     End If
    End If
    End Sub


    Em virtude disso, ao digitar uma data de nascimento, o campo "txtIdade" é calculado automaticamente, ou seja, esse calculo toma como base a data do campo txtDataAtual, que é a data do sistema no momento em que foi realizado o referido cadastro.

    Só que, com o passar dos dias, meses e anos, a idade muda. Algo muito óbvio, não é mesmo?

    Só que, no meu formulário, os indivíduos cadastrados estão ficando com as idades estanques, ou seja, não mudam a medida que o tempo avança.

    Preciso que, o campo "txtDataAtual" sempre seja atualizado automaticamente com a data do respectivo dia, a medida que o calendário avança, de modo que a idade posse ir se atualizando, inclusive dos cadastros anteriores. Porém, este campo mantém sempre a data do dia em que o cadastro foi realizado.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3015
    Registrado : 06/11/2009

    Re: Atualização de Data Atual

    Mensagem  Assis em Sex 27 Out 2017, 23:24

    Boa noite

    A idade nunca deve ser gravada na tabela, pois como já descobriu ela não volta a alterar a não ser que o faça com uma atualização registo a registo.

    Para ter sempre a idade atualizada em todos os registos, tem de o fazer a partir de uma consulta.



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 11/11/2009

    Re: Atualização de Data Atual

    Mensagem  scandinavo em Sab 28 Out 2017, 15:14

    Um palpite coloca está mesma função no atual do form.

      Data/hora atual: Qua 22 Nov 2017, 20:07