点击下载此附件
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