Nếu ai đã từng viết 1 phân mềm bằng Access chắc đã từng muốn cho phần mềm của mình thoát khỏi cái cửa sổ đáng ghét của Access cho phần mềm trông pro hơn.
Cũng mang những tham vọng đấy,vô tình lang thang trên mạng mình đã chôm được tip này trên diendanexcel nay xin post lại cho mọi người ai có nhu cầu như mình.
1.Copy nguyên code sau vào 1 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
2. Tạo marco
1 )Tên : mcrHide ,
Action : Runcode ,
Function Name : fAccessWindow("Minimize",False,False)
2) Tên : mcrShow,
Action : Runcode ,
Function Name : fAccessWindow("Show",False,False)
3.Sự kiện Open của Form chính (Form được mở đầu tiên) :
Private Sub Form_Open(Cancel As Integer)
DoCmd.RunMacro "mcrHide"
End Sub
4. Mở Form ở Design ,Thẻ Other chọn Popup là Yes cho tất cả các Form trong phần mềm.
Nhược điểm : Khó sử dụng chức năng tìm kiếm mặc định của Access (Ctrl + F) vì sẽ có một số lỗi quái chiêu.
Còn marco Show thì cho vào 1 command button nào đó để cho hiện lên khi cần.
Thử nghiệm trên Xp khi đã cho ẩn thì không cách nào cho hiện lên nếu không dùng marco Show, còn trên Win 7 thì vẫn cho lên được nhưng vẫn dùng ngon lành.
Nguồn : Diendanexcel.com
