Office中国论坛/Access中国论坛

标题: 如何在窗体设置按钮,实现删除表中记录 [打印本页]

作者: jimolaojiu 时间: 2008-2-18 19:54
标题: 如何在窗体设置按钮,实现删除表中记录
access能不能实现窗体设置按钮,删除窗体查询后指定的记录(表的记录).在单位工作中遇到了这样的问题,患者出院后,他的相关记录完全没有用了,想一次性从表中删除.但具体操作通过窗体按钮.VB如何写代码?

[ 本帖最后由 jimolaojiu 于 2008-2-18 19:56 编辑 ]

作者: fangkinght 时间: 2008-2-18 19:59
DoCmd.RunSQL ("delete from 表 where 字段 = 病人")

作者: jimolaojiu 时间: 2008-2-18 20:26
试了不好用,不知道什么原因.我把它传上来.删除记录按钮

[ 本帖最后由 jimolaojiu 于 2008-2-18 20:40 编辑 ]

作者: fangkinght 时间: 2008-2-18 20:37
Private Sub c_post_all_Click()
On Error Resume Next
      DoCmd.Hourglass False
      DoCmd.RunSQL ("delete from inv_trans_detail where bill = '" & bill & "'")  '删除表中指定条件记录,BILL可在窗体中设置的条件
      'DoCmd.RunSQL ("delete from inv_trans_head")  '删除整张表的记录
      DoCmd.SetWarnings True
End Sub

作者: 流星剑客 时间: 2008-12-12 15:04
标题: 回复 3# 的帖子
老兄：密码是多少呀

作者: 付谦 时间: 2009-11-19 08:37
在单击事件中

CurrentDb.Execute "Delete [表名].* FROM [表名] where [表名]![姓名]='" & MM & "';"

作者: 张杨 时间: 2010-8-19 11:35
老兄解压密码多少？让我们大家也学习学习吗？

作者: valentine 时间: 2010-9-21 14:38
本论坛下载的文档，解压都用：www.office-cn.net

作者: zhowgq 时间: 2010-9-22 07:40
我用的删除代码(相关字段为数字)
Set con = Application.CurrentProject.Connection
Set rs = CreateObject("ADODB.Recordset")
stSql = "DELETE 表名.*FROM 表名 WHERE 表名.相关字段=" & [窗体].Form![控件]
rs.Open stSql, con, 1
相关字段为文本
WHERE 表名.相关字段='" & [窗体].Form![控件]&"'"

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