[[20120502204711]]　『文字数の制限について』（taku）　ページの最後に飛ぶ

『文字数の制限について』（taku）

お世話になります。宜しくお願いします。

 ユーザーホームでTextBoxをつくり、17の数字を入力しています
今現在は、MAXLENGTHを17に設定し、それ以上入らないようにしています
実際は、17文字以下で入力されているケースが多く
17以外はNGのような表示って出来るのでしょうか？

 イメージは
17文字で有れば、そのまま進み
17文字以外であれば、再度入力を求めるような感じです
環境は、XP　2003です　　　　　　　　　　　　　　　　　　　　　　　（taku）

BeforeUpdateイベントを使用するといいかも（マナ）

マナさま

 早急に有難うございました

 Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(UserForm1.TextBox1) <> 17 Then
        MsgBox "桁数が足りません。17桁の入力をお願いします"
    End If
End Sub

 で出来ました。有難う御座いました。
足りなくっても、次の入力のテキストボックスに移動してしまうので

 Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(UserForm1.TextBox1) <> 17 Then
        MsgBox "桁数が足りません。17桁の入力をお願いします"
        Cancel = True
    End If
End Sub

 としました。
本当にご教授有難う御座いました。　　　　　　　　　　(taku)

コメント返信：

[ 一覧(最新更新順) ]

[[20120502204711]] 『文字数の制限について』（taku） ページの最後に飛ぶ

[[20120502204711]]　『文字数の制限について』（taku）　ページの最後に飛ぶ