如何让数据库打开时只显示登录窗口，ACCESS软件窗口消失！

'新建一个模块，将以下代码复制进去

'代码来源ACCESSOFT网络

Option Compare Database

'隐藏与显示ACCESS主窗口
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'隐藏与显示ACCESS主窗口
'调用方法
'HideAccessWindow False 显示
'HideAccessWindow True  隐藏
Public Function HideAccessWindow(Hidden As Boolean)
    On Error Resume Next
    Dim lngResult As Long
    If Hidden Then lngResult = GetWindowLong(hWndAccessApp, -20) Or &H80000
    SetWindowLong hWndAccessApp, -20, lngResult
    SetLayeredWindowAttributes hWndAccessApp, 0, 0, &H2
End Function

'在那个窗体的打开事件中加入

HideAccessWindow True

'就可以了，注意：如果SHIFT失效的话，可能再也无法让她停止了