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

Thảo luận trong 'Access và VBA' bắt đầu bởi glasseggs, 16/6/10.

  1. glasseggs

    glasseggs New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    :xinloinhe:
    [​IMG]
    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 :

    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:
     
    Chỉnh sửa cuối: 21/6/10
  2. sinhvienpy89

    sinhvienpy89 Mỗi ngày 1 điều mới Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    6
    Ðề: 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!
     
    Chỉnh sửa cuối: 21/6/10
  3. glasseggs

    glasseggs New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: 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.
     
  4. sinhvienpy89

    sinhvienpy89 Mỗi ngày 1 điều mới Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    6
    Ðề: TIP :Cho Access thoát khỏi .... Access !

    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.
    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.
     
    Chỉnh sửa cuối: 8/8/10
  5. glasseggs

    glasseggs New Member Hội viên mới

    Được cảm ơn:
    0
    Điểm thành tích:
    0
    Ðề: 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.
     

Chia sẻ trang này

XenForo Add-ons by Brivium ™ © 2012-2013 Brivium LLC.