Sub FormsSample()
Dim myObject As AccessObject
Dim myForm As Form
Dim myStr As String
Dim i As Long
’-----------------------------------------------------------------
myStr = ""
'開いているフォームを参照
For Each myForm In Forms
myStr = myStr & myForm.Name & vbCr
Next
MsgBox myStr
’-----------------------------------------------------------------
myStr = ""
'開いているフォームを参照
For i = Forms.Count - 1 To 0 Step -1
myStr = myStr & Forms(i).Name & vbCr
Next i
MsgBox myStr
Forms!frmデータ表示.SetFocus
’-----------------------------------------------------------------
myStr = ""
'開いていないフォームも全て参照
For Each myObject In CurrentProject.AllForms
myStr = myStr & myObject.Name & vbCr
Next
MsgBox myStr
End Sub