如何写删除记录事件代码

陈燕春　发表于：2018-10-22 18:19:03 　

现在需要通过编写按钮事件代码，来达到删除表中记录的目的，请问如何实现？

仙来发表于：2018-10-22 19:31:11

执行一个删除查询 Dim strSQL As String Dim currentID As String currentID = Form_frmYg_sg_List.Form.ygID strSQL = "DELETE tblCodeyg.* FROM tblCodeyg WHERE ygID='" & currentID & "'" If MsgBox("您确认要删除当前已选择的记录么？", vbOKCancel, "提示") = vbOK Then DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True DoEvents MsgBox "您所选择的记录已被删除！", vbInformation, "消息" End If

Top

陈燕春发表于：2018-10-22 20:30:43

谢谢！现在想删除掉“年级巡查总表”中“扣分数量”中分数为2的记录，以下代码需要怎样修改？

Dim strSQL As String

strSQL = "DELETE FROM 年级巡查总表 WHERE 扣分数量＝2"
DoCmd.RunSQL strSQL

Top

leoyoung 发表于：2018-10-22 20:58:23

少了*

strSQL = "DELETE * FROM 年级巡查总表 WHERE 扣分数量=2"

Top

陈燕春发表于：2018-10-22 21:02:36

加了*也是不行呀

Dim strSQL As String

strSQL = "DELETE FROM 年级巡查总表 WHERE 扣分数量 is null"
DoCmd.RunSQL strSQL

上面这个就可以正常执行，我想应该是where后面这部分出了问题。

Top

仙来发表于：2018-10-22 21:18:49

Dim srSQL As String
srSQL = "DELETE 年级巡查总表.*, 年级巡查总表.备注, 年级巡查总表.扣分数量 FROM 年级巡查总表 " _
& "WHERE (((年级巡查总表.备注)='请假') AND ((年级巡查总表.扣分数量)=2));"
DoCmd.RunSQL srSQL

点击下载此附件

Top

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

Access交流中心

如何写删除记录事件代码