テキストボックスの入力チェックを行うために下記のようなソースを記述しました。
下記を実行するとテキストボックスにどんな文字を入力してもメッセージボックスを表示し、
フォーカスが移動しない形となっております
(厳密にはボタンにフォーカスが移動した後、テキストボックスにフォーカスを移動しています)。
これは Me.テキストボックス.SetFocus のみを記述した所、次の場所にフォーカスが移動してしまい、
下記のように書くとフォーカスが移動していないように見えるため、このようにしました。
ただこの記述はいささか強引な感じなので、これを改良したいと思っております。
2回フォーカスを移動させるのではなく、フォーカス移動を抑止する方法がベストと思いますが、
方法が分からなかったので、何かしらアドバイスをいただけれる方がいらっしゃいましたらよろしくお願いします。
【ソース】
Private Sub テキストボックス_AfterUpdate()
MsgBox "エラー"
Me.ボタン.SetFocus
Me.テキストボックス.SetFocus
End Sub
以上、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
良く分かりませんが、下記のようなことでどうでしょうか。
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ret As Variant
ret = MsgBox("エラー")
If ret = 1 Then
Cancel = True
End If
End Sub
どうもありがとうございます。
お教えいただいた方法で目的の動作が達成できました。
また何かございましたら、ご教示いただければと思います。
この度はありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- その他(パソコン・スマホ・電化製品) ワードでテキストボックス内の文字を連動させない方法 2 2023/02/09 16:56
- Visual Basic(VBA) ユーザーフォームで銀行に対応した支店コードの入力ができません Sheet1のA列に銀行名、B列に銀行 5 2022/07/28 17:50
- Access(アクセス) アクセス 意図せずサブプロシージャを移動してしまうのを止めたい 1 2022/09/02 09:19
- C言語・C++・C# C#テキストボックスの文字を配列にいれてその後表示する 4 2022/07/17 04:47
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) ExcelVBAでユーザーフォームでテキストボックスなどからセルに連続して入力するコーディングの際の 2 2022/06/29 22:51
- Access(アクセス) Access の SetFocus について教えてください 5 2022/08/04 07:32
- Access(アクセス) docmd.gotorecordを起動するには 5 2022/06/17 15:20
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
どこにもフォーカスを当てたくない
Access(アクセス)
-
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
-
4
テキストボックスのフォーカスの判定
Visual Basic(VBA)
-
5
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
6
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
ACCESS フォームをそのまま印刷について
その他(データベース)
-
9
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
10
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
11
コマンドボタンのEnterイベント後に、フォーカスを移動したい。
その他(Microsoft Office)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
14
タブオーダーリストからのの削除
Excel(エクセル)
-
15
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
16
VBAのExitイベントについて
その他(プログラミング・Web制作)
-
17
ユーザーがクリックするまでフォーカスをつけない方法(Access VBA)
Visual Basic(VBA)
-
18
Accessの更新後処理で特定の条件を満たしている場合、フォーカスを移動させない方法
PowerPoint(パワーポイント)
-
19
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
20
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
どこにもフォーカスを当てたくない
-
エクセルVBA テキストボックス...
-
業務に差し支えのないテンキー...
-
C# ReadOnlyのTextBoxで
-
ユーザーフォームのSetFocusが...
-
VBAでのユーザーフォーム上...
-
他の人には声だして挨拶してる...
-
テキストボックスの入力チェッ...
-
Accessの更新後処理で特定の条...
-
Suicaでの自販機購入方法を教え...
-
『エッジの効いた○○』の意味。
-
ガードレールの高さについて
-
メモリの表記について
-
スプレットシートでフォーカス...
-
矢印(左右)キーでイベントを...
-
コマンドボタンのEnterイベント...
-
GridViewでハイライトを使用し...
-
タブコントロールのフォーカス...
-
DateTimePicker のEnable
-
Flashでスライドショーを作りたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
どこにもフォーカスを当てたくない
-
C# ReadOnlyのTextBoxで
-
業務に差し支えのないテンキー...
-
他の人には声だして挨拶してる...
-
エクセルVBA テキストボックス...
-
矢印(左右)キーでイベントを...
-
コマンドボタンのEnterイベント...
-
ユーザーフォームのSetFocusが...
-
Accessの更新後処理で特定の条...
-
GridViewでハイライトを使用し...
-
VBAのExitイベントについて
-
テキストボックス入力後、警告...
-
『エッジの効いた○○』の意味。
-
VB.NET ボタン押下で一つ前の...
-
フォーカスを移動させない方法
-
スプレットシートでフォーカス...
-
二台のノートパソコンを繋げて...
-
炊飯器のセットの音と出来上が...
-
小学校で遊ぶてんかのルールに...
-
MFCでコンボボックスを選択不可...
おすすめ情報