If Me.tarih > Date Then
MsgBox "Geçersiz Tarih", vbOKOnly + vbCritical, "Eksik Bilgi"
tarih = Date
End If
Tarih metin kutusunun Güncelleştirme Sonrasında olayına aşağıdaki kodu yazınız.