更新後運行時錯誤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

你試過用ListClick的_Click（）事件嗎？