Accessでコントロールがアクティブなのに実行時エラー2185が表示される

Question

### 実現したいこと

ここに実現したいことを箇条書きで書いてください。
- [ ] MicrosoftAccessのコンボボックスにデータの一部を入力すると、リストのデータがそれを含むものに制限されるようにする。

### 前提

MicroSoftAccessでデータベースを作成しています。

その中にデータを選択するコンボボックスがあるのですが、
そのコンボボックスのテキストボックス部にデータの一部を入力すると、
リストのデータがそれを含むものに制限されるようにしています。
また、上下キー操作で選択できるようにもしています。

ここで設定されたデータで、
レコードのフィルターを行っています。

FilterOn = Falseとしているときには、
コンボボックス内のデータを書き換えは問題なく動作します。
### 発生している問題・エラーメッセージ
FilterOn = Trueとしているときに、
コンボボックス内のデータを書き換えようとすると、
エラーが発生します。
```
エラーメッセージ
実行時エラー `2185': コントロールがフォーカスを取得していないときに、コントロールのプロパティまたはメソッドを参照することはできません。
```

### 該当のソースコード

```VBA
Option Compare Database
Option Explicit

Private WithEvents SelectName As Access.ComboBox    '顧客名称
Private WithEvents MyFrm As Access.Form
Private SQL1 As String                              '検索フィールド用SQL
Private SQL2 As String                              '並べ替え用SQL
Dim blClick As Boolean                              'クリックイベント用フラグ

Public Sub Bind(strSQL_select As String, _
                strSQL_sort As String, _
                objSelectName As Access.ComboBox)
                
    Set SelectName = objSelectName
    Set MyFrm = objSelectName.Parent
    SQL1 = strSQL_select
    SQL2 = strSQL_sort
    
    SelectName.OnChange = "[EVENT PROCEDURE]"
    SelectName.OnClick = "[EVENT PROCEDURE]"
    SelectName.OnKeyDown = "[EVENT PROCEDURE]"
       
End Sub

Private Sub SelectName_Change()
'    SelectName.SetFocus
    SelectName.RowSource = SQL1 & SelectName.Text & SQL2
'    SelectName.RowSource = SelectName.Text
    If blClick Then
        blClick = False
    Else
        SelectName.Dropdown
    End If
End Sub

Private Sub SelectName_Click()
    blClick = True
End Sub

Private Sub SelectName_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim objSelectNametext As String
    If KeyCode = vbKeyDown Then
        If SelectName.OnChange <> "" Then
            objSelectNametext = SelectName.Text
        End If
        SelectName.OnChange = ""
    ElseIf KeyCode = vbKeyUp Then
        If SelectName.ListIndex = 0 Then
            SelectName.OnChange = "[イベント プロシージャ]"
            SelectName.Text = objSelectNametext
            SelectName.Dropdown
        Else
            SelectName.OnChange = ""
        End If
    Else
        SelectName.OnChange = "[イベント プロシージャ]"
        objSelectNametext = ""
    End If
End Sub

```

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer

簡単なサンプルを作成して、質問のコードを設定して実験してみました。
コンボボックスの変更時のイベントプロシージャで、Filterプロパティでフォームのレコードを抽出コードを記述したら、FilterOn = True の時、同じエラーが発生しました。

WithEvents で設定で設定したイベントプロシージャと、コントロールに直接設定したイベントプロシージャの場合、
コントロールに直接設定したイベントプロシージャの方が先に設定されます。フォームにフィルターをかけると、レコード移動が発生しますので、その時点でフォーカスが外れます。

フィルターをかけるのを変更時ではなく、更新後処理にすればエラーなく実行できるのを確認しました。

一文字入力するたびに発生する変更時イベントで逐一フィルターをかける必要性はないように思いますが、いかがでしょうか。

Answer

### この回答はGPT-4による自動生成回答です
このエラーは、コントロールがフォーカスを持っていないときに、そのコントロールのプロパティやメソッドを参照しようとしているために発生しています。この問題を解決するには、`SelectName`コントロールにフォーカスを与える必要があります。

以下のように、`SelectName_Change`イベント内で`SelectName.SetFocus`を使用してフォーカスを設定してみてください。

```VBA
Private Sub SelectName_Change()
    On Error Resume Next ' エラーが発生した場合、次の行に進む
    SelectName.SetFocus
    On Error GoTo 0 ' エラー処理を元に戻す

SelectName.RowSource = SQL1 & SelectName.Text & SQL2
    If blClick Then
        blClick = False
    Else
        SelectName.Dropdown
    End If
End Sub
```

`On Error Resume Next`と`On Error GoTo 0`を使用して、`SetFocus`でエラーが発生した場合でもコードが次の行に進むようにしています。これにより、`SelectName`コントロールがフォーカスを持っていない場合でも、エラーが発生せずに処理が続行されます。

実現したいこと

前提

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

該当のソースコード

試したこと

補足情報（FW/ツールのバージョンなど）

この回答はGPT-4による自動生成回答です

関連した質問