Access获取当前活动的窗体名称

2017-10-21 17:07:00
黄善超
原创
181

在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



效果图:

    分享