Mega Code Archive

 

Categories / VisualBasic Script / Access

 

The AllReports collection allows you to loop through all reports in the current project

Sub IterateAllReports()     Dim vnt As Variant     With CurrentProject         For Each vnt In .AllReports             Debug.Print vnt.Name         Next vnt     End With End Sub