
いつもお世話になっております。
ありがとうございます。
マルチページ内のエラー時に、テキストにフォーカスしたいのですが、
該当のエラーテキストではないページ(タブ)にカーソルがあった場合、
エラーとなってしまいます。
色々調べて、やってみたのですが、うまくいきません。
ご教授いただけると幸いです。
マルチページ内には、いくつかのテキストとチェックボックスがあります。
マルチページのページ数はmei_su = 5 です。
For i = 1 To mei_su
Set mychk = Me.Controls("chkMei5_" & i)
If mychk.Value = True Then
MsgBox "チェックされていますが、入力されていません。"
Set mytxt = Me.Controls("txtMei2_" & i)
mytxt.SetFocus
Exit Sub
End If
Next
MultiPage1.value = 0 とか、
Me.Controls("Page" & i).enable = true とかも
入れてみたのですが、ダメでした。
よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
>マルチページ内には、いくつかのテキストとチェックボックスがあります。
>マルチページのページ数はmei_su = 5 です。
ご説明とマクロが矛盾しているように思われます。
とりあえず変更前:
mytxt.SetFocus
変更後:
Me.MultiPage1.Value = mytxt.Parent.Index
mytxt.SetFocus
それとも,マルチページの「1枚のページの中には」1個のチェックボックスと1個のテキストボックスの1セットしか無くて(幾つかあるワケじゃなくて),マルチページの頁数とチェック-テキストの組数は同じですというイミなら,今のマクロのままでOKですが,それならもっと簡単に
変更後:
me.multipage1.value = i - 1
mytxt.setfocus
で十分です。
この回答への補足
keithin様、本当にありがとうございました。
For i = 1 To 5
Set mychk = Me.Controls("chkMei5_" & i)
If mychk.Value = True Then
Me.MultiPage1.Value = i - 1
Set mytxt = Me.Controls("txtMei2_" & i)
mytxt.SetFocus
MsgBox "エラーです。"
Exit Sub
End If
Next
ご指摘のようにi-1で十分でした。
本当にありがとうございました。
ご回答、ありがとうございます。
説明が悪くすみません。
マルチページの中には、5ページあります。
その1ページ1ページには、テキスト・チェックボックス等が9つあります。
txtMei1-1 ~ txtMei4-5
(txtMeiの後の数字がページ内の番号、次の数字がページ数としています)
chkMei5-1 等
Me.MultiPage1.Value = mytxt.Parent.Index
mytxt.SetFocus
を入れてみたのですが、
「エラー 438
オブジェクトは、このプロパティまたはメソッドをサポートしていません。」
となってしまいました。
私の入力が悪いのかもしれません。
すみません。
また、ご回答いただけると幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
UserForm.showでマルチページ1を見出し
Visual Basic(VBA)
-
VBAでマルチページのページ指定方法
Visual Basic(VBA)
-
4
Excel VBAでのMultipageの選択
Visual Basic(VBA)
-
5
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
6
ユーザーフォームでTextBox1にカーソルを移動したい
Excel(エクセル)
-
7
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
8
マルチページの初期表示ページを変える(Excel 2007 VBA)
Visual Basic(VBA)
-
9
ユーザーフォームのコピー?
Excel(エクセル)
-
10
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
ユーザーフォームをホイールでスクロールする方法(Excel2000VBA)
Excel(エクセル)
-
13
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
14
Excel VBA のマルチページ
その他(Microsoft Office)
-
15
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
16
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
17
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
18
Excel VBA:フォーム←→セルのアクティブ切り替え
Excel(エクセル)
-
19
ユーザーフォームの「page」の色
Access(アクセス)
-
20
UserForm1.Showでエラーになります。
工学
関連するQ&A
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
マルチってなんですか??
-
5
男女の問題について
-
6
「No bootable device ~」 と...
-
7
poruhabが閲覧出来ないのですが...
-
8
モンストで契約を切ったスマホ...
-
9
モンストデータ削除。 モンスト...
-
10
モンストデータ復元 モンストっ...
-
11
旦那のiTunes課金 用途は?
-
12
nasne外付HDD内のデータ救出に...
-
13
デジカメ画像(JPEG)が破損し参...
-
14
モンストのXFLAGのバックアップ...
-
15
引継ぎ期限過ぎてました。
-
16
モンストのバックアップできな...
-
17
ドリフトスピリッツの自分のID...
-
18
サーバーダウン
-
19
モンストでなんか萎えました。 ...
-
20
MiniSDを携帯ごと水没させた場合。
おすすめ情報