Access穫取當前活動的窗體名稱

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

如何穫取當前活動的窗體名稱呢？

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

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

效果圖：