Office中国论坛/Access中国论坛

标题: 如何用代码来删除一子窗体中的所有记录阿！ [打印本页]

作者: birdsmile 时间: 2003-10-22 05:53
标题: 如何用代码来删除一子窗体中的所有记录阿！
大家好啊，现在想用事件过程来实现删除子窗体中的全部记录，该怎么写呢？麻烦大伙了，谢谢先：）详见附件：
[attach]2121[/attach]

作者: ADAM 时间: 2003-10-22 15:34
兩個辦法:
1.用向導精靈做一個刪除按鈕...
2:如果有設定主窗體記錄與子窗體記錄完整參照,則刪除主窗體記錄時,子窗體記錄一起刪除.
3.如果興刪除子窗體某一條記錄,則先加一條命令,將焦點參照到子窗體
刪除按鈕命令如下:
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click

End Sub

作者: birdsmile 时间: 2003-10-22 17:30
谢谢ADAM的回复，，不过要怪我没有说清楚，，我想要的是只删除子窗体中记录而保留主窗体记录，所以用向导做的就没有办法了，。“3.如果興刪除子窗體某一條記錄,則先加一條命令,將焦點參照到子窗體” 这个命令要怎么写啊，删除子窗体中的所有记录可以吗？

作者: ADAM 时间: 2003-10-22 19:03
用這個吧...
CurrentDb.Execute "delete * from 子表單參照資料表名 where 識別碼='" & Me.識別碼 & "'"

作者: ADAM 时间: 2003-10-22 19:22
先加一條命令,將焦點參照到子窗體:
DoCmd.GoToControl me.子表單名稱.Name

作者: 徐阿鹏 时间: 2003-10-22 20:39
[attach]2124[/attach]给你改了，你看看

作者: birdsmile 时间: 2003-10-23 17:06
哇，谢谢ADAM和阿鹏的热心帮忙！我先消化消化：）噢。。。先looklook去^^

作者: aries1912 时间: 2009-10-15 13:11
真是好用，多谢了

作者: zzgily 时间: 2009-10-18 15:07
呵呵~~~~~

作者: see000 时间: 2009-10-30 12:30
谢谢示例分享

作者: dbbygzy 时间: 2009-10-31 10:01
gggggg

作者: li08hua 时间: 2010-4-3 14:18
学习别人的知识1

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