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


    [Resolvido]Contador de Data

    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    [Resolvido]Contador de Data Empty [Resolvido]Contador de Data

    Mensagem  Maurício Bruno 8/3/2017, 13:23

    Bom Dia!

    Novamente recorro ao conhecimento para solução de uma dificuldade que estou enfrentando.

    Tenho uma tabela onde eu coloco os tipos de documentos e a quantidade de dias que ele vale a partir da data de emissão na tabela Tbl_Tipo_Doc está assim: Documento XPTO Vigência (Dias): 120, porém, tenho um formulário relacionado com a Tbl_Documento onde eu seleciono o documento e insiro a data de emissão (Campo Dt_emissão) e o campo Data de Vencimento teria que vim a data de emissão + a quantidade de dias de vigência do documento XPTO cadastrado na outra tabela.

    Desde já agradeço pela ajuda.
    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    [Resolvido]Contador de Data Empty [Resolvido]Contador de Data

    Mensagem  Maurício Bruno 8/3/2017, 15:18

    Pessoal,

    Consegui achar uma solução, segue abaixo a ideia para caso alguém necessite.

    Código:
    Private Sub txt_dt_Emissao_AfterUpdate()
    Me.txt_dt_vencimento = txt_dt_Emissao + Nz(DLookup("[Prazo de Vigência (Dias)]", "[Tbl_Cadastro_de_Tipo_Documento]", "[Documento]='" & Me.txt_documento & "'"), "")
    End Sub

      Data/hora atual: 28/3/2024, 17:06