[Resolvido]Status ativo mudar na data final do contrato

Boa noite

Tenho o campo "ativo" (sim ou não)

Gostaria que mudasse automático, quando atingir a data final.
Tentei fazer mas não consegui implementar corretamente

............... codigo ...............
If Me.txtDataFimContrato = Now() Then
cxSelecaoAtivo = True
Else
cxSelecaoAtivo = False

Exemplo:
Início Contrato
[01/01/2018]

Fim Contrato
[30/12/2018]

[x]Ativo

Bom dia Nilton,

Tente trocando o "= Now()" por ">=Date"
Coloquei o sinal de maior (>) na condição pois se a data for anterior a hoje, a validação também funcionaria.

Bom dia amigo,

Agradeço pela resposta.

Coloquei o código no "evento ao receber o foco" do campo txtDataFimContrato,
mas não aconteceu nada, não entendi o que falta para ser executado.

Olá a todos,

Nilton, tente assim no evento do form "No atual"

Código:

Private Sub Form_Current()
    If Me.txtDataFimContrato >= Date Then
        cxSelecaoAtivo = True
    Else
        cxSelecaoAtivo = False
    End If
End Sub

Abraço a todos

Funcionou, porém deu erro em registro que está com o campo txtDataFimContrato vazio.
E no campo que está com a mesma data do dia, abre a tela "Você não pode ir para o registro especificado".

Tente:

if me.txtDataFimContrato = "" then
cxSelecaoAtivo = True
else
cxSelecaoAtivo = False
end if

Olá, teste assim:

Código:

Private Sub Form_Current()
If  len(me.txtDataFimContrato &"")>0 then
    IF Me.txtDataFimContrato > Date then
        cxSelecaoAtivo = True
    Else
        cxSelecaoAtivo = False
    End If
End IF
End Sub

Abraço a todos

Irei analisar assim que chegar em casa.

Aqui envio a cópia do projeto.

Neste código também não aceitou, existe um erro.

Private Sub Form_Current()
If  len(me.txtDataFimContrato &"")>0 then
   IF Me.txtDataFimContrato > Date and    ' Acusa "erro de sintaxe" nesta linha
       cxSelecaoAtivo = True
   Else
       cxSelecaoAtivo = False
   End If
End IF
End Sub

Olá, foi pelo celular e agora é igual.
Retire o AND e teste.

Abraço

Troque o and por then

Valeu amigo,
Funcionando perfeitamente.

Olá a todos,

Tauron, obrigado é o que dá às vezes através do celular

Abraço a todos

Não há o porque, estamos todos uns pelo outros