按年月生成新表的示例-十段
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


按年月生成新表的示例

发表时间:2008/1/24 11:54:51 评论(0) 浏览(5499)  评论 | 加入收藏 | 复制
   
摘 要:由于每月须对表中的内容进行修整,而且修正的数据量达10多万条,为了操作方便,在同一数据库中将每月修改好的表按年月重新更名,为此,特将此例与大家分享
正 文:
Dim Strtime As String, strmonth As String
If IsNull(Forms!窗体2!Combo5) or Forms! 窗体2!Combo5 = "" Then
   MsgBox "表名不能为空", 48
   Me.Combo5.SetFocus
   Exit Sub
End If
strmonth = Month(Date)
If Len(strmonth) < 2 Then
   strmonth = 0 & strmonth
End If
Strtime = Year(Date) & strmonth
DoCmd.RunSQL "Select 订单.* INTO " & Forms窗体2!Combo5 & "_" & Strtime & " FROM订单;"
MsgBox "新表生成完毕"

Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access2007\Access2010\2013及以上版本设置...  【麥田  2013/6/3】
如何生成电话拨号面板的效果  【nivenm  2013/6/4】
解决网友Excel生成随机数的问题  【杏林求真  2013/6/22】
如何利用动态交叉表生成子窗体子报表  【蟹仔  2013/7/4】
【Access示例源码】按部门编号来生成员工编码  【漏蛧尐魚℡  2013/8/18】
常见问答
技术分类
相关资源
文章搜索
关于作者

十段

文章分类

文章存档

友情链接