Làm cách nào để ẩn ứng dụng Ms Access khi khởi động 1 form

Bước 1. Mở file access lên, copy đoạn code bên dưới này vào Module:

Option Compare Database
Option Explicit

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long

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

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

Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End Function

Bước 2. Chỉnh lại thuộc tính Popup trong Properties cho tất cả các form là "YES" (vào Properties của các Form)

Bước 3. Tạo Macro thứ nhất, đặt tên cho nó là "mcrHide"
- Phần Action: chọn Run Code
- Phần Function Name gõ vào: fAccessWindow("Minimize",False,False)

Bước 4. Tương tự tạo tiếp Macro thứ hai, đặt tên cho nó là "mcrshow"
- Phần Action: chọn Run Code
- Phần Function Name gõ vào: fAccessWindow("Show",False,False)

Bước 5. Đối với Form đầu tiên cho hiện ra khi khởi động file access (ví dụ khi bạn sử dụng Switchboard chẳng hạn) hoặc khi kích hoạt from định sẵn trong Startup:
a. Xử lý sự kiện Form Open như sau:

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunMacro "mcrHide"
End Sub

b. Xử lý sự kiện khi click nút cho hiện Access Application lên như sau:


Private Sub Command0_Click()
DoCmd.RunMacro "mcrShow"
Unload Me
End Sub

Bước 6. Kích hoạt form này tự khởi động khi cho chạy file, vào Tool/Startup: