Forma eklediğiniz metin kutusu DefaultValue özelliğine Date() yazarsanız bilgisayar tarihini almış olursunuz.
Tarihin manuel girilip soransında yapılan girişin bilgisayar tarihi ile kontrol edilmesi için formda tarih girilecek olan metin kutusu kontrolünün güncelleme sonrası olayına (bende Text14 siz kendi kontrol adınızı yazmalısınız) aşağıdaki kodu yazabilirsiniz.
If Me.Text14.Value <> Date Then
MsgBox "hatalı tarih girişi yaptınız..!"
End If