accessにおいて、textの値を取得したい

Question

前提

accessにおいて検索機能をVBAで作成したいです。コンボボックス、テキストボックスを作成し、その値を取得しようとして以下のプログラムを調べて書いたのですが、エラーが治りませんでした。
検索_nameがテキストボックス名、並べ替え_txがコンボボックス名です

発生している問題・エラーメッセージ

実行時エラー2185

コンソールがフォーカスを取得していないときに、コンソールのプロパティまたはメソッドを参照することができません

該当のソースコード

Private Sub 検索_btn_Click()
    '変数宣言
    Dim text As Variant
    Dim cmbText As Variant

    検索_name.SetFocus
    並べ替え_tx.SetFocus
    
    '値を取得
    text = 検索_name.text
    cmbText = 並べ替え_tx.text
    
    MsgBox text
    MsgBox cmbText
End Sub

試したこと

ネットで調べたらSetFocusを加えなけらば行けないことを知り、加えたけどエラーが治らなかった

Answer 1

フォーカスは一つのコントロールしか持てません。
Valueプロパティを使えばフォーカスがなくても値を取得できます。

'値を取得
    text = 検索_name.Value
    cmbText = 並べ替え_tx.Value

Comments

[syosinsya109]

ありがとうございます。問題なく動きました！