隐藏 Access 窗口

Global Const SW_HIDE = 0# w6 O! k% X. V5 |3 v7 P
Global Const SW_SHOWNORMAL = 15 c" ?1 b" A, \$ x
Global Const SW_SHOWMINIMIZED = 2, ^( u  g! x. o3 T7 ^' u
Global Const SW_SHOWMAXIMIZED = 3 ) `/ E4 S. Y3 J& z. Z

+ ?; Z2 x7 q5 I  
% U" p1 F% p$ Y# J. M7 d4 d& o2 ^# P9 X( A  P/ N5 p
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long  
6 r' o5 B6 V! T5 j" [  N' D
4 x  K6 K. ^) `8 hFunction fSetAccessWindow(nCmdShow As Long): K1 t1 L0 d- C1 h
' 使用举例' q2 V4 ?: ]# D6 Y/ x
' 最大化 Access 窗口
$ U9 |* F6 E: G  A) G' ?fSetAccessWindow(SW_SHOWMAXIMIZED)* J2 g& J2 f: H7 u3 s
' 最小化 Access 窗口
6 _. u3 m( n, g( V' ?fSetAccessWindow(SW_SHOWMINIMIZED)
: M. H* [2 o/ ?" i2 ]' 隐藏 Access 窗口3 v1 m# t6 d3 H% w
' ?fSetAccessWindow(SW_HIDE)
& X# |4 b; z. m: O' 正常显示 Access 窗口
/ x" c+ f* \. P4 a2 B' ]2 M' ?fSetAccessWindow(SW_SHOWNORMAL)' l; f) j, t( v3 y. r7 ]' U# r: k) U1 v
'
+ t& a: \$ P8 M2 ]Dim loX As Long, ~; K* F' N* o# b
Dim loForm As Form
: `4 [9 w, h  ]& m1 u1 BOn Error Resume Next
. B  P6 }' W5 a5 O5 s. J& ~( jloX = ShowWindow(hWndAccessApp, nCmdShow)" L: }& W( D) F: S' ^8 @
Err.Clear' H0 S5 x9 x; L. ~, S
fSetAccessWindow = (loX  0)7 Z& Y* Z: t0 T. t/ ^4 [) E
End Function