Sub FormsSample()
        
    '現在のアクティブフォーム名
    MsgBox Screen.ActiveForm.Name
    
End Sub

Screen.ActiveReport 現在アクティブなレポート
Screen.ActiveControl 現在アクティブなコントロール


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ