[Resolvido]Contador de Data

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.

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