删除按钮的代码运行不了.说是查询语法错误.在rkID=2中

刘知有　发表于：2020-05-25 00:27:44 　

Private Sub Command4_Click()
Dim strSQL As String
Dim currentID As String
currentID = Form_wlrk.Form.rkID
strSQL = "DELETE tblwlrk.* FROM tblwlrk WHERE rkID='" & currentID '""
If MsgBox("你确认要删除当前已选择的记录么?", vbOKCancel, "提示!!!!") = vbCancel Then
Exit Sub
End If
DoCmd.SetWarnings False '屏蔽系统警告
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoEvents
strFrm = Form_入库!Child2.SourceObject
Form_入库!Child2.SourceObject = strFrm
MsgBox "你所选择的记录已删除!", vbInformation, "提示!!!"
End Sub

以上是删除按钮的代码.运行到DoCmd.RunSQL strSQL发生错误.请问是什么原因,说是查询语法错误.在rkID=2中

Top

仙来发表于：2020-05-25 15:09:16

Dim strSQL As String
Dim currentID As String
currentID = Form_wlrk.Form.rkID
strSQL = "DELETE tblwlrk.* FROM tblwlrk WHERE rkID='" & currentID & "'"

If MsgBox("你确认要删除当前已选择的记录么?", vbOKCancel, "提示!!!!") = vbCancel Then
Exit Sub
End If
DoCmd.SetWarnings False '屏蔽系统警告
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoEvents
strFrm = Form_入库!Child2.SourceObject
Form_入库!Child2.SourceObject = strFrm
MsgBox "你所选择的记录已删除!", vbInformation, "提示!!!"

Top

刘知有发表于：2020-05-25 20:47:25

仙来大师, 这不是和原来一样的吗?

Top

仙来发表于：2020-05-26 09:14:39

strSQL = "DELETE tblwlrk.* FROM tblwlrk WHERE rkID='" & currentID '""

strSQL = "DELETE tblwlrk.* FROM tblwlrk WHERE rkID='" & currentID & "'"

这两句一样吗？

Top

刘知有发表于：2020-05-26 21:51:05

非常感谢仙来老师.搞好了

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

删除按钮的代码运行不了.说是查询语法错误.在rkID=2中