【初级入门】主窗体、子窗体如何共用一个删除按钮示例

来源:www.accessoft.com 点击数:19148 　 | 收藏 | 复制

时　间:2013-12-11 20:49:00
作　者:落尘_小新 ID：23308 城市：佳木斯
摘　要:有网友发贴求助:
主窗体、子窗体如何共用一个删除按钮？
随风　等级: 普通会员 ( △ ) 积分:2　城市:东莞发表于：2013-12-11 11:31:15
正　文:

有网友发贴求助:
主窗体、子窗体如何共用一个删除按钮？
随风　等级: 普通会员 ( △ ) 积分:2　城市:东莞发表于：2013-12-11 11:31:15

http://www.accessoft.com/bbs/showtopic.asp?id=20367

主窗体、子窗体如何共用一个删除按钮？

当光标在主窗体时，按’删除‘按钮是删除整张单，

当光标在子窗体时，按’删除‘按钮是删除子窗体数据选中项。

本示例是通过判断上次获得焦点控名称是否为子窗体控件名来实现

具体看示例:

点击下载此附件

Private Sub 删除记录_Click()
Dim ctl As Control
Set ctl = Screen.PreviousControl '返回对上次获得焦点的控件的引用
If ctl.Name = "子窗体" Then
strsql = "Delete * FROM 合约细项 Where IID=Forms!FrmOpen!子窗体.Form!IID;"
DoCmd.SetWarnings False ' 取消系统提示
DoCmd.RunSQL strsql ' 运行查询
DoCmd.SetWarnings True ' 恢复系统提示
Me.子窗体.Requery
Me.子窗体.SetFocus
MsgBox "成功删除子窗体记录."
Else
strsql = "Delete * FROM 合约 Where BID_NO=Forms!FrmOpen!BID_NO;"
DoCmd.SetWarnings False ' 取消系统提示
DoCmd.RunSQL strsql ' 运行查询
DoCmd.SetWarnings True ' 恢复系统提示
Me.Requery
MsgBox "成功删除主窗体记录."
End If
End Sub

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】