set menubar and toolbar for all reports via code

[microb0x]

Does anyone know how to enumerate through the AllReports collection to
set a custom menubar and toolbar for each report in the collection?

I can set the menubar and toolbar when a report is open, but I need to
be able to set these whether a report is open or not.

I need to set the menu/tool bars for each report during the launch of
the startup form. There are 60 some reports in the application, and
ever growing, and I'd rather not have to set each one individually via
its property sheet

 

[Brendan Reynolds]

Does anyone know how to enumerate through the AllReports collection to
set a custom menubar and toolbar for each report in the collection?

I can set the menubar and toolbar when a report is open, but I need to
be able to set these whether a report is open or not.

I need to set the menu/tool bars for each report during the launch of
the startup form. There are 60 some reports in the application, and
ever growing, and I'd rather not have to set each one individually via
its property sheet

You need to open the reports in design view, but you don't have to do it
manually, you can automate it ...

Public Sub SetRepProp()

Dim aob As AccessObject
Dim rpt As Report

For Each aob In CurrentProject.AllReports
DoCmd.OpenReport aob.Name, acViewDesign, , , acHidden
Set rpt = Reports(aob.Name)
rpt.MenuBar = "MyMenuBar"
rpt.ShortcutMenuBar = "MyShortCutMenuBar"
rpt.Toolbar = "MyToolbar"
DoCmd.Close acReport, aob.Name, acSaveYes
Next aob

Debug.Print "Finished!"

End Sub