Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/ember.js/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 在SQL查询中使用列表框中的数据_Ms Access_Ms Access 2000 - Fatal编程技术网

Ms access 在SQL查询中使用列表框中的数据

Ms access 在SQL查询中使用列表框中的数据,ms-access,ms-access-2000,Ms Access,Ms Access 2000,我有一个表格,里面有一个列表框。列表框显示选择查询的结果,我希望用户能够按下按钮删除列表框中选择的项目。下面是当用户单击按钮时我想要运行的查询 DELETE * FROM Client WHERE (([Client].[ClientID])=[Forms]![UpdateDeleteClientInformationForm]![ClientFullNameListBox]); 问题是我不确定如何从列表框中的选择访问当前的ClientID。如何访问SQL查询中选定项的列表框中每列中的数据 目

我有一个表格,里面有一个列表框。列表框显示选择查询的结果,我希望用户能够按下按钮删除列表框中选择的项目。下面是当用户单击按钮时我想要运行的查询

DELETE *
FROM Client
WHERE
(([Client].[ClientID])=[Forms]![UpdateDeleteClientInformationForm]![ClientFullNameListBox]);
问题是我不确定如何从列表框中的选择访问当前的ClientID。如何访问SQL查询中选定项的列表框中每列中的数据


目前我对Access不是特别满意。

您可以在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

请注意,文本数据类型需要引号。

您可以在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

请注意,文本数据类型需要引用项。

谢谢。我试图避免使用VBA,但我想在这种情况下这是最好的选择。谢谢。我试图避免使用VBA,但我想在这种情况下它是最好的选择。