如何使用列表框从表中删除特定记录

Question

我创建了一个列表框，用于显示表格记录和访问表单中的删除按钮

我希望当用户从列表框中选择一个项目并单击删除按钮

时

使用SQL代码删除在列表框中选择的相关项

我找到了这样的代码：

Dim strSQL As String
strSQL = "DELETE FROM Tbl_DCC WHERE Text_AgnetName = " & Me.List_DCC.Column(0) &" and "& Me.List_DCC.Column(2)
CurrentDb.Execute strSQL
Me.List_DCC.Requery

但它不起作用 我很感谢你的指导

Answer 1

尝试将单引号放在where子句

中

Dim strSQL As String
strSQL = "DELETE FROM Tbl_DCC WHERE Text_AgnetName = '" & Me.List_DCC.Column(0) &"' and '"& Me.List_DCC.Column(2) & "'"
CurrentDb.Execute strSQL
Me.List_DCC.Requery