Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Form count

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