[5分]如何让当前窗口不关闭。谢谢。

经常会在Access主窗体中使用一个最大化的窗体，作为背景窗体进行美化，或者直接作为程序的面板窗体。但这样，菜单栏的右边会有一个讨厌的还原按钮，甚至是帮助查询框、关闭按钮等。为了去掉这个还原按钮又要使用菜单，我和论坛上众多高手都曾作了不少尝试。通常都有下面几种方法：
1、不用菜单栏，用Toolbar控件或工具栏代替菜单栏，但又会有讨厌的下拉箭头出现，也显得不够“专业”。为此，我还用ListView或标签控件模拟主菜单而使用弹出式菜单等方法，但都是出力不讨好的权宜之计。
（隐藏主菜单的方法：建立一个自定义菜单，属性要改为菜单，并在启动窗口中选此菜单作为程序菜单。在设计或运行时把此菜单拖动到窗口中关闭及可。）
2、另一个比较常用的方法是先把主窗体最大化，再把背景窗体最大化，取得此时背景窗体的大小尺寸。然后把背景窗体还原，设置背景窗体的尺寸为先前最大化时的尺寸。这样还用一个好处是，这是可以使用非弹出式窗体而不会都是最大化。缺点是主窗体尺寸变更时，背景窗体无法同步变更，且主窗体会出现滚动条，影响美观和使用。
这种方法的一种代码是：
Private Sub Form_Current()
   
    Dim FormWidth, FormHeight As Integer
    'DoCmd.RunCommand acCmdAppMaximize '将access界面最大化
    DoCmd.Maximize
    FormWidth = Me.WindowWidth
    FormHeight = Me.WindowHeight
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, FormWidth, FormHeight

End Sub