[Resolvido]campo data

boa tarde !

Tenho uma tabela em que existem dois campos data.

1 - datahoje onde o valor padrão é =agora() EX : 27/09/2020

2 - o outro campo Data é preenchido pelo usuário quando fizer uma alteração.

Gostaria que hovesse uma aviso se o campo preenchido pelo usuário fosse > que a data do sistema (27/09/2020), no formulário.

obrigado

Boa noite.

Código:

Private Sub DataDoUsuario_AfterUpdate()
    Dim DataDoSistema As Date
    DataDoSistema = Date
    If Me.DataDoUsuario > DataDoSistema Then
        MsgBox "A data enserida pelo usuário é maior que a de hoje", vbInformation
    End If
End Sub


Funcionou perfeitamente , muito obrigado.

Sucesso