Generate a list of objects on a report and select properties

[NJonge01]

Hi,

I've made a mess of a report. I need to do some cleanup and I need a utility to help me look at all the objects on the report.

I used to have some code for listing all the objects on a report and selectively list properties of that report. I cannot find the code and I am unable to find the posting that provided it.

can anyone help me out?

Basically, I want to pass a report name to a function, and return all the objects on that report and specific property values for each of those objects.

Thanks!

[ADezii]

I wrote this code minutes before going to bed, it can easily be incorporated into a Function:

On Error Resume Next
 
Dim ctl As Control
Dim rpt As Report
Dim prp As Property
 
DoCmd.OpenReport "rptEmployees2", acViewDesign, , , acHidden
 
Set rpt = Reports("rptEmployees2")
 
For Each ctl In rpt.Controls
  Debug.Print ctl.Name
    For Each prp In ctl.Properties
      Debug.Print "  |-- " & prp.Name & " ==> " & prp.Value
    Next
Next

Sample OUTPUT:

FirstName
  |-- EventProcPrefix ==> FirstName
  |-- Name ==> FirstName
  |-- ControlType ==> 109
  |-- ControlSource ==> FirstName
  |-- Format ==> 
  |-- DecimalPlaces ==> 255
  |-- InputMask ==> 
  |-- Visible ==> True
  |-- Vertical ==> False
  |-- HideDuplicates ==> False
  |-- CanGrow ==> False
  |-- CanShrink ==> False
  |-- RunningSum ==> 0
  |-- Left ==> 3180
  |-- Top ==> 60
  |-- Width ==> 1170
  |-- Height ==> 270
  |-- BackStyle ==> 0
  |-- BackColor ==> 16777215
  |-- SpecialEffect ==> 0
  |-- BorderStyle ==> 0
  |-- OldBorderStyle ==> 0
  |-- BorderColor ==> 0
  |-- BorderWidth ==> 0
  |-- BorderLineStyle ==> 0
  |-- ForeColor ==> 0
  |-- FontName ==> Arial
  |-- FontSize ==> 8
  |-- FontWeight ==> 400
  |-- FontItalic ==> False
  |-- FontUnderline ==> False
  |-- TextFontCharSet ==> 0
  |-- TextAlign ==> 0
  |-- FontBold ==> 0
  |-- ShortcutMenuBar ==> 
  |-- Section ==> 0
  |-- Tag ==> 
  |-- InSelection ==> False
  |-- LeftMargin ==> 0
  |-- TopMargin ==> 0
  |-- RightMargin ==> 0
  |-- BottomMargin ==> 0
  |-- LineSpacing ==> 0
  |-- IsHyperlink ==> False
Text7
  |-- EventProcPrefix ==> Text7
  |-- Name ==> Text7
  |-- ControlType ==> 109
  |-- ControlSource ==> =Now()
  |-- Format ==> Long Date
  |-- DecimalPlaces ==> 255
  |-- InputMask ==> 
  |-- Visible ==> True
  |-- Vertical ==> False
  |-- HideDuplicates ==> False
  |-- CanGrow ==> False
  |-- CanShrink ==> False
  |-- RunningSum ==> 0
  |-- Left ==> 60
  |-- Top ==> 240
  |-- Width ==> 4560
  |-- Height ==> 300
  |-- BackStyle ==> 0
  |-- BackColor ==> 16777215
  |-- SpecialEffect ==> 0
  |-- BorderStyle ==> 0
  |-- OldBorderStyle ==> 0
  |-- BorderColor ==> 0
  |-- BorderWidth ==> 0
  |-- BorderLineStyle ==> 0
  |-- ForeColor ==> 8388608
  |-- FontName ==> Times New Roman
  |-- FontSize ==> 9
  |-- FontWeight ==> 700
  |-- FontItalic ==> True
  |-- FontUnderline ==> False
  |-- TextFontCharSet ==> 0
  |-- TextAlign ==> 1
  |-- FontBold ==> 1
  |-- ShortcutMenuBar ==> 
  |-- Section ==> 4
  |-- Tag ==> 
  |-- InSelection ==> False
  |-- LeftMargin ==> 0
  |-- TopMargin ==> 0
  |-- RightMargin ==> 0
  |-- BottomMargin ==> 0
  |-- LineSpacing ==> 0
  |-- IsHyperlink ==> False
Text8
  |-- EventProcPrefix ==> Text8
  |-- Name ==> Text8
  |-- ControlType ==> 109
  |-- ControlSource ==> ="Page " & [Page] & " of " & [Pages]
  |-- Format ==> 
  |-- DecimalPlaces ==> 255
  |-- InputMask ==> 
  |-- Visible ==> True
  |-- Vertical ==> False
  |-- HideDuplicates ==> False
  |-- CanGrow ==> False
  |-- CanShrink ==> False
  |-- RunningSum ==> 0
  |-- Left ==> 4740
  |-- Top ==> 240
  |-- Width ==> 4560
  |-- Height ==> 300
  |-- BackStyle ==> 0
  |-- BackColor ==> 16777215
  |-- SpecialEffect ==> 0
  |-- BorderStyle ==> 0
  |-- OldBorderStyle ==> 0
  |-- BorderColor ==> 0
  |-- BorderWidth ==> 0
  |-- BorderLineStyle ==> 0
  |-- ForeColor ==> 8388608
  |-- FontName ==> Times New Roman
  |-- FontSize ==> 9
  |-- FontWeight ==> 700
  |-- FontItalic ==> True
  |-- FontUnderline ==> False
  |-- TextFontCharSet ==> 0
  |-- TextAlign ==> 3
  |-- FontBold ==> 1
  |-- ShortcutMenuBar ==> 
  |-- Section ==> 4
  |-- Tag ==> 
  |-- InSelection ==> False
  |-- LeftMargin ==> 0
  |-- TopMargin ==> 0
  |-- RightMargin ==> 0
  |-- BottomMargin ==> 0
  |-- LineSpacing ==> 0
  |-- IsHyperlink ==> 0

[ADezii]

Oops, forgot to Close the Report after interrogating it. Add this single line of code after the last line (#16):

DoCmd.Close acReport, "rptEmployees2", acSaveNo

[NJonge01]

Thanks! That is just what I needed.

I just pulled the code into a function and passed it my report name. instead of debug.print... I passed the string to a generic function I have for appending to a table.

[ADezii]

Thanks! That is just what I needed.

I just pulled the code into a function and passed it my report name. instead of debug.print... I passed the string to a generic function I have for appending to a table.

Glad you got what you asked for.