• Đóng 1 ứng dụng MS access khác đang mở
  • RE: Đóng 1 ứng dụng MS access khác đang mở

    DooHoaangPhuuc > 29-11-19, 10:50 PM

    (29-11-19, 09:24 AM)ongke0711 Đã viết: Đóng một ứng dụng khác từ xa cũng có nhiều cách, tôi giới thiệu cách này: dùng hàm GetObject().
    Cách này có thể đóng các loại ứng dụng chứ không riêng gì Ms Access.
    Nó cũng hơi bá đạo chút vì bạn ngồi từ xa đóng ứng dụng nếu biết đường dẫn file có thể làm người đang thao tác trên file đó giật mình  014

    Mã PHP:
    Function CloseRemoteDB()
        Dim oRemoteDB As Object
        Dim sFullFilePath 
    As String

        sFullFilePath 
    "\\Mac\Home\Documents\Test.accdb"
        Set oRemoteDB GetObject(sFullFilePath)
        oRemoteDB.DoCmd.RunMacro ("Macro1")
        oRemoteDB.DoCmd.Quit acQuitSaveAll
    End 
    Function 


    - Để tránh người dùng bỡ ngỡ, bạn nên tạo 1 form thông báo "đóng CSDL" và 1 Macro1 để gọi form thông báo này.
    - Form thông báo sẽ thiết lập Timer trong bao nhiêu giây sẽ tự đóng (dùng MessageBox thì không tự đóng được).
    - Sau đó ứng dụng sẽ tự thoát.
    Cháu xin hỏi về tắt các ứng dụng khác như Excel thì như thế nào ?
    Do có một số file chia sẽ chung trên folder của mạng Lan. Người dùng mở và quên đóng file sau khi cập nhật, hay xem. Và khóa màn hình rời khỏi bàn làm việc. Khi người khác cần cập nhật mở file nhưng không lưu lại được . Nên cần phải điều khiển đóng file lại .
    Như vậy , ngoài tạo Hàm chức năng Function CloseRemoteDB() như trên, còn tạo Macro1 (để hiển thị message thông báo trên máy người  đang mở file) như thế nào để thông tin trước khi đóng ứng dụng Excel.
    Cháu xin cảm ơn
    Doo Hoaang Phuuc
  • RE: Đóng 1 ứng dụng MS access khác đang mở

    ongke0711 > 29-11-19, 11:05 PM

    (29-11-19, 10:50 PM)DooHoaangPhuuc Đã viết: Cháu xin hỏi về tắt các ứng dụng khác như Excel thì như thế nào ?
    Do có một số file chia sẽ chung trên folder của mạng Lan. Người dùng mở và quên đóng file sau khi cập nhật, hay xem. Và khóa màn hình rời khỏi bàn làm việc. Khi người khác cần cập nhật mở file nhưng không lưu lại được . Nên cần phải điều khiển đóng file lại .
    Như vậy , ngoài tạo Hàm chức năng Function CloseRemoteDB() như trên, còn tạo Macro1 (để hiển thị message thông báo trên máy người  đang mở file) như thế nào để thông tin trước khi đóng ứng dụng Excel.
    Cháu xin cảm ơn
    Doo Hoaang Phuuc

    - Bạn chỉ cần thay thế đường dẫn file thành đường dẫn file Excel là được rồi. 
    - Macro của Excel cũng là VBA nên bạn cũng vô VBE tạo thôi. Nó sẽ có khác chút nhưng tổng thể cách code cũng như VBA Access thôi.