ACCESS 西暦を入力する入力制限（テキストボックス）

入力規則
(>=2000 And <=3000) Or Is Null

エラーメッセージ
西暦を入力してください

小数点を入れたりして５文字を超えたとき

変更時イベント

Private Sub txtEY_Change()

If Len(Me.txtSY.Text) > 4 Then
MsgBox (“４桁の数字を入れてください”)
Me.txtSY = Null
End If

End Sub