AccessVBA で月を２桁で入力させたい。

質問

質問します。
Access2000で日付をフォームから入力させます。
日付は月と日に別れています。その月フォームで「８」と入力するのではなく「０８」と入力させたいのです。
（月はテキストボックスです。）
そこで以下のようなVBAを書きました。

Private Sub 月_Exit
Dim MM As Variant
MM = Len(Me!月)
If MM = Not 2 Then
Msgbox "２桁で入力してください。"
Docmd.GotoControl ("月")
End if

そうしたら、「８」といれても、「０８」と入れても
メッセージが表示されてしまいます。
さらにGotoControlが効いておらず、次の日付テキスト
ボックスにフォーカスが移動してしまうのです。トホホ・・
こんな初歩的な質問でお恥ずかしいのですが・・・
回答お待ちしております。

回答No.2

ducati · ベストアンサー

なんでしたら、1桁で入れられたら2桁に直して代入させちゃったらどうでしょう？

If Len(Trim(MM)) = 1 Then
Me!月 = "0" & MM
End If

それと、Variantはあまり使わないほうがいいですよ。
余計なエラーの原因になります。

フォーカス移動はSetFocus使ったらどうでしょうか？
例えば、月のテキストボックス名が「txtMonth」なら
txtMonth.SetFocus

現状のままでいくなら
= Not 2 の部分を <> 2
で試してみてください。

お礼

ご指導、ありがとうございます。
ユーザに２桁にしろと命令するより、自動で２桁にしてあげたほうがいいですね。ということで自動更新のほうを使わせていただきました。
今回の例は他でもたくさん活用できそうです。
しかし、「Setfocus」はうまく出来ませんでした。
また、勉強します。
ありがとうございました。

回答No.1

noname#27115

MM = format(Me!月,"00")

でいけるような・・・