怎样用代码隐藏、化、最小化ACCESS的主窗口

由函数定义的常量fSetACCESSWindow实现。
此功能可用于完全隐藏Access窗口，并在桌面上显示您自己的表单。使用SW_HIDE参数在弹出窗体的Open事件中调用fSetACCESSWindow函数。
注意:如果您隐藏了Access主窗口，请确保您有良好的错误处理。因为主窗口隐藏后，一旦引发错误，在错误提示窗口点击“结束”按钮，这并不会使Access主窗口可见，退出自己的窗体。建议您在错误处理程序中使用SW_SHOWNORMAL参数来调用fSetACCESSWindow函数，以显示Access主窗口。
如果ACCESS主窗口由于其他原因无法显示，那么您必须从任务栏关闭mdb，并使用Control-Alt-Delete来结束Win 9x中的任务。在Win NT、2000或XP中，可以右键单击任务栏，选择任务管理器，选择mdb结束任务。

* * * * * * * * * *代码开始* * * * * * * * *
全局常量SW _ hide = 0
全局常量SW _ shownormal = 1
全局常量SW _ showminimized = 2 [

' private Declare Function API show window Lib " user 32 " _
Alias " show window "(ByVal hwnd As Long，_
ByVal ncmdshow As Long
Function f ACCESS window(ncmdshow As Long)
'使用示例
'制作ACCESS window
'？fsccesswindow(SW _ show maximized)
'最小化访问窗口
'？fsccesswindow(SW _ show minimized)
'隐藏访问窗口
'？FsetaAccess Window(SW _ hide)
'正常显示访问窗口
'？fSetACCESSWindow(SW _ show normal)
'
Dim loX Long
Dim l FORM As FORM
On Error Resume Next
set FORM = screen . active FORM
ifer 0 then ' No active FORM
ifncmdshow = SW _ hide then
msgbox "除非屏幕上有窗口，否则不能隐藏主ACCESS窗口！"_
& vbcr & VBcr _
& "无法隐藏访问，除非“_
& "屏幕上有窗体”
Else
loX = API show window(hWndACCESSApp，nCmdShow)
Err。clear
End If
Else
If nCmdShow = SW _ show minimized And l form。Modal = True Then
MsgBox "不能通过" &(l窗体最小化主访问窗口。Caption+"")&“屏幕上的窗体！”_
& vbcr & VBcr _
& "无法使用“_
& (loFORM最小化访问。Caption + " ") _
& "屏幕上的窗体"
else if ncmdshow = SW _ hide and l form。popup true then
msgbox "您不能通过" &(l窗体隐藏ACCESS主窗口。Caption+"")&“屏幕上的窗体！”_
& vbcr & VBcr _
& "无法隐藏带有“_
& (loFORM。Caption + " ") _
& "屏幕上的窗体"
Else
loX = API show window(hWndACCESSApp，MD show)
End if
End if
fsetaccesswindow =(loX 0)
' End function
' * * * * * * * * * * *代码结束* * * * * * * *。