access2007开发教程第7章第3节
时 间:2011-10-12 09:18:16
作 者:Access软件网编著 ID:8 城市:上海 QQ:2851379730
摘 要:7.3 动态报表的制作
正 文:
7.3 动态报表的制作
我们接着上一小节继续进行。第一步:单击模块窗格,进入此前第四章建立的 variable 模块的代码编辑界面,如下图所示:
新起一行,输入以下代码:
'在模块中声明报表数据源的全局变量
Public strRptReSource As String
保存输入,关闭模块。
第二步:切换到窗体选项卡,直接进入 frmBxmx_child 窗体的代码编辑界面,会看到有这样一段代码:
Public Sub FindEnd()
Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx", "报销编号", True)
End Sub
如上所示,在第二行与第三行中加这样一行代码:
' 记录下来报表的数据来源
strRptReSource = Forms!usysfrmMain!frmChild.Form.RecordSource
整段代码实际上就是给修改正了这个样子:
Public Sub FindEnd()
Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx"," 报销编号 ", True)
'记录下来报表的数据来源
strRptReSource = Forms!usysfrmMain!frmChild.Form.RecordSource
End Sub
确认输入无误后,保存输入并关闭该窗体。
第三步:切换到报表窗格,进入 rptBxmx 报表设计界面,打开报表属性,单击事件选项卡,进入打开事件的代码编辑界面,如下图所示:
在鼠标光标处输入以下代码,如下图所示:
'赋上查找后的报表数据源
If strRptReSource = "" Then
Me.RecordSource = Forms!usysfrmMain!frmChild.Form.RecordSource
Else
Me.RecordSource = strRptReSource
End If
保存输入,关闭报表,就这样,动态报表的制作就完成了。可以实际测试一下,比如,我们在报销管理界面,执行类别名称等于住宿费的查询,之后再单击预览按钮,如下图所示:
现在大家就会发现现在的报表与之前的报表的不同之处,之前的报表无论你如何更换查询条件,单击预览按钮之后,报表始终是一样的,而现在则可以随查询条件的不同而不同,从这个意义上说,之前的报表即是静态报表,当前的可以称为动态报表。
当前的报表是基于类别进行的统计的,如果我想浏览或者打印按人员进行的统计的报表,又该如何做呢?如何让系统提供一个可以切换的面板呢?我们在下一节将着手解决这个问题。
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)