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

todaynew

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

harrysh

学习，感谢分享

灰太郎

33333333333333333333333333333333

灰太郎

12111111111111

nncchh

学习

nncchh

谢谢分享

z12509258

谢谢分享

lin2003_lin

谢谢分享

67613188

学习学习

dfang

谢谢分享