0

我有一个包含一些值的列表框。我想做这份工作：

如果用户滚动此列表框并选择一个值，则会运行一个查询，并且查询的结果应该显示在一个文本框中。我已将此代码编写为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

我怎么解决这个问题？
有没有更好的方法来完成这项工作？

4

1 回答 1

0

您是否尝试过列表框的 _Click() 事件？

于 2013-06-27T09:41:11.177 回答