[Resolvido]Não aceitar se maior que a data de hoje

bom dia


alguem sabe como faço para em um campo do access não permite que a data digitada seja maio que a data de hoje.

o campo que quero é no formato texto.

No evento após atualizar da caixa texto

If CDate(Me.SuaCaixaTexto) > Date Then
    Aqui sua Instrução caso seja maior
Else
    Aqui sua Instrução caso seja menor
End if


Cumprimentos.

não deu certo

qualquer data que coloco aparece a mensagem que coloquei

tanto faz colocar maior que a data de hoje como menor aparece a mensagem

quero que apareça só quando for maior que a data de hoje

Teste assim:

>=

If CDate(Me.SuaCaixaTexto) >= Date Then
Aqui sua Instrução caso seja maior
Else
Aqui sua Instrução caso seja menor
End if

Meu pitaco;

Trabalhar com datas em texto não é boa pratica;

Private Sub SeuCampo_AfterUpdate()
   If CDate(Format(Me.SeuCampo, "dd-mm-yyyy")) >= CDate(Format(Date, "dd-mm-yyyy")) Then
   MsgBox "Ainda por Resolver...", vbCritical
   Else
   MsgBox "Resolvido...", vbInformation
   End If
End Sub

resolvido... esse forum é demais... valeu pela a ajuda de todos...

Não se esqueça de clicar no Joinha da mensagem que o auxiliou.

Cumprimentos.