按当前年月，列出过去36个月的年月清单

Private Sub Command0_Click()
    On Error GoTo Err_Command0_Click
    
    Dim nian As Integer
    Dim yue As Integer
    Dim i As Integer
    
    Dim rst As ADODB.Recordset
    
    Set rst = New ADODB.Recordset
    
    rst.ActiveConnection = CurrentProject.Connection
    
    rst.Open "月度统计表", , adOpenKeyset, adLockOptimistic
    
    CurrentDb.Execute "delete from 月度统计表"
    
    nian = Format(Now(), "yy")
    yue = Format(Now(), "m")


    For i = 1 To 36
        rst.AddNew
        rst!TeMonth = Val(nian & Format(yue, "00"))
        rst.Update
        yue = yue - 1
        If yue = 0 Then
            nian = nian - 1
            yue = 12
        End If
    Next
    rst.Close
    
    MsgBox "All done!", vbOKOnly
    DoCmd.OpenTable "月度统计表"
    
Exit_Command0_Click:
    Exit Sub


Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click

End Sub

点击下载此附件