Office中国论坛/Access中国论坛
标题:
【Access小品】按月新增记录数实例
[打印本页]
作者:
todaynew
时间:
2010-5-2 09:11
标题:
【Access小品】按月新增记录数实例
本帖最后由 todaynew 于 2010-5-2 09:28 编辑
[attach]42115[/attach]
[attach]42116[/attach]
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
学习一下
作者:
asklove
时间:
2010-5-3 08:31
收藏
作者:
dddd042821
时间:
2010-7-28 16:16
学习一下
作者:
风啸啸
时间:
2010-8-15 15:40
收藏,学习......
作者:
wang1950317
时间:
2010-8-15 19:07
学习学习!
作者:
wime911
时间:
2010-8-15 20:42
学习中
作者:
xjb_test
时间:
2010-8-17 01:05
学习
作者:
szyewj
时间:
2010-8-22 13:43
学习,感谢分享
作者:
lcm618
时间:
2010-8-23 17:00
感谢分享收藏了!!!
作者:
li08hua
时间:
2010-9-11 01:44
学习!
作者:
wufeng980114
时间:
2010-11-4 20:49
学习了顶
作者:
tjgtw888
时间:
2011-8-19 08:45
谢谢分享。。
作者:
jinzhanxi
时间:
2011-8-19 15:07
谢谢分享
作者:
huxinhua
时间:
2012-1-11 09:01
收藏了!
作者:
SRONE
时间:
2012-2-12 01:18
谢谢分享!
作者:
wen123456
时间:
2012-5-15 13:01
是我想要的,很好
作者:
lin2003_lin
时间:
2012-7-14 15:59
谢谢分享
作者:
67613188
时间:
2012-7-14 18:19
学习学习
作者:
dfang
时间:
2012-7-14 23:20
谢谢分享
作者:
z12509258
时间:
2012-12-13 13:37
谢谢分享
作者:
nncchh
时间:
2015-5-25 21:23
谢谢分享
作者:
nncchh
时间:
2015-5-25 21:24
学习
作者:
灰太郎
时间:
2018-1-1 18:50
12111111111111
作者:
灰太郎
时间:
2018-1-1 18:50
33333333333333333333333333333333
作者:
harrysh
时间:
2018-3-10 13:10
学习,感谢分享
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3