TIP :Cho Access thoát khỏi .... Access !

glasseggs

New Member
Hội viên mới
:xinloinhe:
25827634.jpg

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
:k5429592:
 
Sửa lần cuối:
Ðề: TIP :Cho Access thoát khỏi .... Access !

Mình thử nghiệm y chang như bạn.Nhưng không thành công.Bạn kiểm tra giùm nhen!
 
Sửa lần cuối:
Ðề: TIP :Cho Access thoát khỏi .... Access !

Mình thử nghiệm y chang như bạn.Nhưng không thành công.Bạn kiểm tra giùm nhen!

Bạn có 3 cái lỗi :
1. Form Sartup sự kiện Open bạn đã gõ Code tuy nhiên chưa gắn sự kiện cho nó,bạn phải mở Form ở Design chọn sự kiện Open gán Store Procedure .
2. Cái này do mình chưa bảo ,phải đặt Form khởi động auto đầu tiên và phải đặt tất cả các Form dưới dạng Popup.
3. Nút Show chạy Code lệch tên với marco.
 
Ðề: TIP :Cho Access thoát khỏi .... Access !

Bạn có 3 cái lỗi :
1. Form Sartup sự kiện Open bạn đã gõ Code tuy nhiên chưa gắn sự kiện cho nó,bạn phải mở Form ở Design chọn sự kiện Open gán Store Procedure .
2. Cái này do mình chưa bảo ,phải đặt Form khởi động auto đầu tiên và phải đặt tất cả các Form dưới dạng Popup.
3. Nút Show chạy Code lệch tên với marco.

Không biết cái này mình làm được chưa.Nhưng mình nhớ là cái File trước đã làm điều này rồi.
Form Sartup sự kiện Open bạn đã gõ Code tuy nhiên chưa gắn sự kiện cho nó,bạn phải mở Form ở Design chọn sự kiện Open gán Store Procedure

Hình như là trong Form:frmStartu phải thêm cái này nữa nó mới bung toàn bộ màn hình bạn ah.
PHP:
DoCmd.Maximize
Bạn xem giùm File đính kèm nhen.
 
Sửa lần cuối:
Ðề: TIP :Cho Access thoát khỏi .... Access !

File này được rồi. Chỉ có điều mình không hiểu ý bạn. Tựa đề bài này của mình là làm mất cái cửa sổ của Access,giống như hình minh hoạ.
Vậy thì bạn thêm cái lệnh DoCmd.Maximize làm gì, lệnh này có nghĩa là phóng to cửa sổ mà, nó ngược hoàn toàn với cái marco bạn cho chạy. Thế này tức là bạn cho ẩn cửa sổ rồi lại cho hiện nó lên.
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Kỹ thuật giải trình thanh tra BHXH

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top