ACCESS VBA 文字抽出について 文字の抽出をVBAにて行いたいのですが教えてください テキス

ACCESS　VBA　文字抽出について

文字の抽出をVBAにて行いたいのですが教えてください

テキストボックス1に170626と入力を行う
その際必ず数値が6ケタしか入力できないようにする
6桁入力が完了すると、自動で
テキストボックス2に17
テキストボックス3に06
テキストボックス4に26
と分けて抽出を行う
このような仕様にしたいのですが可能でしょうか？

No.1 ベストアンサー 回答者： Sand_Dollar 回答日時： 2017/06/27 11:00

＞その際必ず数値が6ケタしか入力できないようにする

テキストボックス１のプロパティシート、データタブの入力規則に「Len([テキストボックスの名前])=6」
とすればよいです。6文字以外の時にメッセージを足したい場合は、その下のエラーメッセージ欄に
例えば「6文字で入力してください」とか記述すれば６文字以外の場合はメッセージが出ます。

抽出は、テキストボックス１の更新後処理イベントに以下のコードを書いてみてください。

Me.テキストボックス2 = Left(Me.テキストボックス１, 2)
Me.テキストボックス3 = Mid(Me.テキストボックス１, 3, 2)
Me.テキストボックス4 = Right(Me.テキストボックス１, 2)

6文字チェックもVBAで行うなら

If Len(Me.テキストボックス１) <> 6 Then
MsgBox "6文字で入力してください"
ELSE
　※上記のコード
End If

この回答へのお礼

対応できましたありがとうございました

お礼日時：2017/06/30 12:13