ÄúµÄλÖãºÊ×Ò³ >> ¼ÆËã»ú » µÈ¼¶¿¼ÊÔ » AccessÊý¾Ý¿â£ºÒþ²ØAccess´°¿Ú >> ÕýÎÄ

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Function fSetaccessWindow(nCmdShow As Long)
' ʹÓþÙÀý
' ×î´ó»¯ access ´°¿Ú
' ?fSetaccessWindow(SW_SHOWMAXIMIZED)
' ×îС»¯ access ´°¿Ú
' ?fSetaccessWindow(SW_SHOWMINIMIZED)
' Òþ²Ø access ´°¿Ú
' ?fSetaccessWindow(SW_HIDE)
' Õý³£ÏÔʾ access ´°¿Ú
' ?fSetaccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next
loX = ShowWindow(hWndaccessApp, nCmdShow)
Err.Clear
fSetaccessWindow = (loX <> 0)
End Function