Access报表的应用的技巧.docVIP

Access报表的应用的技巧 　　摘要：合理运用Access报表内置的事件、方法、属性能够更深层次的设计报表，以解决一些报表难题。 　　关键词： Access；报表；技巧 　　中图分类号：TP312文献标识码：A文章编号：1009-3044(2007)15-30758-02 　　Application Skills of Access Reporting 　　LI Li 　　(Guizhou University Guiyang Medical College, Guiyang 550004, China) 　　Abstract:Utilize Access Reporting internal event，method and attribute rationally，enable designing reporting in deep level，to solve some reporting difficulties. 　　Key words:access；report form；skill 　　 　　1 引言 　　 　　Access报表功能非常强大而且方便。Access普通用户通常利用报表向导或者报表设计视图创建报表，这些方法操作简单，易学易用，但一些报表要求仅用这些简单的可视化操作是无法完成的。合理运用Access报表内置的事件、方法、属性能够更深层次的设计报表，以解决一些报表难题。 　　 　　2 对报表中记录自动计数 　　 　　在报表输出时，对输出记录自动计数是一个常常用到的功能，其方法非常简单，只需在主体节中设置一个文本框，按Alt＋Enter键打开属性页，单击【数据】选项卡，设置控件来源：=1；运行总和：工作组之上/全部之上。 　　 　　3 在报表中实现页合计 　　 　　在连续窗体的窗体页脚上可以使用Sum函数对某个字段的数据进行求和，但在报表的页面页脚放置控件来源为“=Sum([字段名])”的控件时却只显示“＃错误”，即使是设置运行总和属性，也无法显示本页某字段的数据之和。以下是实现报表页合计的方法： 　　(1)通过报表向导建立表格式报表report1； 　　(2)打开report1报表设计视图，在页面页脚添加一个名为“text1”的未绑定文本框控件； 　　(3)单击工具栏上的 （代码）按钮，为report1报表书写代码： 　　Option Compare Database 　　Dim sum1 As Double 　　Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer) 　　text1.Value = sum1 　　sum1 = 0 　　End Sub 　　Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer) 　　sum1 = sum1 + Me.[求和字段名].Value 　　End Sub 　　 　　4 为多页报表中的每页限定行数，不足部分补空行 　　 　　如果要求报表每页显示指定行数，最末一页不满行则以空行补足（主要针对带有格式的报表，这样更加美观）。可以按以下步骤实现： 　　(1)启动报表向导自动创建表格式报表report3； 　　(2)打开report3报表设计视图，在主体区添加名为allrec的未绑定文本框控件，按Alt＋Enter键打开属性页，单击【数据】选项卡，设置控件来源：=Count(*)，可见性：否； 　　(3)在主体节中选中所有需要打印的控件，按Alt＋Enter键打开属性页，单击【其它】选项卡，设置标记属性为：主体中显示控件； 　　(4)单击工具栏上的 （代码）按钮，为report1报表书写代码： 　　Option Compare Database 　　Dim row As Long 　　Dim n As Long 　　Private ctrl As Control 　　Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer) 　　n = n + 1 　　row = row + 1 　　If n = allrec.Value Then 　　Me.NextRecord = False 　　ElseIf n allrec.Value And n (Me.Page) * 10 Then每页指定打印10行 　　Me.NextRecord = False 　　showHideCtrlAtDetail False 　　End If 　　If Me.Section