kết quả từ 1 tới 5 trên 5
  1. #1
    Tham gia ngày
    Jan 2010
    Bài gởi
    231
    Cảm ơn
    96
    Được cảm ơn 84 lần trong 67 bài viết
    Rep Power
    11

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



    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

    Các bài viết khác cùng chuyên mục:

    thay đổi nội dung bởi: glasseggs, 21-06-2010 lúc 08:26

  2. Có 2 thành viên sau đây cảm ơn glasseggs vì bài viết có ích này:


  3. # ADS
    DanketoanAds Circuit advertisement
    Tham gia ngày
    Always
    Bài gởi
    Many
     
  4. #2
    Tham gia ngày
    Jul 2009
    Nơi ở
    Tuy Hòa-Phú Yên
    Bài gởi
    1,647
    Cảm ơn
    756
    Được cảm ơn 1,961 lần trong 833 bài viết
    Rep Power
    45

    Ðề: 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!
    thay đổi nội dung bởi: sinhvienpy89, 21-06-2010 lúc 08:25
    Mỗi buổi sáng ở châu Phi, một con linh dương thức dậy.Nó biết rằng nó phải chạy nhanh hơn con sư tử nhanh nhất nếu không nó sẽ bị giết.

  5. #3
    Tham gia ngày
    Jan 2010
    Bài gởi
    231
    Cảm ơn
    96
    Được cảm ơn 84 lần trong 67 bài viết
    Rep Power
    11

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

    Trích Nguyên văn bởi phuyen89 View Post
    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.

  6. Các thành viên đã cảm ơn glasseggs về bài viết hữu ích này :


  7. #4
    Tham gia ngày
    Jul 2009
    Nơi ở
    Tuy Hòa-Phú Yên
    Bài gởi
    1,647
    Cảm ơn
    756
    Được cảm ơn 1,961 lần trong 833 bài viết
    Rep Power
    45

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

    Trích Nguyên văn bởi glasseggs View Post
    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 Code:
    DoCmd.Maximize 
    Bạn xem giùm File đính kèm nhen.
    thay đổi nội dung bởi: sinhvienpy89, 08-08-2010 lúc 07:24
    Mỗi buổi sáng ở châu Phi, một con linh dương thức dậy.Nó biết rằng nó phải chạy nhanh hơn con sư tử nhanh nhất nếu không nó sẽ bị giết.

  8. #5
    Tham gia ngày
    Jan 2010
    Bài gởi
    231
    Cảm ơn
    96
    Được cảm ơn 84 lần trong 67 bài viết
    Rep Power
    11

    Ðề: 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.

Thông tin về chủ đề

Users Browsing this Thread

Hiện đang có 1 người xem chủ đề này. (0 thành viên và 1 khách)

Chủ đề tương tự

  1. Access cần giúp đỡ gấp
    By luckyars1761 in forum Access căn bản
    Trả lời: 3
    Bài mới gởi: 30-05-2009, 11:13
  2. Trả lời: 2
    Bài mới gởi: 07-03-2009, 01:29
  3. Trả lời: 16
    Bài mới gởi: 14-10-2008, 04:22
  4. xin giúp sửa lỗi khi vào Access!
    By k56flex in forum Access căn bản
    Trả lời: 2
    Bài mới gởi: 24-06-2008, 01:36
  5. Vip Access Team và Normal Access Team
    By suynghidi in forum Access căn bản
    Trả lời: 6
    Bài mới gởi: 12-04-2008, 09:24

Quyền hạn

  • Bạn không thể gửi chủ đề mới
  • Bạn không thể gửi trả lời
  • Bạn không thể gửi file đính kèm
  • Bạn không thể sửa bài viết của mình
  •