Access高手进

来源：百度知道 编辑：UC知道 时间：2024/05/12 09:14:06
是这样的，我设计了一个数据库系统，启动这个数据库后自动弹出登陆窗体，我想问一下，如何让这个登陆窗体弹出来的时候（也就是我做的这个数据库系统启动的时候）Access自动最小化呢？

1，把登陆窗体设成弹出窗口。
2，然后建个模块，把下面这代码放进去。
Option Compare Database
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
fSetAccessWindow = (loX <> 0)
End Function
3，最后在登陆窗体的LOAD事件中放入这句代码
fSetAccessWindow (SW_SHOWMINIMIZED)
DoCmd.Restore

你的前台是怎么搞的啊

好像不可以的哦，本身你的窗体就是在数据库窗体里面的，如果最小化了，那应该是全部都最小化了

你可以用其他的程序语言来连接数据库，而不是用access的vba来写系统
如用vb来写程序和界面，连接access数据库就可以得到你要的效果了