Ｐａｇｅ 73 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼テキストボックスに文字の入力制限を掛けたい ともこ 02/10/23(水) 23:09 ┗Re:テキストボックスに文字の入力制限を掛けたい yu-ji 02/10/24(木) 9:58 ┗Re:テキストボックスに文字の入力制限を掛けたい ともこ 02/10/24(木) 11:44 ─────────────────────────────────────── ■題名 ： テキストボックスに文字の入力制限を掛けたい ■名前 ： ともこ ■日付 ： 02/10/23(水) 23:09 -------------------------------------------------------------------------
| ACCESS2000で開発をおこなっております。 よろしくお願い致します。 実現したいのは、ACCESSフォーム上でユーザ認証画面を作成しているのですが ユーザ認証画面上の「ユーザIDテキストボックス」に、文字の入力制限を 掛けたいということです。 ユーザIDテキストボックスに入力可能な文字は ・半角英数字 のみとし、記号(例えば、@とか*とか）を入力した場合は エラーメッセージを出力するようにしたいです。 お力をお借り願えませんでしょうか。 |
| こんにちは。 ▼ともこ さん： >実現したいのは、ACCESSフォーム上でユーザ認証画面を作成しているのですが >ユーザ認証画面上の「ユーザIDテキストボックス」に、文字の入力制限を >掛けたいということです。 > >ユーザIDテキストボックスに入力可能な文字は >・半角英数字 >のみとし、記号(例えば、@とか*とか）を入力した場合は >エラーメッセージを出力するようにしたいです。 まず半角ということなので、テキストボックスのプロパティのIME入力モードを 使用不可に設定してください。 あとは記号かどうかのチェックなので、以下のようなイベントを記述してみださい。 ＃ちなみに、Option Compare をBinaryにしてるなら、<"A"と>"Z"の比較を ＃いれないと、英数大文字もOKにはならないです。 ************** Private Sub Tex_BeforeUpdate(Cancel As Integer) Dim StrLen As Long Dim cnt As Long Dim strCheck As String StrLen = Nz(Len(Tex), 0) For cnt = 1 To StrLen strCheck = Mid(Tex, cnt, 1) If Not IsNumeric(strCheck) Then If strCheck < "a" Or strCheck > "z" Then MsgBox "記号は入力不可です。" Cancel = True Exit For End If End If Next End Sub |
| ★yu-ji様 ありがとうございました！ 教えていただいたコードで、実現できました。 私が、プログラムの基本的な部分を理解せずに 開発を進めていることが良く分かりました。 今は、開発途中でいっぱいいっぱいなのですが 時間を見つけて勉強していこうと思います。 このたびは本当にありがとうございました。 |