如何使用列表框

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