Tùy chọn
Đóng 1 ứng dụng MS access khác đang mở
- Đó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().
Cháu xin hỏi về tắt các ứng dụng khác như Excel thì như thế nào ?
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
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.
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.