[5分]弹出窗体上控件无法获得焦点

现有一弹出窗体formA，并设置为Access打开时自动弹出窗体formA，在formA上有文本框txtname，在窗体formA的加载事件中写代码如下：

Private Sub Form_Load()
    Me.txtname.SetFocus
End Sub
在这种情况下txtname控件无法获得焦点，将窗体formA的模式设置为“是”之后，txtname控件是可以获得焦点，但是隐藏左侧导航窗格的代码又不能运行了。

隐藏左侧导航窗格的方法是使用的本网站网友提供的方法，具体如下：

VBA的标准模块中新建一个函数：

Public Function CloseNavigationPane()
    '隐藏导航窗格
    Dim strTableName As Variant
    strTableName = DLookup("Name", "mSysObjects", "[Type] = 1 AND [Flags] = 0")
    DoCmd.SelectObject acTable, strTableName, True
    DoCmd.RunCommand acCmdWindowHide
End Function

然后再新建一个名为AutoExec的宏，在宏中用RunCode宏命令调用上面的CloseNavigationPane函数。特别说明一下，当我把窗体 模式设置为 “否”时，改代码可以隐藏左侧导航窗格，但txtname无法获得焦点；当把formA窗体的 模式设置为“是”时，txtname控件可以获得焦点，但是隐藏导航窗格的代码又不起作用了。怎么办？