テキストボックスに何かを入力し、フォーカスが他のものに移動したときに、LostFocusイベントで入力内容のチェックをかけています。(文字数チェック、ストアドをつかって入力内容と一致するものがDBにあるかなど)
もし、入力が誤っている場合には他のものにフォーカスを移さず、そのテキストボックスにフォーカスを残したい(setfocusを使用)のですが、setfocusをしてもlostfocusされてしまうため、うまくいきません。
VBではValidateイベントというものがあるようですが、
VBAではみあたりません。
どなたかよい方法をご存知でしたら教えてください。
No.2ベストアンサー
- 回答日時:
>もし、入力が誤っている場合には他のものにフォーカスを移さず、そのテキストボックスにフォーカスを残したい
通常、テキストボックスに対しての入力(通常は文字入力後のEnterKeyを押すことや、フォーカスが移るような操作をした場合です。)にたいして
真っ先にBeforupdateイベントが発生します。
このイベントの中で入力が正しいかどうかを判断させ間違っていればこのイベントの引数であるCancelにTrueをセットしてこのイベント(関数)をExitしてください。入力に間違いがなければCancelにはなにもセットしなくてかまいません。
この時Access側でCancel=Trueであればこのテキストボックスに対する操作を破棄してフォーカスをロストする前の状態にとどめます。
Cancel<>Trueであればテキストボックスの変更を確定してAfterupdateイベントに移ります。
ですから、Beforupdateで入力チェックを行い、問題があればCanxel=trueでイベントを中止し、
問題がなければ次の処理をAfterupdateイベントに記述してください。
(Beforupdateイベント内では入力テキストボックス内の値が今変更しようとしている値になっています。しかしながらあくまでテキストボックスの変更が確定するのはBeforupdateイベントが終了してからです。)
お返事ありがとうございます。
教えていただいたように試してみたところ、
入力チェックを行うことができました。
動作をとめるにはCancelに値を返すんですね。
本当にありがとうございました。
No.1
- 回答日時:
LostFocusイベントではなくて
BeforupdateまたはAfterupdateイベントでは?^^
オブジェクトがフォーカスを失うとき(LostFocus)には編集中であれば
Beforupdate→Afterupdate→LostFocusと言う順番にイベントが行われるので
入力に問題があれば
Beforupdate、Afterupdateイベントでイベントをキャンセル(またはアンドゥ)してやればいい。
お返事ありがとうございます。
お礼が遅くなり申し訳ございませんでした。
BeforeUpdate、AfterUpdateを使用してみましたが
今一使い方が良くわからずうまくいきませんでした。
BeforeUpdate、AfterUpdateはコントロールとレコードが連結していないと使用できないのでしょうか?
もしご存知でしたら教えてください。
(私の作成しているテキストボックスは連結されておらず、入力された値を取得して、新たにSQL文でUpするようになっています。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) capeofdragonと申します。 Access2016を使っております。 あるフォームがあり、テ 2 2022/09/09 13:18
- Access(アクセス) Access の SetFocus について教えてください 5 2022/08/04 07:32
- Excel(エクセル) エクセルでシート保護のかかり方の違いとセルの非保護の設定 3 2022/08/09 10:02
- Visual Basic(VBA) Vba テキストボックスの文字列をボタンで入力するとテキストボックスの端の文字列が更新されない 2 2022/05/21 23:32
- その他(Microsoft Office) 1の行を固定した上でVBAを用いて日付順に自動並べ替え 2 2022/06/06 15:09
- Visual Basic(VBA) WordのVBAについて 5 2023/01/11 14:38
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- その他(Microsoft Office) パワーポイントやワード、エクセルでのスライドショーやテキストの微調整について 1 2023/01/12 05:50
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
6
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
7
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
8
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
9
Access VBAでタブコントロールで選択するタブをしていするには。
Access(アクセス)
-
10
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
11
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
14
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
15
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
16
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
17
実行時エラー 3020の対策
Access(アクセス)
-
18
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
19
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
20
「RunSQL」と「Execute」の違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
ユーザーフォームのSetFocusが...
-
3SK22というFETはデュアルゲー...
-
どこにもフォーカスを当てたくない
-
矢印(左右)キーでイベントを...
-
卒業アルバムの集合写真!アイ...
-
酸素ボンベのレギュレーターか...
-
85年に開催された神戸グリー...
-
携帯電話が安いところ。
-
池袋サンシャイン通りでキャッ...
-
VBAでのユーザーフォーム上...
-
C# ReadOnlyのTextBoxで
-
Private Sub内でSubをCallしたい
-
マイクラのマルチサーバーが起...
-
油性マジックの消し方
-
プログラムからTera Termに文字...
-
人生の時間の長さの感じ方
-
『エッジの効いた○○』の意味。
-
フラッシュをホームページにア...
-
スマホ用のモバイルバッテリー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
どこにもフォーカスを当てたくない
-
エクセルVBA テキストボックス...
-
他の人には声だして挨拶してる...
-
ユーザーフォームのSetFocusが...
-
炊飯器のセットの音と出来上が...
-
C# ReadOnlyのTextBoxで
-
業務に差し支えのないテンキー...
-
GridViewでハイライトを使用し...
-
コマンドボタンのEnterイベント...
-
矢印(左右)キーでイベントを...
-
油性マジックの消し方
-
OPPO A54 5Gを使っています。 ...
-
Accessの更新後処理で特定の条...
-
VBAでのユーザーフォーム上...
-
池袋サンシャイン通りでキャッ...
-
VBAのExitイベントについて
-
MFCでコンボボックスを選択不可...
-
中古本の店名ハンコの消し方
-
マイクラのマルチサーバーが起...
-
スプレットシートでフォーカス...
おすすめ情報