Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何删除子窗体的数据?

老顽童  发表于:2013-06-08 17:22:14  
复制

在主窗体中做一个删除按钮,删除主窗体数据的同时也删除相关联的子窗体数据。怎么写代码?谢谢老师们。

 

Top
殷小宝 发表于:2013-06-08 23:37:58

currentdb.execute"delect from 主窗体源表 where id='" & me.id & "'"

currentdb.execute"delect from 子窗体源表 where id='" & me.id & "'"



老顽童 发表于:2013-06-17 10:09:05
我试了不能用啊,能否给个实例。谢谢!

老顽童 发表于:2013-06-17 17:08:21

已经解决!

在表关系中设级联删除关系即可。

If MsgBox("记录删除后不能恢复,你确定删除选中的数据吗?", vbYesNo + 32, "提示信息") = vbYes Then
        DoCmd.SetWarnings False     '关闭警告
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        Me.保养记录表查询.Requery
        DoCmd.SetWarnings True      '打开警告
        End If



总记录:3篇  页次:1/1 9 1 :