运行时错误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（）事件？