テキストボックスに何かを入力し、フォーカスが他のものに移動したときに、LostFocusイベントで入力内容のチェックをかけています。(文字数チェック、ストアドをつかって入力内容と一致するものがDBにあるかなど)
もし、入力が誤っている場合には他のものにフォーカスを移さず、そのテキストボックスにフォーカスを残したい(setfocusを使用)のですが、setfocusをしてもlostfocusされてしまうため、うまくいきません。
VBではValidateイベントというものがあるようですが、
VBAではみあたりません。
どなたかよい方法をご存知でしたら教えてください。
No.1
- 回答日時:
LostFocusイベントではなくて
BeforupdateまたはAfterupdateイベントでは?^^
オブジェクトがフォーカスを失うとき(LostFocus)には編集中であれば
Beforupdate→Afterupdate→LostFocusと言う順番にイベントが行われるので
入力に問題があれば
Beforupdate、Afterupdateイベントでイベントをキャンセル(またはアンドゥ)してやればいい。
お返事ありがとうございます。
お礼が遅くなり申し訳ございませんでした。
BeforeUpdate、AfterUpdateを使用してみましたが
今一使い方が良くわからずうまくいきませんでした。
BeforeUpdate、AfterUpdateはコントロールとレコードが連結していないと使用できないのでしょうか?
もしご存知でしたら教えてください。
(私の作成しているテキストボックスは連結されておらず、入力された値を取得して、新たにSQL文でUpするようになっています。)
No.2ベストアンサー
- 回答日時:
>もし、入力が誤っている場合には他のものにフォーカスを移さず、そのテキストボックスにフォーカスを残したい
通常、テキストボックスに対しての入力(通常は文字入力後のEnterKeyを押すことや、フォーカスが移るような操作をした場合です。)にたいして
真っ先にBeforupdateイベントが発生します。
このイベントの中で入力が正しいかどうかを判断させ間違っていればこのイベントの引数であるCancelにTrueをセットしてこのイベント(関数)をExitしてください。入力に間違いがなければCancelにはなにもセットしなくてかまいません。
この時Access側でCancel=Trueであればこのテキストボックスに対する操作を破棄してフォーカスをロストする前の状態にとどめます。
Cancel<>Trueであればテキストボックスの変更を確定してAfterupdateイベントに移ります。
ですから、Beforupdateで入力チェックを行い、問題があればCanxel=trueでイベントを中止し、
問題がなければ次の処理をAfterupdateイベントに記述してください。
(Beforupdateイベント内では入力テキストボックス内の値が今変更しようとしている値になっています。しかしながらあくまでテキストボックスの変更が確定するのはBeforupdateイベントが終了してからです。)
お返事ありがとうございます。
教えていただいたように試してみたところ、
入力チェックを行うことができました。
動作をとめるにはCancelに値を返すんですね。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
5
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
6
accessで未入力の場合にメッセージボックスを表示したい
Access(アクセス)
-
7
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
-
8
新規レコード行を非表示にしたい
Access(アクセス)
-
9
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
10
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
11
ACCESSのサブフォームからメインフォームへの移動
Access(アクセス)
-
12
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
13
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
14
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
15
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
16
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
17
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
18
空白はダメというエラーの表示(アクセス)
その他(データベース)
-
19
Access_Formのデザインビュー画面を拡大表示
Access(アクセス)
-
20
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
他の人には声だして挨拶してる...
-
ユーザーフォームのSetFocusが...
-
Private Sub内でSubをCallしたい
-
Verilog HDLで立下りと立ち上が...
-
『エッジの効いた○○』の意味。
-
コンピュータをクラッシュさせる?
-
マイクラのマルチサーバーが起...
-
炊飯器のセットの音と出来上が...
-
小学校で遊ぶてんかのルールに...
-
池袋サンシャイン通りでキャッ...
-
ガードレールの高さについて
-
どこにもフォーカスを当てたくない
-
OPPO A54 5Gを使っています。 ...
-
コマンドボタンのEnterイベント...
-
油性マジックの消し方
-
F503iにSVって表示されてるんで...
-
中古本の店名ハンコの消し方
-
[Enter]エンターキーでカーソル...
-
C# ReadOnlyのTextBoxで
-
Accessの更新後処理で特定の条...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
どこにもフォーカスを当てたくない
-
他の人には声だして挨拶してる...
-
C# ReadOnlyのTextBoxで
-
エクセルVBA テキストボックス...
-
ユーザーフォームのSetFocusが...
-
コマンドボタンのEnterイベント...
-
矢印(左右)キーでイベントを...
-
業務に差し支えのないテンキー...
-
炊飯器のセットの音と出来上が...
-
小学校で遊ぶてんかのルールに...
-
『エッジの効いた○○』の意味。
-
テキストボックス入力後、警告...
-
至急回答お願いします。 間違え...
-
OPPO A54 5Gを使っています。 ...
-
GridViewでハイライトを使用し...
-
マイクラのマルチサーバーが起...
-
VBAのExitイベントについて
-
Accessの更新後処理で特定の条...
-
油性マジックの消し方
-
テキストボックスの入力チェッ...
おすすめ情報