Access穫?cè)‘?dāng)前活動的窗體名稱

在Access中，可以打開多箇窗體。但是多箇打開的窗體中，隻有一箇是激活的窗體

如何穫?cè)‘?dāng)前活動的窗體名稱呢？

這裡我們自定義一箇函數(shù)，通過遍歷所有窗體，找齣活動的窗體

Public Sub 當(dāng)前活動窗體()
    Dim frm As Object
    For Each frm In CurrentProject.AllForms
        If frm.Name = Screen.ActiveForm.Name Then
            MsgBox "你當(dāng)然打開的窗體是" & frm.Name
        End If
    Next frm
End Sub

效果圖：