用TREEVIEW控制打开不同的窗体

Private Sub TreeView_NodeClick(ByVal Node As Object)

 Select Case Node.Text
    Case "打开OutLook"
        '   Shell "C:\Program Files\Microsoft Office\OFFICE11\outlook.exe", vbNormalFocus
        OpenOutLookApp
    Case "编辑申请"
        DoCmd.OpenForm "填写申请"
    Case "申请审批"
        Me.subform.SourceObject = "申请审批"
    Case "发送数据包"
        DoCmd.OpenForm "发送数据包"
    Case "下载附件"
        DoCmd.OpenForm "下载附件"
    Case "密码设置"
        DoCmd.OpenForm "密码设置"
    Case "数据备份"
    
    Case "关闭系统"
        If MsgBox("请确认是否真的退出系统?", vbQuestion + vbYesNo, MSG) = vbYes Then DoCmd.Quit acQuitSaveAll
    End Select
End Sub