如何自动生成一个含有2008-04-01至2008-04-30日期的表

niwj · 发表于 2008-4-17 09:02:51

kangking · 发表于 2008-4-17 11:10:51

Dim sql As String
Dim d As Date

sql = "CREATE TABLE 表名 (日期 DATE)"
CurrentDb.Execute sql
For d = #4/1/2008# To #4/30/2008#
sql = "insert into 表名 (日期) select #" & d & "#;"
CurrentDb.Execute sql
Next

niwj · 发表于 2008-4-17 12:35:17

[:50] 搞定了，谢谢！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[表] 如何自动生成一个含有2008-04-01至2008-04-30日期的表

群介绍
主题无相 (随机显示版	同地区群块其他地区)