ACCESSフォームでの時間の妥当性チェック

質問

ACCESS2003でフォームを作り、時間（２桁）を入力するようにしています。
クエリーを経由していますが、基となるテーブルの型はテキスト型２桁です。
時間は01から24までで
24以上なら入力しなおし、"1"なら01、という風に簡単にエラーメッセージを出したり、内部で変換したりする方法あったら教えてください。
ちなみに現在は
If Len([相談時間_開始時]) = 1 Then
Me.相談時間_開始時 = "0" & Me.相談時間_開始時
End If
If Len([相談時間_開始時]) > 2 Then
MsgBox ("相談開始時が３桁以上です")
[相談時間_開始時].SetFocus
Exit Sub
End If
のようにフォーカス喪失時にVBでチェックをかけています。

回答No.1

noname#182251 · ベストアンサー

代案です。
コンボボックスを使用して「０１～２４しか入力できない」ようにしては拙いんでしょうか？

回答No.2

Gin_F

定型入力プロパティ
入力規則プロパティ
エラーメッセージプロパティ

あたりのヘルプを確認してみてください。