向表中按月添加日期

时　间:2011-12-15 00:00:00
作　者:网行者   ID：12122  城市：江门
摘　要:向表中按月添加日期，提供了两种方式：
1、按公历添加
2、按自定义月份起始日添加
正　文:

点击下载此附件

1、按公历添加

Private Sub Command8_Click()
    On Error GoTo Err_Command8_Click
    Dim str As String
    Dim firstdayofmonth, lastdayofmonth As Date
    Dim daysofmonth As Integer
    firstdayofmonth = DateSerial(Me.年度, Me.月份, 1)
    lastdayofmonth = DateSerial(Me.年度, Me.月份 + 1, 0)
    daysofmonth = lastdayofmonth - firstdayofmonth
    str = "select * from 表A"
    Set rs = New ADODB.Recordset
    rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.AddNew
    rs("日期").Value = firstdayofmonth
    rs.Update
    For i = 0 To daysofmonth - 1
        rs.AddNew
        rs("日期") = firstdayofmonth + i + 1
        rs.Update
    Next i
    rs.Close
    Set rs = Nothing
    MsgBox "已添加到表A中"

Exit_Command8_Click:
    Exit Sub

Err_Command8_Click:
    MsgBox Err.Description
    Resume Exit_Command8_Click
End Sub

2、按自定义月份起始日添加

Private Sub Command8_Click()
    On Error GoTo Err_Command8_Click
    Dim str As String
    Dim firstdayofmonth As Date, lastdayofmonth As Date
    Dim daysofmonth As Long, i As Long
    Dim rs As ADODB.Recordset
    firstdayofmonth = DateSerial(IIf(Me.月份 = 1, Me.年度 - 1, Me.年度), IIf(Me.月份 = 1, 12, Me.月份 - 1), 26)
    lastdayofmonth = DateSerial(Me.年度, Me.月份, 25)
    daysofmonth = lastdayofmonth - firstdayofmonth
    str = "select * from 表B"
    Set rs = New ADODB.Recordset
    rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    For i = 0 To daysofmonth
        rs.AddNew
        rs("日期") = firstdayofmonth + i 
        rs.Update
    Next i

    rs.Close
    Set rs = Nothing
    MsgBox "已添加到表B中"

Exit_Command8_Click:
    Exit Sub

Err_Command8_Click:
    MsgBox Err.Description
    Resume Exit_Command8_Click
End Sub