月底日期的获得
时 间:2017-08-20 11:42:21
作 者:半夜罗 ID:36948 城市:成都
摘 要:月底日期的获得
正 文:
关于《运用Access实现降本增效》中,报表选择有一段代码,获取月底日期,当选择为12月时会出错,将代码修改为:
Dim StartDate As Date
Dim EndDate As Date
Dim LastDate As Date
Dim strSQL As String
If IsNull(Me.txt销售日期) Then
MsgBox "请输入报表日期", vbCritical, "提示"
Me.txt销售日期.SetFocus
Exit Sub
End If
EndDate = Me.txt销售日期
' StartDate = CDate(Year(EndDate) & "-" & Month(EndDate) & "-" & "1")'原代码,12月时会出错
'StartDate = CDate(Year(Me.txt销售日期) & "-" & Month(Me.txt销售日期) & "-" & "1") '修改后的,12月份不会出错
StartDate = CDate(Year(EndDate) & "-" & Month(EndDate) & "-" & "1") '修改后的,12月份不会出错
' LastDate = CDate(Year(EndDate) & "-" & Month(EndDate) + 1 & "-" & "1") - 1'原代码,12月时会出错
'LastDate = DateAdd("m", 1, Format(Me.txt销售日期, "yyyy/mm/\1")) - 1 '修改后的,12月份不会出错
LastDate = DateAdd("m", 1, Format(EndDate, "yyyy/mm/\1")) - 1 '修改后的,12月份不会出错
strSQL = "Update tbl参数表 SET 结束日期 = #" & EndDate & "#, 开始日期 = #" & StartDate & "#, 月底日期 = #" & LastDate & "#"
DoCmd.SetWarnings False
'将 销售的当天日期,月初开始日期,月底结束日期写入 tbl参数表,以供查询作为条件使用
DoCmd.RunSQL strSQL
'每次生成报表数据前,对 tbl临时表_销售日报 进行清空
DoCmd.OpenQuery "qry清空销售日报"
'生成 本月累计销量的清单(例如按客户)
DoCmd.OpenQuery "qry本月累计销量"
'将 清单追加到 tbl临时表_销售日报 中
DoCmd.OpenQuery "qry追加销量累计数"
'生成当天的销售量(按客户)
DoCmd.OpenQuery "qry本日销量"
'对 tbl临时表_销售日报 中的本日销量进行更新
DoCmd.OpenQuery "qry更新当日销量"
'生成本月的订单量(按客户)
DoCmd.OpenQuery "qry月订单量"
'对 tbl临时表_销售日报 中的订单量进行更新
DoCmd.OpenQuery "qry更新月订单量"
DoCmd.SetWarnings True
DoCmd.OpenReport "rpt销售日报", acViewReport
这样就避免了12月时的出错。
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)