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

2017-10-21 17:07:00
tmtony8
原創
3009

在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



效果圖:

    分享