You can use the code below to open all reports or forms in design mode, check if it has a module, then if it doesn't, the form or report will close. So you will have tabs of open reports and forms that have modules. Now, the trick is to create a list of
the open reports or forms. Once the report or form is open, you might be able to then put its Name in a table. I'll need to think about that. Maybe someone else has an idea.
Public Function AllForms()
Dim OpenReport As Form
Dim ActiveForm As Access.AccessObject
For Each ActiveForm In CurrentProject.AllForms
With ActiveReport
DoCmd.OpenForm .Name, acViewDesign, , , acWindowNormal
Set OpenForm = Screen.ActiveForm
'msgbox OpenForm.HasModule
If OpenForm.HasModule = False Then
DoCmd.Close acForm, .Name, acSaveNo
End If
End With
Next
Exit Function
End Function
Public Function AllReports()
Dim OpenReport As Report
Dim ActiveReport As Access.AccessObject
For Each ActiveReport In CurrentProject.AllReports
With ActiveReport
DoCmd.OpenReport .Name, acViewDesign, , , acWindowNormal
Set OpenReport = Screen.ActiveReport
'msgbox OpenReport.HasModule
If OpenReport.HasModule = False Then
DoCmd.Close acReport, .Name, acSaveNo
End If
End With
Next
Exit Function
End Function
