-
06-17-2010, 04:06 AM #1Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 52
TIP :Cho Access thoát khỏi .... Access !
:xinloinhe:
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
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:View more random threads:
- Làm sao để tính số lượng sách của 1 mã sách còn lại trong thư viện. ac ơi..giúp e với
- Tối ưu thuật toán tạo thẻ kho trong access
- tìm kiếm qua các điều kiện chọn textbox
- Code cập nhật Tồn kho!
- Giúp mình tạo số chứng từ tự động tăng theo tháng năm hiện tại
- Code Mở phím Shift bị lỗi
- Giúp sinh mã quản lý cho từng sản phẩm
- [help] Giúp em giải quyết cách liên kết giữa 2 combo box,1 text box với
- dữ liệu ngày trả về quý
- Kiểu ngày tháng trong access
-
06-17-2010, 04:24 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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!
-
06-17-2010, 06:20 AM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: TIP :Cho Access thoát khỏi .... Access !
Gửi bởi phuyen89
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.
-
06-22-2010, 03:24 AM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: TIP :Cho Access thoát khỏi .... Access !
Gửi bởi glasseggs
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
Mã nguồn PHP:[COLOR=#000000]
DoCmd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Maximize[/COLOR]
-
06-22-2010, 06:27 AM #5Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 5
Ðề: 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.
Du lịch Singapore là đã không còn là điểm đến xa lạ đối với những người yêu thích xê dịch. Tuy có diện tích bé nhỏ, nguồn tài nguyên ít ỏi nhưng “đảo quốc sư tử” đã biết biến những điều không thể...
Nên đi những địa điểm nào trong tour Du lịch Singapore của Dulichviet