Уважаемые форумчане линкую таблица при помощи функции SetTableLink повещанной на автоекзе макрос, а с помошью функции hideNavePan скрываю панель гнавигации.
Все навроде бы работает, но вот только в процессе линковки панель не скравается.
Куда я только не пытался воткнуть запуск функции hideNavePan
Подскажите пожалуйста как процесс линковки зделать невидимым

Public Function SetTableLink()
'пытался с крыть в начале выполнения линковки
Dim Tablname As String ' имя таблицы
Dim DbLinkPath As String, PathDbLink As String  ' путь базы
Dim rsDbLin As DAO.Recordset 'Рекордсет для базы
Dim dbs As Database, tdf As TableDef
Dim sSS As Variant, fso As Object
Dim strPath As String, f

    ' Удаление линкованых таблиц
    Set dbs = CurrentDb
999:
    For Each tdf In dbs.TableDefs
       sSS = tdf.Connect
        If Len(sSS) > 0 Then
            dbs.TableDefs.Delete (tdf.Name)
            GoTo 999
        End If
    Next tdf

'Линковка новых таблиц
PathDbLink = DLookup("[DBfolders]", "td_folder")

 Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.FileExists(PathDbLink)
If f = False Then
MsgBox "Файл базы данных не найден!" & vbCrLf & "Задайте путь к файлу базы данных и повторите соединение.", vbCritical + vbOKOnly
DoCmd.Close acForm, "Start"
DoCmd.OpenForm "frm_path_DB_link"
Exit Function
Else
'On Error GoTo er1
Set rsDbLin = CurrentDb.OpenRecordset("td_table") ' открываем рекордсет с базами
strPath = DLookup("[LinkPath]", "td_general")
     Do Until rsDbLin.EOF = True ' пока в рекодсете есть запись выполняем
    'пытался с крыть в процессе выполнения линковки
        Tablname = rsDbLin!TableName 'засовываем имя линкуемой таблицы в переменную
        'DbLinkPath = strPath & "\" & rsDbLin!PathDbLink & "\" & rsDbLin!DbName ' создаем путь к базе
        DoCmd.TransferDatabase acLink, "Microsoft Access", PathDbLink, acTable, Tablname, Tablname, False, False
                   rsDbLin.MoveNext ' следующая таблица
           
                Loop
       rsDbLin.Close
On Error Resume Next
 Call hideNavePan
DoCmd.Close acForm, "Start"
DoCmd.Close acForm, "frm_path_DB_link"
DoCmd.OpenForm "frm_login"

 Exit Function
 End If
er1:
If Err.Number = 3011 Then
MsgBox "Неверный формат базы данных!" & vbCrLf & "Задайте путь к файлу базы данных и повторите соединение.", vbCritical + vbOKOnly
DoCmd.OpenForm "frm_path_DB_link"
DoCmd.Close acForm, "Start"
Exit Function
Else
MsgBox "Иная ошибка соединения с базой" & vbCrLf & Err.Number & vbCrLf & Err.Description
End If
End Function



Public Function hideNavePan()
'Скрываем боковую панель навигации
  DoCmd.SelectObject acTable, , True
  DoCmd.RunCommand acCmdWindowHide
End Function

http://www.sql.ru/forum/1174076/skrytie-paneli-navigacii-v-procese-linkovki-tablic