ms访问-在SQL查询中使用列表框中的数据

Question

我有一个表单，其中有一个列表框。列表框显示SELECT查询的结果，我希望用户能够按下按钮删除列表框中选择的项目。这是我想在用户单击按钮时运行的查询。

DELETE *
FROM Client
WHERE
(([Client].[ClientID])=[Forms]![UpdateDeleteClientInformationForm]![ClientFullNameListBox]);

问题是我不确定如何从列表框中的选择访问当前ClientID。如何访问SQL查询中所选项目的列表框中每列中的数据？

我现在对Access不是很满意。

Answer 1

您可以在VBA中构建查询。要删除的项目列表可以从多选列表框中获得，如下所示：

For Each itm In AListBox.ItemsSelected
    srem = srem & "," & itm
Next
srem = Mid(srem, 2)
sSQL ="DELETE FROM ATable WHERE ID IN (" & srem & ")"
CurrentDB.Execute sSQL, dbFailOnError

请注意，文本数据类型需要带引号的项。