以编程方式更改所有报告

Question

我有一个功能可以在用户运行报告时记录。它设置为运行“打开”。有没有办法一次性更改所有报告和表格的打开状态？

Answer 1

此代码遍历所有表单：

Public Sub DoChangeModules()
    Dim dstApp As Application
    Dim dstDB As Database
    Dim AO As Document

    Set dstApp = Application
    Set dstDB = dstApp.CurrentDb

    ' iterate forms's modules and insert code
    Dim f As Form
    Dim M As Module
    Debug.Print "Modifying Modules:"
    Debug.Print "Forms:"
    For Each AO In dstDB.Containers("Forms").Documents
        dstApp.DoCmd.OpenForm AO.Name, acViewDesign
        Set f = dstApp.Forms(AO.Name)
        Set M = f.Module
        ProccessModule M
        Set f = Nothing
        dstApp.DoCmd.Close acForm, AO.Name, acSaveYes
    Next AO
    
End Sub

Public Sub ProccessModule(M As Module)
    Dim numLine As Long
    Dim StartLine As Long, StartColumn As Long, EndLine As Long,     EndColumn As Long

    Debug.Print , , M.Name

    ' insert variable declaration
    M.AddFromString "Private testVar As variant ' test addition of module-level variable"

    ' locate or create Load event procedure
    StartLine = 0
    StartColumn = 0
    EndLine = 0
    EndColumn = 0
    If Not M.Find(" Form_Open(", StartLine, StartColumn, EndLine,    EndColumn) Then
        numLine = M.CreateEventProc("Open", "Form")
    End If



    numLine = M.ProcBodyLine("Form_Open", 0) ' 0 here is vbext_pk_Proc
    M.InsertLines numLine + 1, "" & _
                           "    ' Call of global function that logs user" & vbNewLine & _
                           "    doLogUser testVar " & vbNewLine & _
                           "    ' that function called with local module variable "


End Sub

以编程方式更改所有报告

Programmatically change all reports

ms-access

vba