vba - 更新後の実行時エラー 2115

Question

いくつかの値を含むリストボックスがあります。私はこの仕事をしたい：

ユーザーがこのリストボックスをスクロールして値を選択すると、クエリが実行され、クエリの結果がテキスト ボックスに表示されます。AfterUpdateリストボックスのイベントとしてこのコードを書きました。しかし、私はこのエラーが発生します:

Private Sub List2_AfterUpdate()
  Dim rst As DAO.Recordset
  Set rst = CurrentDb.OpenRecordset("SELECT XValue, YValue,Wert FROM tb_DCM_Daten WHERE (FzgID=" & Forms!frm_fahrzeug!ID & " AND [Name]='" & List2.Value & "')")
  If rst.RecordCount <> 0 Then
    If IsNull(rst.Fields("XValue").Value) Then
      Text10.SetFocus
      Text10.Text = "-"
    End If
  Else
  MsgBox "The record set is empty"
  End If
End Sub

どうすればこの問題を解決できますか?
この仕事をするためのより良い方法はありますか？

Answer 1

listbox の _Click() イベントを試しましたか?