Getting a List of Access Reports

[Jen]

Hi,

You could do something like this, although you'd probably
want to add some error handling:

Dim proj As Object
Dim intRptCount As Integer
Dim rptItem As Integer
Dim strRptName As String

Set proj = CurrentProject

intRptCount = proj.AllReports.Count

For rptItem = 0 To intRptCount - 1
strRptName = proj.AllReports(rptItem).Name
Next rptItem

Regards,
Jen