質問します。 Access2000で日付をフォームから入力させます。 日付は月と日に別れています。その月フォームで「８」と入力するのではなく「０８」と入力させたいのです。 （月はテキストボックスです。） そこで以下のようなVBAを書きました。 Private Sub 月_Exit Dim MM As Variant MM = Len(Me!月) If MM = Not 2 Then Msgbox "２桁で入力してください。" Docmd.GotoControl ("月") End if そうしたら、「８」といれても、「０８」と入れても メッセージが表示されてしまいます。 さらにGotoControlが効いておらず、次の日付テキスト ボックスにフォーカスが移動してしまうのです。トホホ・・ こんな初歩的な質問でお恥ずかしいのですが・・・ 回答お待ちしております。