T
Tony
Is there a way to tell if a report is "hidden" so I can prevent it from
displaying in a listbox?
the following code I believe was written by Ken Getz and works fine for both
queries and reports in Access 97. but only works for queries in Access 2003.
I've looked in the mSysObjects table and nothing is entered in the "Flags"
field to indicate if a report is hidden or not.
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("Select Flags From mSysObjects Where Name ='"
& Name & "'")
'With rst
If Not rst.EOF Then
IsQueryHidden = ((rst.Fields("Flags") And 8) = 8) 'No
Kidding, try it, it works
End If
rst.Close
'End With
displaying in a listbox?
the following code I believe was written by Ken Getz and works fine for both
queries and reports in Access 97. but only works for queries in Access 2003.
I've looked in the mSysObjects table and nothing is entered in the "Flags"
field to indicate if a report is hidden or not.
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("Select Flags From mSysObjects Where Name ='"
& Name & "'")
'With rst
If Not rst.EOF Then
IsQueryHidden = ((rst.Fields("Flags") And 8) = 8) 'No
Kidding, try it, it works
End If
rst.Close
'End With