【Access小品】按月新增记录数实例

todaynew · 发表于 2010-5-2 09:11:05

本帖最后由 todaynew 于 2010-5-2 09:28 编辑

Public Function IntRec(Tbname As String, Fldname As String, LYear As Long, LMonth As Long)
'功能：向表中插入当月按天数计算的记录数
'参数：Tbname---插入记录的表，Fldname---表中表示日期的字段，LYear---年， LMonth---月
'示例：IntRec("日记表","日期",me.年.value,me.月.value)
Dim MYdate1 As Date, MYdate2 As Date
Dim num As Long
Dim rs As New ADODB.Recordset
Dim i As Long
MYdate1 = DateSerial(LYear, LMonth, 1)
MYdate2 = DateSerial(LYear, LMonth + 1, 1)
num = DateDiff("d", MYdate1, MYdate2)
rs.Open Tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("日期").Value = MYdate1
rs.Update
For i = 1 To num - 1
rs.AddNew
rs("日期").Value = DateAdd("d", 1, MYdate1 + i - 1)
rs.Update
Next
rs.Close
End Function

t小宝 · 发表于 2010-5-2 20:37:02

学习一下

asklove · 发表于 2010-5-3 08:31:45

dddd042821 · 发表于 2010-7-28 16:16:59

学习一下

风啸啸 · 发表于 2010-8-15 15:40:49

收藏，学习......

wang1950317 · 发表于 2010-8-15 19:07:37

学习学习！

wime911 · 发表于 2010-8-15 20:42:19

学习中

xjb_test · 发表于 2010-8-17 01:05:14

学习

szyewj · 发表于 2010-8-22 13:43:28

学习，感谢分享

lcm618 · 发表于 2010-8-23 17:00:36

感谢分享收藏了！！！

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

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

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

[模块/函数] 【Access小品】按月新增记录数实例

本帖子中包含更多资源

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