Needs a bit of tidying but got this:
On Error Resume Next
Dim db As DATABASE
Dim doc As Document
Dim a As Form
Dim c As Control
Dim p As Property
Dim x As Integer
Set db = CurrentDb
For Each doc In db.Containers("Forms").Documents
DoCmd.OpenForm doc.Name, acHidden
Set a =...