25、深入探索 Access 报表生成、任务调度与数据库升级

深入探索 Access 报表生成、任务调度与数据库升级

1. 报表设置与宏创建

在 Access 中进行报表设置，首先要回到“Home”选项卡，此时会发现窗口标题已变为“DailyLoans”。接着，选择报表页眉中的标签，将“Caption”属性设置为“Daily Loans”。在属性表中，选择报表对象和“Data”选项卡，把“Filter On Load”属性设为“Yes”，并在“Filter”属性中输入公式 [CheckedOut] > Now() - 1 。不过要注意，若应用程序是 24x7 运行，就需要更复杂的公式来检查特定日期范围内的贷款情况。完成这些设置后，保存对“DailyLoans”报表的修改并关闭窗口。

下面是创建名为“DailyReport”的宏的步骤：
1. 在导航窗格中双击“Main”模块，打开 VBA 编辑器。
2. 在该文件中添加一个新方法，代码如下：

Public Function DailyReport() As Integer

Dim sPath As String
Dim n As Integer
Dim sMonth As String
Dim sDay As String

    ' Compute the base path
    sPath = CurrentProject.FullName
    n = InStrRev(sPath, "\", Len(sPath))
    sPath = Left(sPath, n)

    ' Compute the filename
    sMonth = Month(N