限制报表内容在一个日期范围--初级
时间:2003-12-12 13:22 来源:本站原创 作者:Allen Br… 阅读:次
要限制报表只显示在一定日期范围内的内容
1。创建一个窗体让用户输入日期范围
2。将用户输入的日期范围应用到openreport有where参数
3。将日期范围显示在报表的上端
例如:你的报表名为rptSales然后你想统计在选定日期范围内的销售情况
步骤如下:
创建一个不绑定数据源的窗体,存为frmWhatDates
增加两个文本框,命中分别为startDate EndDate,设置它们的格式为short Date,只接受日期输入。
增加一个确定和取消按钮,确定按钮为缺省
在确定按钮的点击事件加入
If IsNull(Me.StartDate) Or IsNull(Me.EndDate) Then
MsgBox "两个日期都必须输入"
Else
DoCmd.OpenReport "rptSales",,,
"[SaleDate] Between #" & Format(Me.StartDate, "mm\/dd\/yyyy")
& "# And #" & Format(Me.EndDate, "mm\/dd\/yyyy") & "#"
End If
取消按钮加入如下事件
DoCmd.Close acForm, Me.Name
然后进入报表设计状态,添加两个文本框到报表首以便显示日期范围
设置数据源分别为
=Forms.frmWhatDates.StartDate
=Forms.frmWhatDates.EndDate
然后看看效果如何
1。创建一个窗体让用户输入日期范围
2。将用户输入的日期范围应用到openreport有where参数
3。将日期范围显示在报表的上端
例如:你的报表名为rptSales然后你想统计在选定日期范围内的销售情况
步骤如下:
创建一个不绑定数据源的窗体,存为frmWhatDates
增加两个文本框,命中分别为startDate EndDate,设置它们的格式为short Date,只接受日期输入。
增加一个确定和取消按钮,确定按钮为缺省
在确定按钮的点击事件加入
If IsNull(Me.StartDate) Or IsNull(Me.EndDate) Then
MsgBox "两个日期都必须输入"
Else
DoCmd.OpenReport "rptSales",,,
"[SaleDate] Between #" & Format(Me.StartDate, "mm\/dd\/yyyy")
& "# And #" & Format(Me.EndDate, "mm\/dd\/yyyy") & "#"
End If
取消按钮加入如下事件
DoCmd.Close acForm, Me.Name
然后进入报表设计状态,添加两个文本框到报表首以便显示日期范围
设置数据源分别为
=Forms.frmWhatDates.StartDate
=Forms.frmWhatDates.EndDate
然后看看效果如何
(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·解决Access在页面设置中设置边距无法保
- ·Access通用报表打印设置
- ·在Access中使用自动化打印报告
- ·报表奇偶分页打印
- ·access输出资料到word用于打印
- ·支票打印的日期大写问题Access2007
- ·[报表]报表跨节垂直居中例子
- ·ACCESS-VBA编程 第八章 报表
- ·用Access2007解决支票打印的日期大写问
- ·自由设置页码打印报表
- ·ACCESS和EXECL结合的简单说明
- ·每页打印一定行数后自动分页(报表分页
- ·在VB中用代码打印ACCESS报表
- ·[原创]在 Access 2000中变通实现弹出式
- ·在Access 2002中打印报表的关系图
- ·Access轻松实现多数据批量打印
最新内容
推荐内容