Ｐａｇｅ 107 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼フォームに入力されたデータ型をチェックしたいのですが。 まさ 02/11/19(火) 10:35 ┗Re:フォームに入力されたデータ型をチェックしたいのですが。 yu-ji 02/11/19(火) 11:27 ┗Re:フォームに入力されたデータ型をチェックしたいのですが。 まさ 02/11/19(火) 11:50 ─────────────────────────────────────── ■題名 ： フォームに入力されたデータ型をチェックしたいのですが。 ■名前 ： まさ <m-amemiya@globalstaff.co.jp> ■日付 ： 02/11/19(火) 10:35 -------------------------------------------------------------------------
| みなさまこんにちは。 いつもお世話になっております。 またまた質問させてくださいませ。 フォームのテキストボックスに入力された値が 日付の型になっているかチェックをし、 もし誤って入力された場合、メッセージボックスで 注意を促し、正しい型が入力されないかぎり その先には進めないようにしたいのですが、 Private Sub 日付_AfterUpdate() Dim kari As Variant kari = Me!日付 'データ型のチェック If IsDate(Me!) Then Else Beep MsgBox "日付ではありません！確認してください！", vbOKOnly + vbExclamation End If End Sub このように書いてみたのですが、 日付以外の値が入力されても、メッセージボックスはでるのですが 「ＯＫ」を押すと次の項目にカーソルが移動してしまいます。 どのようにしたら、カーソルを止めて置くことができるのでしょうか？ 何卒よろしくお願いいたします。 ＷｉｎＮＴ／Ａｃｃｅｓｓ２０００です。 |
| ▼まさ さん： >フォームのテキストボックスに入力された値が >日付の型になっているかチェックをし、 >もし誤って入力された場合、メッセージボックスで >注意を促し、正しい型が入力されないかぎり >その先には進めないようにしたいのですが、 > >Private Sub 日付_AfterUpdate() >このように書いてみたのですが、 >日付以外の値が入力されても、メッセージボックスはでるのですが >「ＯＫ」を押すと次の項目にカーソルが移動してしまいます。 文字通り、「AfterUpdate」イベントなので、もう修正後です。 なので、入力をはじきたいということであれば、BeforUpdateイベントを 使用するといいですよ。 else文の中で、Cancel=True すると、はじくことができます。 |
| yu-ji さま >文字通り、「AfterUpdate」イベントなので、もう修正後です。 >なので、入力をはじきたいということであれば、BeforUpdateイベントを >使用するといいですよ。 >else文の中で、Cancel=True すると、はじくことができます。 できました。 ありがとうございました。 |