Select individual reports from .Reports 1

[nobeltlp]

Is it possible to select a saved report from
Containers.Reports.documents

Using the following I can list the entire contents
in a form list box, but there are only seven reports I want to list.



Private Sub Form_Load()
Dim MyRep As Document, Mydb As Database
Set Mydb = CurrentDb

Me!Replist.RowSource = ""

For Each MyRep In Mydb.Containers("Reports").Documents
Me!Replist.RowSource = Me!Replist.RowSource & MyRep.Name & ";"
Next MyRep


Me!Pgto.Enabled = False
Me!Pgfrom.Enabled = False
End Sub

I have tried veriations of If and For each with Like
"*.XXX", but I always recieve;"expression not supported with type object."

 

[flyover789]

maybe create a query of the MSysObejcts Table as a rowsource for your listbox.

HTH,
fly

[blue]Typos, that don't affect the functionality of code, will not be corrected.[/blue]

Martin Serra Jr.

http://www.mserrasystems.com

[blue]Shared Database_Systems and _Applications across all Business_Areas[/blue]

 

[Trevil]

May I politely suggest that you not post the same question in multiple forums? See your other post for my response.

"Have a great day today and a better day tomorrow!

 

[PHV]

Something like this ?
For Each MyRep In Mydb.Containers("Reports").Documents
If MyRep.Name Like "*.XXX" Then
Me!Replist.RowSource = Me!Replist.RowSource & MyRep.Name & ";"
End If
Next MyRep

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886