[求助]除了me.form.name以外,还有什么方法可以获取当前窗体的名称?

eyewitnes

在公共模块中获取当前窗体名称的代码怎么写?

Grant

Sub ActiveObjects()
    Dim frm As Form, ctl As Control

    ' 返回指向活动窗体的 Form 对象。
    Set frm = Screen.ActiveForm
    MsgBox frm.Name & " is the active form."
    ' 返回指向活动控件的 Control 对象。
    Set ctl = Screen.ActiveControl
    MsgBox ctl.Name & " is the active control " _
        & "on this form."
End Sub

eyewitnes

谢谢