Regras de Validação com DATAS usando Dlookup

Amigos e amigas do fórum,

Tenho um formulário de controle de horas e desejo que ao preencher o Form não entre datas duplicas e datas mais antigas do que já está cadastrado para aquele mês.

Tentei de várias maneiras, segue o código sugerido mas com erros para minha situação:

Private Sub Data_BeforeUpdate(Cancel As Integer)
   Dim VerData As Date

   'busca na tabela tbPonto a data correspondente
   VerData = Nz(DLookup("Data", "tbUser", "Data = " & Me.Data.Value), 0)

   'verifica se a data digitada é igual ou inferior à data que se encontra cadastrada
   If Me.Data.Value <= Me.Data.Value Then
       MsgBox "Data digitada deve ser maior que a Data anterior!", vbCritical, "Controle de Horas"
       Cancel = True
   End If
   
End Sub


Agradeço a ajuda e atenção de todos!

Tente esse código, altera os nomes dos campos :

Código:


Private Sub ValidCapsSub_AfterUpdate()

Dim Atual As Date
Atual = Now()


    If CDate(ValidCapsSub) <= CDate(Atual) Then
     
          MsgBox ("ITEM VENCIDO!!!"), vbCritical, "Atenção!"
          DoCmd.CancelEvent
          Exit Sub

      End If

End Sub


Abraços