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

效果图：