[Resolvido]Alterar para vencido o campo situação após o campo Vigencia Fim estiver com data ultrapassada

Prezados, boa noite!

Tenho um formulário de Cadastro onde existe um campo chamado (Fim da Vigência) e outro campo chamado (Situação).

Gostaria que toda vez que o campo (Fim da Vigência) ficasse com a data ultrapassada que automaticamente o campo (Situação) mudasse para vencido.

Segue anexo meu modelo exemplo.

Se algum amigo aí puder me ajudar, ficaria muito agradecido.

Caro Gilbert

Em uma nova consulta coloque essa instrução:

UPDATE tblAtaContrato SET tblAtaContrato.Situacao_AtaContrato = 2 WHERE (((tblAtaContrato.VigenciaFim_AtaContrato)

Em seu formulário principal, no evento "ao carregar", mande executar essa consulta atualização. Pode/deve criar um critério para evitar de executar essa atualização toda vez que abrir o formulário.

Espero ter ajudado

Abraço

Caro Gilbert

Outra opção é colocar a consulta em forma de código (abaixo) e executar "ao carregar" o formulário.

Dim db As DAO.Database
Dim strSQL As String

' Inicializar o objeto DAO.Database para o banco de dados corrente
Set db = CurrentDb()

' Query SQL de atualização
strSQL = "UPDATE tblAtaContrato SET tblAtaContrato.Situacao_AtaContrato = 2 " & _
"WHERE (((tblAtaContrato.VigenciaFim_AtaContrato) < Date()));"

' Executar a consulta
db.Execute strSQL

' Liberar a memória
Set db = Nothing

Espero ter ajudado

Abraço

Caro Gilbert

Baixe o db anexo e execute o formulário frmCadastroAtaContrario. Só atualiza o campo Situação uma vez por dia.

Abraços

Amigo, obrigado pela ajuda mas tentei executar o formulário do teu exemplo e está dando erro.
Segue anexo o print do erro.

Amigo, vou tentar te explicar melhor o que estou querendo. Tenho um formulário de cadastro de contratos onde eu lanço as informações pertinentes a cada contrato. Tenho um outro formulário em que eu faço as alterações na vigência de determinado contrato que foi renovado. No formulário de alteração eu gostaria que ao alterar a data no campo (Fim da Vigência) automaticamente o campo (Situação) assumisse o valor de Vigente ou Vencido.
Segue em anexo o db exemplo2 para melhor compreensão.

Desde já, muito obrigado pela ajuda!

Olá Gilbert, boa tarde.

A princípio, não entendi o motivo de você usar dois formulários. Um para cadastrar e outro para alterar. A questão do erro na data coloque date(). o restante faz o  que entendi que você necessita. Atualiza uma vez por dia o campo "situação", desde que tenha vencido. Isso vc pode colocar em qualquer formulário, de preferência no formulário principal.

Abraço

Deu certo, atendeu exatamente no que eu precisava. Muito obrigado por compartilhar seu conhecimento meu amigo. Deus abençoe sua vida e sua família!

Obrigado pelo retorno. Faltou marcar o tópico como resolvido.

Abraço

Obrigado!!