[Resolvido]Detetar campo data menor que data atual

Boa tarde

O que falta para funcionar

Private Sub Senha_GotFocus()

If Me.Data_Val < Date Then
MsgBox "Prazo Acabou."
DoCmd.Close
End If

End Sub

Não pode ser ao receber o Foco ?

Obrigado

Ao receber o foco não vai funcionar, deve utilizar o evento depois de atualizar.

Private Sub Senha_AfterUpdate()
   If Me.Data_Val < Date() Then
       MsgBox "Prazo Acabou."
       Me.Senha.Value = ""
       DoCmd.Close
   End If
End Sub

Por outro lado deve verificar se o VBA está a ler corretamente o Me.Data_Val como data.

Nem assim

Private Sub Senha_AfterUpdate()
Dim Data_Val As Date
If Me.Data_Val < Date Then
      MsgBox "Prazo Acabou."
      Me.senha.Value = ""
      DoCmd.Close
  End If
End Sub

Ficou assim

If Date > CVDate(Data_Val) Then
MsgBox "Prazo Acabou."
DoCmd.Quit
End If