【初级入门】主窗体、子窗体如何共用一个删除按钮示例-落尘_小新
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


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

发表时间:2013/12/11 20:49:00 评论(2) 浏览(18301)  评论 | 加入收藏 | 复制
   
摘 要:有网友发贴求助:
主窗体、子窗体如何共用一个删除按钮?
随风 等级: 普通会员 ( △ ) 积分: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群(群号:198465573)
 
 相关文章
Access非记录集方式新增数据到子窗体\Access主窗体添加数...  【金宇  2012/2/6】
【Access源码示例】Access调用同一个非绑定数据源窗体实现...  【金宇  2013/1/7】
Access2003数据库快速开发教程(一)  【竹笛  2013/10/30】
Access2007数据库快速开发教程(一)  【竹笛  2013/10/30】
Access2010数据库快速开发教程(一)  【竹笛  2013/10/30】
常见问答
技术分类
相关资源
文章搜索
关于作者

落尘_小新

文章分类

文章存档

友情链接