有时候我们需要隐藏ACCESS数据库的主窗口,比如在程序登录窗口,这时有两种方法可以达到这个要求.
1.采用ShowWindow 函数:
首先在模块中声明下面的代码:
Option Explicit
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
然后在窗体加载代码中调用:
ShowWindow Me.Application.hWndAccessApp, 0'隐藏
当需要恢复时,使用下面的代码:
ShowWindow Me.Application.hWndAccessApp, 1'不隐藏,即恢复
2.使用最小化命令,将窗体设置"弹出"方式为"是"
DoCmd.RunCommand acCmdAppMinimize
恢复代码:
DoCmd.RunCommand acCmdAppMaximize