Access数据库培训
网站公告
·Access快速平台QQ群号:189307860    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

【Access示例】打开报表时自动将窗体最小化,关闭报表时恢复窗体

时 间:2016-04-16 08:46:32
作 者:杨雪   ID:42182  城市:南京
摘 要:此示例里面还包括新增,修改,删除,查询等功能,有兴趣的菜鸟们可以多多学习。
只是报表格式做的比较简单,重要的的是演示:打开报表时自动将窗体最小化,关闭报表时恢复窗体 这个功能。
正 文:

打开报表时自动将窗体最小化,关闭报表时恢复窗体示例,其实比较实用。

附   件:
示例下载

 

功能演示:

点击图片查看大图


重要源码

 

Private Sub cmdPreview_Click()
    gstrPrintFormName = Me.Name
    PrintReport acViewPreview
End Sub

Private Sub cmdPrint_Click()
    PrintReport acViewNormal
End Sub

Private Function PrintReport(View As AcView)
    On Error Resume Next
    DoCmd.Minimize
    DoCmd.OpenReport "rptBxmx", View
End Function


'用于新增、修改窗体中打开报表时自动将窗体最小化,以免挡住报表
Public Function ShowPrintForm()
    On Error Resume Next
'    DoCmd.SelectObject acForm, gstrPrintFormName
    DoCmd.SelectObject acForm, "FrmOpen"
    DoCmd.Restore
    gstrPrintFormName = ""
 
End Function


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

最新评论 查看更多评论(2)

2018/10/12 13:48:05KevinFan
报表的关闭时间要添加一个执行事件: Private Sub Report_Close() Call ShowPrintForm End Sub 或者在报表的关闭事件属性设置=ShowPrintForm() 刚开始没留意到,发现没有地方显示执行ShowPrintForm,后来发现是在报表关闭事件=ShowPrintForm(),跟双击打开编辑窗体一个原理。

2016/6/14 16:15:06王大哥1314
不错,顶!

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助