如何在窗体设置按钮,实现删除表中记录

jimolaojiu

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

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

fangkinght

DoCmd.RunSQL ("delete from 表 where 字段 = 病人")

jimolaojiu

试了不好用,不知道什么原因.我把它传上来.删除记录按钮

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

fangkinght

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

流星剑客

老兄：密码是多少呀

付谦

在单击事件中

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

张杨

老兄解压密码多少？让我们大家也学习学习吗？

valentine

本论坛下载的文档，解压都用：www.office-cn.net

zhowgq

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