Textboxの制御について

現在年月日をmdbに格納するために
Format(Text1(0), "0000") & Format(Text1(1), "00") & Format(Text1(2), "00")
とプログラムしているのですが、このままだとインデックス(0)、(1)は空白の場合データがつめられて格納されてしまいます。
そこでIf Text1(0) = "" Then
Text1(0).Text = "0000"
End If
If Text1(1) = "" Then
Text1(1).Text = "00"
End If
と制御しているのですがこれだとTextBoxに0が表示され不具合がでてきてしまうのです、、、
これを防ぐにはどのようなプログラムをくむべきでしょうか、、、

No.3 ベストアンサー 回答者： taocat 回答日時： 2005/11/04 22:52

こんばんは。

TextBoxの文字列を数値に変換してからでないとダメだと思いますが。

例えば、Val関数を使用するとか。


Format(Val(Text1(0)), "0000") & Format(Val(Text1(1)), "00") & Format(Val(Text1(2)), "00")
　
　
以上です。

No.2 回答者： noname#27115 回答日時： 2005/11/04 21:45

#1さんのように初期値を設定するのが一番です、が、

空白も必然的にはいってしまう場合があるというのであれば、、

If Text(0)="" Or Text(1)="" Then Exit Sub

という風に処理を抜けてしまえばいいと思います。

No.1 回答者： sendaitaro 回答日時： 2005/11/04 20:27

こんばんわ、ＶＢ？でしょうか

なら
現在年月日を格納するのが前提なら
Text1.Item(0) = Mid(Now,1,4)
Text1.Item(1) = Mid(Now,6,2)
Text1.Item(2) = Mid(Now,9,2)
では？