[Resolvido]Aviso para fim de Data de Vigência

Boa noite grandes Mestres,

Fiz um banco de testes o qual necessito de ajuda na seguinte situação:

Existe a Data de Posse, a Data de vigência final, o prazo desta vigência em ANOS e uma caixa de texto para receber a mensagem
Vigente ou Vencido se a data de Posse SOMADA + ao Prazo "em anos" e o preenchimento deste formulário deve ser manual pois existem datas de vigências diferentes, chegando esta data da vigência ou maior que ela, a caixa de mensagem me informe Vencidou ou Vigente.

Depois disto queria fazer um relatório de Vencidos e não vencidos.

Não consegui montar esta sintaxe.

Creio que a idéia é bem simples.

Bom dia, edjunho
Para preencher a caixa TxtPrazoVigenciaAnos utilize o cálculo de anos entre a data de posse e a de fim de vigência
Para preencher a caixa TxtVigente, utilize código que compara a data de fim de vigência e a data actual:
If TxtDataActual

Boa tarde alexandre,

No caso do Prazo da Vigência, este campo tem que ser preenchido de maneira manual e deve ser encontrado depois deste preenchimento a data de Vigência final.

Com relação ao código If TxtDataActual eu não sei é como usá-lo.
Pode dar uma força.

Boa noite, edjunho
Nem percebi bem a descrição que fez, mas aqui vai:

If DateAdd("yyyy", PrazoVigencia, DtPosse) < DtVigemcia Then
Texto11 = "Vigente"
Else
Texto11 = "Vencido"
End If

Nomeie os controlos de acordo com as melhores práticas (várias vezes abordadas)

Boa noite Alexandre,

Fiz como me pediu, mas a caixa mensagem vencido/vigente não se altera independente do resultado.

Faltou também somar o 2 (anos) do controle prazoVigencia com a data de posse.

Seria a Data de posse + a soma da informação do controle prazoVigencia

Na prática:

DataPosse = 01/08/12 + 2 anos (informação do controle prazoVigencia) = resultado 01/08/14

Fiquei na dúvida onde colocaria este code (fiz ao carregar o formulário) seria o mais indicado?

Obrigado.

Bom dia, edjunho
Tem de ser depois de actualizar um dos campos que intervêm no cálculo

Alexandre,

Coloquei conforme orientação no campo Prazovigência, após atualizar.
Mudando o período em anos a Data final da vigência não muda.
Agora o status vigente ou Vencido está funcionando perfeitamente.

O que pode estar errado?

como interpretei o code:

Se o PrazoVigencia for < que a DtVigemcia então...
Não entendi qual o papel da DtPosse na Função.


If DateAdd("yyyy", PrazoVigencia, DtPosse) < DtVigemcia Then

Perdoe-me este vai e volta mais não sou tão experiente com códigos.

Alexandre,

Fuçando no fórum, encontrei outro caminho pela expressão Selmed, só não sei filtra o que é vigente e vencido a partir desta expressão.

O que acha?

Boa noite, edjunho
Veja as alterações que fiz, crie nomes de controlos de acordo com boas regras já muito divulgadas
Para introduzir dados, crie , sempre que possível, máscaras de introdução ou validação de campos

Ficou bacana mesmo Alexandre,

Só a data da vigência eu queria que fosse automática.

Seria Data de Posse + o "prazo" da vigência = Fim vigencia.

E como posso filtrar o valores "Vencidos" e "Vigentes" gerando um relatório.

Obrigado pela ajuda.

Boa tarde, edjunho
Provavelmente, o preenchimento que pretende é o que eu fiz agora.
https://dl.dropbox.com/u/24017093/MaximoAccess/Teste%20Claudio.zip
Sobre o relatório, pretende relatórios separados para vigentes e vencidos? pretende o mesmo relatório separados os vencidos dos vigentes? se sim, qual vem primeiro?

Separado para vigentes e vencidos.

Eis
https://dl.dropbox.com/u/24017093/MaximoAccess/Teste%20Claudio.zip

Alexandre, simplesmenteshow.
só não entendi porque quando abro o form não aparece o status vigente ou vencido. seria interessante aparecer quando carregado o form.
só este detalhe.
desde já sou agradecido pela sua atenção amigo.
aprendi muito a cada dia.

Coloque, NoActual do formulário:
Call TxtDtPosse_AfterUpdate

Coloquei. deu certo, mas ao visualizar o relatório veio a mgs: tipo de dados incompatível ns expressão de critério.

Aqui não deu erro. Disponibilize a bd

Alexandre,

Quando eu coloquei a expressão como indicado, realmente não deu erro.
Mas ao acrescenter alguns dados para testes apareceu o erro ao gerar o Relatório.

Boa tarde, edjunho
reveja os dados do registo 7 da tabela

Meu caro alenxandre, o campo estava vazio por isto dava erro né.
Testei preenchendo o campo. Deu certo.
Obrigado pela sua super ajuda irmão.
Deus abençoe seu conhecimento e dedicação ao próximo.
Fica na paz.