台灣最大程式設計社群網站
線上人數
253
 
會員總數:246046
討論主題:189631
歡迎您免費加入會員
討論區列表 >> ACCESS >> 列印每月,每週,每季,每年的報表
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
列印每月,每週,每季,每年的報表
價值 : 20 QP  點閱數:6095 回應數:33
樓主

E
初學者
74 35
828 83
發送站內信

如何可以做到
比如我按列印,就印出這個月或這一週或這一個,這一季的紀錄的報表
當然,年報表,週報表,月報表,季報表都是不同的報表,
重點是怎麼抓到本週,本季,本年,本月的紀錄,如果現在日期在二月10號,就出現二月10號那週,還有二月,等等

感謝各位大大的不吝指教

搜尋相關Tags的文章: [ 列印 ] , [ 報表 ] , [ 週 ] , [ 年 ] , [ 季 ] , [ 月 ] ,
本篇文章發表於2006-01-23 10:37
1樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
給你參考
1001 Me![週結果] = DatePart("ww", Now()) '取得"週期"值
1002 Me![月結果] = DatePart("m", Now()) '取得"月份"值
1003 Me![季結果] = DatePart("q", Now()) '取得"季"值
1004 Me![年結果] = DatePart("yyyy", Now()) '取得"西元年份"值
本篇文章回覆於2006-01-23 11:55
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
最有價值解答

tungta
捐贈 VP 給 tungta 檢舉此回應
完整的語法
1001 Me![週結果] = DatePart("ww", Date) '取得"週期"值
1002 Me![月結果] = DatePart("m", Date) '取得"月份"值
1003 Me![季結果] = DatePart("q", Date) '取得"季"值
1004 Me![年結果] = DatePart("yyyy", Date) '取得"西元年份"值

1005 Me![年起日] = DateSerial(Year(Date), 1, 1) '取得"年份第一天"值
1006 Me![年迄日] = DateSerial(Year(Date) + 1, 1, 1 - 1) '取得"年最後一天"值(下年份第一天減1)

1007 MyWeekDay = Weekday(Me![年起日]) - 1 '找出本年1/1是星期幾
1008 If MyWeekDay = "0" Then '若為週日
1009 Me![週起日] = DateAdd("d", MyWeekDay - 7 + Me![週結果] * 7, DateSerial(Year(Date), 1, 1)) '取得"週第一天"值
1010 ElseIf MyWeekDay = "1" Then '若為週一
1011 Me![週起日] = DateAdd("d", MyWeekDay - 9 + Me![週結果] * 7, DateSerial(Year(Date), 1, 1)) '取得"週第一天"值
1012 ElseIf MyWeekDay = "2" Then '若為週二
1013 Me![週起日] = DateAdd("d", MyWeekDay - 11 + Me![週結果] * 7, DateSerial(Year(Date), 1, 1)) '取得"週第一天"值
1014 ElseIf MyWeekDay = "3" Then '若為週三
1015 Me![週起日] = DateAdd("d", MyWeekDay - 13 + Me![週結果] * 7, DateSerial(Year(Date), 1, 1)) '取得"週第一天"值
1016 ElseIf MyWeekDay = "4" Then '若為週四
1017 Me![週起日] = DateAdd("d", MyWeekDay - 15 + Me![週結果] * 7, DateSerial(Year(Date), 1, 1)) '取得"週第一天"值
1018 ElseIf MyWeekDay = "5" Then '若為週五
1019 Me![週起日] = DateAdd("d", MyWeekDay - 17 + Me![週結果] * 7, DateSerial(Year(Date), 1, 1)) '取得"週第一天"值
1020 ElseIf MyWeekDay = "6" Then '若為週六
1021 Me![週起日] = DateAdd("d", MyWeekDay - 19 + Me![週結果] * 7, DateSerial(Year(Date), 1, 1)) '取得"週第一天"值
1022 End If
1023 Me![週迄日] = Me![週起日] + 6 '取得"週最後一天"值

1024 Me![月起日] = DateSerial(Year(Date), Month(Date), 1) '取得"月份第一天"值
1025 Me![月迄日] = DateAdd("m", 1, DateSerial(Year(Date), Month(Date), 1)) - 1 '取得"月份最後一天"值(下月份第一天減1)

1026 If Me![季結果] = "1" Then '若為第1季
1027 Me![季起日] = DateSerial(Year(Date), 1, 1) '取得"季第一天"值
1028 Me![季迄日] = DateSerial(Year(Date), 4, 1 - 1) '取得"季最後一天"值(下季第一天減1)
1029 ElseIf Me![季結果] = "2" Then '若為第2季
1030 Me![季起日] = DateSerial(Year(Date), 4, 1) '取得"季第一天"值
1031 Me![季迄日] = DateSerial(Year(Date), 7, 1 - 1) '取得"季最後一天"值(下季第一天減1)
1032 ElseIf Me![季結果] = "3" Then '若為第3季
1033 Me![季起日] = DateSerial(Year(Date), 7, 1) '取得"季第一天"值
1034 Me![季迄日] = DateSerial(Year(Date), 10, 1 - 1) '取得"季最後一天"值(下季第一天減1)
1035 ElseIf Me![季結果] = "4" Then '若為第4季
1036 Me![季起日] = DateSerial(Year(Date), 10, 1) '取得"季第一天"值
1037 Me![季迄日] = DateSerial(Year(Date), 13, 1 - 1) '取得"季最後一天"值(下季第一天減1)
1038 End If
本篇文章回覆於2006-01-23 18:52
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

E
檢舉此回應
[週結果][月結果][季結果][年結果]....這些是指?欄位嗎,是要在資料庫再增加這些欄位嗎?
不太懂@@
本篇文章回覆於2006-01-24 09:28
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
那只是看結果是不是正確而已,你不是要抓到本週,本季,本年,本月的紀錄嗎,要看區間日期必然要有起日與迄日,把那些語法各自做在相關的列印按鈕上,位階在驅動報表之前,就能得到你想要的結果
本篇文章回覆於2006-01-24 12:19
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
回應

ETking
捐贈 VP 給 ETking 檢舉此回應
回應#3
建議先用表單作出欲查詢的結果
再進到報表作業

本篇文章回覆於2006-01-24 18:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
寄給你一個範例,請貼上e-mail
本篇文章回覆於2006-01-25 00:28
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
作者回應

E
檢舉此回應
s5886202@ms1.ttc.edu.tw
本篇文章回覆於2006-01-25 08:21
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例已寄出
本篇文章回覆於2006-01-25 11:20
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
9樓
作者回應

E
檢舉此回應
已經ok囉
謝各位大大呀^^
本篇文章回覆於2006-01-25 17:21
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
10樓
回應

BiLi
檢舉此回應
tungta 大大,
這個範例可以麻煩也寄一份給我? Thanks.
E-mail:bili0405@yahoo.com.tw
本篇文章回覆於2012-08-23 18:14
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
11樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例"取得週月季年的起迄日"已寄出
本篇文章回覆於2012-08-23 18:31
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
12樓
回應

ku
檢舉此回應
aroipad@gmail.com
這個範例可以麻煩也寄一份給我? Thanks
本篇文章回覆於2012-08-23 20:03
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
13樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例"取得週月季年的起迄日"已寄出
本篇文章回覆於2012-08-23 20:54
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
14樓
回應

samwlcl
檢舉此回應
tungta 大大,
這個範例可以麻煩也寄一份給我? Thanks.
E-mail:samwlcl@gmail.com
本篇文章回覆於2013-08-07 08:20
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
15樓
回應

tungta
捐贈 VP 給 tungta 檢舉此回應
範例"取得週月季年的起迄日"已寄出
本篇文章回覆於2013-08-07 23:09
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   

回覆
如要回應,請先登入.