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

    [Resolvido]preencher campo de vencimento automáticamente

    Compartilhe

    ClebinhoDG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 10/06/2013

    [Resolvido]preencher campo de vencimento automáticamente

    Mensagem  ClebinhoDG em Qui 23 Mar 2017 - 6:01

    olá, tenho um cadastro de criança, tem três campos, um campo de Data de nascimento, outro campo idade, (que já preenchido automaticamente), e tenho um campo chamado de data de vencimento, gostaria que ao eu colocar a data de nascimento, da criança, que o campo vencimento colocasse automaticamente a data de aniversário de 12 anos da criança, e se a criança já tiver 12 anos completado, aparecesse um aviso de msg box
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 524
    Registrado : 18/01/2013

    Re: [Resolvido]preencher campo de vencimento automáticamente

    Mensagem  CassioFabre em Qui 23 Mar 2017 - 12:08

    Bom dia,

    Eu pensaria numa função assim:
    Código:
    Function calculaIdade()
        If Not IsNull(txtNascimento) = True Then
            txtIdade = Right(Year(Date - txtNascimento), 2)
        Else
            exit function
        End If
       
        If txtIdade >= 12 Then
            MsgBox "A criança já passui mais de 12 anos.", vbInformation, "Idade"
        End If
       
        Me.txtAniversario = DateAdd("yyyy", 12, txtNascimento)
    End Function

    No evento Após Atualizar do txtNascimento, chame a função.

    Abraço.

    ClebinhoDG
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 10/06/2013

    Re: [Resolvido]preencher campo de vencimento automáticamente

    Mensagem  ClebinhoDG em Sex 24 Mar 2017 - 18:48

    valeu, deu certo, obrigado!

      Data/hora atual: Ter 21 Nov 2017 - 10:12