AccessDB - 导航窗格意外打开

Question

在我的应用程序开始时，我确保导航窗格最小化（未隐藏）：

DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.Minimize

但是，当我尝试创建到远程表的LINK时，导航窗格意外打开。

  

在下面插入HansUp建议

Dim strPath As String 
Dim strFilename As String
Dim strNewFile As String

strPath = Left(CurrentDb.NAME, InStrRev(CurrentDb.NAME, "\"))
strNewFile = strPath & "PostInv_Backend.accdb"

'>>>Inserted HansUp suggestion
Application.Echo False
'<<<

DoCmd.TransferDatabase acLink, "Microsoft Access", strNewFile, acTable, "Item", "Item"

'>>>Inserted HansUp suggestion
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.Minimize
Application.Echo True
'<<<

是的，我可以重新最小化，但这会产生令人讨厌的BLINK。反正有没有避免NAV窗格像这样打开？

谢谢！