|
Sub exaFormsContainer()
Dim db As Database
Dim frm As Form
Dim doc As Document
Set db = CurrentDb
Debug.Print "Opened form count: " & Forms.Count
For Each frm In Forms
Debug.Print frm.Name
Next
Debug.Print "Saved form count: " & db.Containers!Forms.Documents.Count
For Each doc In db.Containers!Forms.Documents
Debug.Print doc.Name
Next
End Sub
|