Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

回复 加入收藏帖  复制
我要提问 帖子上移

按当前年月,列出过去36个月的年月清单

jutazhu 等级: 普通会员 积分:215 金币:0 来自:上海Access交流中心 发表于:2018-09-27 15:44:07   已结帖
楼主

最好能给出VBA的代码,因为我需要把这个清单写入一个表中做月度统计使用,谢谢。

若本月为1809,那我需要向表中写入1809,1808.......1510,1511



DateID TeMonth
1 1511
2 1512
3 1601
4 1602
5 1603
6 1604
7 1605
8 1606
9 1607
10 1608
11 1609
12 1610
13 1611
14 1612
15 1701
16 1702
17 1703
18 1704
19 1705
20 1706
21 1707
22 1708
23 1709
24 1710
25 1711
26 1712
27 1801
28 1802
29 1803
30 1804
31 1805
32 1806
33 1807
34 1808
35 1809
36 1810


 

access培训  诚聘access开发人员

    jutazhu
      获得社区协助:请教问题(即发帖)6篇,其中获得解决的6篇;
      协助社区成员:协助他人(即回帖)2篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top

扫描下方工作人员的微信二维码加微信,邀您加入Access课堂微信群,进入一个技术交际圈:

网站工作人员微信

chinasa 等级:贵宾★★★★★ 积分:890 金币:120 来自:宁波Access交流中心 发表于2018/9/27 16:13:27 
1楼 得分: 0
ny = Format(Now(), "yymm")
Do Until i > 36
wb = wb & Chr(13) & Chr(10) & ny
ny = ny - 1
i = i + 1
Loop
MsgBox wb

    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    chinasa
      获得社区协助:请教问题(即发帖)127篇,其中获得解决的121篇;
      协助社区成员:协助他人(即回帖)865篇,其中被设为【最佳答案】的227篇;
      协助我们社区:发布技术文章3篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
网行者 等级:一星会员 积分:720 金币:4080 来自:江门Access交流中心 发表于2018/9/29 21:02:56 最佳答案
2楼 得分: 2
Private Sub Command0_Click()
    On Error GoTo Err_Command0_Click
    
    Dim nian As Integer
    Dim yue As Integer
    Dim i As Integer
    
    Dim rst As ADODB.Recordset
    
    Set rst = New ADODB.Recordset
    
    rst.ActiveConnection = CurrentProject.Connection
    
    rst.Open "月度统计表", , adOpenKeyset, adLockOptimistic
    
    CurrentDb.Execute "delete from 月度统计表"
    
    nian = Format(Now(), "yy")
    yue = Format(Now(), "m")


    For i = 1 To 36
        rst.AddNew
        rst!TeMonth = Val(nian & Format(yue, "00"))
        rst.Update
        yue = yue - 1
        If yue = 0 Then
            nian = nian - 1
            yue = 12
        End If
    Next
    rst.Close
    
    MsgBox "All done!", vbOKOnly
    DoCmd.OpenTable "月度统计表"
    
Exit_Command0_Click:
    Exit Sub


Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click

End Sub


点击下载此附件



    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    网行者
      获得社区协助:请教问题(即发帖)5篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)554篇,其中被设为【最佳答案】的189篇;
      协助我们社区:发布技术文章102篇,邀请了28名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
jutazhu 等级:普通会员 积分:215 金币:0 来自:上海Access交流中心 发表于2018/10/10 14:04:44 
3楼 得分: 0

谢谢网行者的帮助。要的就是这个结果



    jutazhu
      获得社区协助:请教问题(即发帖)6篇,其中获得解决的6篇;
      协助社区成员:协助他人(即回帖)2篇,其中被设为【最佳答案】的0篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:3篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。