Access 2013 VBA如果不是日期格式则抛出错误

Question

我在Access 2013中有一个表单。我在该表单上有一个标记为ExpDateField的字段。我需要将日期格式化为“ddmmmyyyy”，即22Dec2015。如果日期没有这样格式化，我想抛出一个错误。到目前为止，我尝试了一百万种方法。我有类似的东西：

Private Sub ExpDateField_AfterUpdate()

If Not IsDate("ddmmmyyyy") Then
   MsgBox "Error"
End If

End Sub

我也尝试过格式化（2015年2月15日，“ddmmmyyyy”）并抛出类型错误。

Answer 1

尝试Err.Raise方法：

Sub erri()
err.Raise (100)
End Sub