任务导航隐藏(王樵民老师最好进来)

说明:

后台数据为SQL

用的是王樵民老师的连接SQL的函数(在后面)

现在问题是不能隐藏导航

去掉这个函数就可以了,找了很久,没找到解决方法

显示导航 钩去掉

docmd.runcommand accmdwindowhide

DoCmd.SetDisplayedCategories 0, "任务导航"

均无解

另外 DoCmd.ShowToolbar "Ribbon", acToolbarNo,为什么放在自动宏里不起作用?
这句代码放在哪里最好?

感谢进来参观的朋友及老师们,希望能得到解答,谢

函数如下:

Public Function ConnSQL(IP As String, DBName As String, CnName, Optional PW As String) As Boolean
'连接指定的数据库中的表

''    ''    DoCmd.SetDisplayedCategories 0, "任务导航" '这两句为什么不能隐藏任务导航呢?
    Dim dbs As Database
    Dim tdf As TableDef
    Dim Cnn As String
    Dim MingCheng As String
    Dim s As String
    On Error GoTo Err1

    ConnSQL = False
    MingCheng = ""
    '如果有链接表，则删除
    Set dbs = CurrentDb
    For Each tdf In CurrentDb.TableDefs
        If tdf.Name <> "tblProductSource" Then
            If Len(tdf.Connect) > 0 Then
                '如果是链接表，则删除
                DoCmd.DeleteObject acTable, tdf.Name
            End If
        End If
    Next tdf
    dbs.Close
    MingCheng = DBName
    '重新建立表链接
    '设置PW字符串
    If PW <> "" Then
        Cnn = "ODBC;DRIVER=SQL Server;SERVER=" & IP & ";UID=" & CnName & ";" & "PWD=" & PW & ";" & "DATABASE=" & DBName
    Else
        Cnn = "ODBC;DRIVER=SQL Server;SERVER=" & IP & ";UID=" & CnName & ";DATABASE=" & DBName & ";PWD=" & PW
    End If
    Set dbs = OpenDatabase(MingCheng, True, False, Cnn)

    For Each tdf In dbs.TableDefs
        s = tdf.Name
        If s = "dbo.tbltask" Then
            DoCmd.TransferDatabase acLink, "ODBC", Cnn, acTable, tdf.Name, Mid(s, 5), False
        End If

              s = tdf.Name
        If s = "dbo.tblDepartment" Then
            DoCmd.TransferDatabase acLink, "ODBC", Cnn, acTable, tdf.Name, Mid(s, 5), False
        End If
        '        s = tdf.Name
        If s = "dbo.tbltaskstatus" Then
            DoCmd.TransferDatabase acLink, "ODBC", Cnn, acTable, tdf.Name, Mid(s, 5), False
        End If
        '
    Next tdf
    dbs.Close
    Set dbs = Nothing
    ConnSQL = True
    Exit Function

Err1:
    ConnSQL = False
    MsgBox err.Description, vbExclamation, "错误！"
End Function