【Access实例】按月新增记录实例

卡西达

1. Public Function IntRec(Tbname As String, Fldname As String, LYear As Long, LMonth As Long)
   
2. '功能：向表中插入当月按天数计算的记录数
   
3. '参数：Tbname---插入记录的表，Fldname---表中表示日期的字段，LYear---年， LMonth---月
   
4. '示例：IntRec("日记表","日期",me.年.value,me.月.value)
   
5. Dim MYdate1 As Date, MYdate2 As Date
   
6. Dim num As Long
   
7. Dim rs As New ADODB.Recordset
   
8. Dim i As Long
   
9. MYdate1 = DateSerial(LYear, LMonth, 1)
   
10. MYdate2 = DateSerial(LYear, LMonth + 1, 1)
    
11. num = DateDiff("d", MYdate1, MYdate2)
    
12. rs.Open Tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
13. rs.AddNew
    
14. rs("日期").Value = MYdate1
    
15. rs.Update
    
16. For i = 1 To num - 1
    
17. rs.AddNew
    
18. rs("日期").Value = DateAdd("d", 1, MYdate1 + i - 1)
    
19. rs.Update
    
20. Next
    
21. rs.Close
    
22. End Function
    
23. 
    

复制代码

附件下载：按月新增记录实例.rar