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
    
    '開いていないフォームも全て参照
    For Each myObject In CurrentProject.AllForms
    
        myStr = myStr & myObject.Name & vbCr
        
    Next
    
    MsgBox myStr
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ