Office中国论坛/Access中国论坛

标题: 【Access VBA】用Docmd 删除记录 [打印本页]

作者: 盗梦 时间: 2013-9-26 09:33
标题: 【Access VBA】用Docmd 删除记录
本帖最后由盗梦于 2013-9-26 09:49 编辑

【Access VBA】用Docmd 删除记录

      删除记录有很多种方法，比较常用的有ADO、DAO 和 Docmd。

Docmd删除记录 DoMenuItem 方法：
      Me.子窗体.SetFocus
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
      DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
      Me.子窗体.Form.Requery    '删除后刷新子窗体以反映新的数据变化

Docmd删除记录 RunCommand 方法：
      Me.子窗体.Form.AllowDeletes=True '这句话很重要，如果是False，这个方法就不适用。后面有需要再自行修改回来
      Me.子窗体.SetFocus
      DoCmd.RunCommand acCmdDeleteRecord
      Me.子窗体.Form.Requery    '删除后刷新子窗体以反映新的数据变化

Docmd删除记录 RunSQL 方法：
      Dim strSQL As String
      Me.子窗体.SetFocus
      strSQL = "Delete from 表名 where 条件"
      DoCmd.RunSQL strSQL
      Me.子窗体.Form.Requery    '删除后刷新子窗体以反映新的数据变化

作者: access学习交流 时间: 2013-9-26 09:43
很好，学习了！！

作者: admin 时间: 2013-9-26 09:44
支持一下，这个不错！

作者: daisyjane 时间: 2013-9-26 09:44
谢谢

作者: tmtony 时间: 2013-9-26 09:45
不错的代码. 好的总结!

作者: huangli0356 时间: 2013-9-26 09:52
总结的好..支持一个.

作者: LeeTien 时间: 2013-9-26 16:08
不错，很有用

作者: daisyjane 时间: 2013-9-29 16:12
谢谢,强

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)