前提
accessにおいて検索機能をVBAで作成したいです。コンボボックス、テキストボックスを作成し、その値を取得しようとして以下のプログラムを調べて書いたのですが、エラーが治りませんでした。
検索_nameがテキストボックス名、並べ替え_txがコンボボックス名です
発生している問題・エラーメッセージ
実行時エラー2185 コンソールがフォーカスを取得していないときに、コンソールのプロパティまたはメソッドを参照することができません
該当のソースコード
access
1Private Sub 検索_btn_Click() 2 '変数宣言 3 Dim text As Variant 4 Dim cmbText As Variant 5 6 検索_name.SetFocus 7 並べ替え_tx.SetFocus 8 9 '値を取得 10 text = 検索_name.text 11 cmbText = 並べ替え_tx.text 12 13 MsgBox text 14 MsgBox cmbText 15End Sub 16
試したこと
ネットで調べたらSetFocusを加えなけらば行けないことを知り、加えたけどエラーが治らなかった

回答1件
あなたの回答
tips
プレビュー
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
また依頼した内容が修正された場合は、修正依頼を取り消すようにしましょう。
2022/10/05 06:47