【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群 (群号:115120150) access源码网店
常见问答
技术分类
最新帖子
- 在某个窗体下,有一个t... (02-21 21:35)
- 报表中VBA画直线并使... (02-20 21:02)
- 怎么设置我输入一个代码... (02-20 12:55)
- 各位大神,我的acce... (02-19 15:17)
- access组合框中下... (02-19 12:31)
- 文本框多次输入数据,如... (02-18 16:57)
- 执行删除时窗体显示#已... (02-18 16:13)
- 请问全选中复制或选中一... (02-17 22:45)
- 请问输入的字符要变多,... (02-17 22:40)
- 如何制作下载本地文件的... (02-16 16:40)

学习心得
最新文章
- 平台自动升级设置错误,显示“没有找...(02.20)
- 【Access示例】连续窗体添加条...(02.19)
- 【Access基础】随机数函数--...(02.18)
- Access快速开发平台--分享一...(02.17)
- 【Access示例】--多选复选框...(02.17)
- 平台打不开,DAO360控件丢失,...(02.16)
- [张志MVP]Access每天3分...(02.16)
- 新输入数据时自动下拉组合框-通用方...(02.15)
- 【Access快速开发平台】Win...(02.15)
- Access快速开发平台--下面这...(02.13)
最新评论 查看更多评论(2)
报表的关闭时间要添加一个执行事件: Private Sub Report_Close() Call ShowPrintForm End Sub 或者在报表的关闭事件属性设置=ShowPrintForm() 刚开始没留意到,发现没有地方显示执行ShowPrintForm,后来发现是在报表关闭事件=ShowPrintForm(),跟双击打开编辑窗体一个原理。
不错,顶!
发表评论您的评论将提升作者分享的动力!快来评论一下吧!