Tùy chọn
Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
- Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
-
Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
Noname > 29-10-10, 10:45 AM
'Writer By: Noname
'Site: http://thuthuataccess.com - Vui long giu nguyen site va tac gia neu ban dung hoac share module nay
------------------------------------------------------------------
Đầu tiên, Bạn thiết kế một table tblAuditTrail(Times,UserID,UserName,ComputerName,module,Action)
Tạo một đoạn chương trình con như sau trong một module mới
Mã:Sub InputAuditTrail(CurrentModule As String, CurrentAction As String)
Dim rsAudit As Recordset
Set rsAudit = CurrentDb.OpenRecordset("tblAuditTrail", dbOpenTable)
rsAudit.AddNew
rsAudit("Times") = Now()
rsAudit("UserID") = CurrentUserID
rsAudit("Username") = CurrentUserName
rsAudit("ComputerName") = Environ("ComputerName")
rsAudit("module") = CurrentModule
rsAudit("Action") = CurrentAction
rsAudit.Update
rsAudit.Close
End Sub
Trong mỗi hành động ở các form, bạn gọi function InputAuditTrail "Tên module hiện hành","Hoạt động của người dùng"
Ví dụ, người dùng mở form Nhập hóa đơn. Thì trong Form load của form nhập hóa đơn, ta thêm dòng sau:
Chú ý, CurrentUserID, và CurrentUserName là hai giá trị đã được bạn khai báo trước vào lúc người dùng login vào chương trình!Mã:InputAuditTrail "Nhập Hóa Đơn","OpenForm" -
RE: Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
uronmapu > 12-06-12, 11:07 AM
Xin hỏi là có thể lưu vết được trong bao lâu ạ?
Ví dụ dữ liệu lúc đầu có là A, hôm này e sửa 1 số thông tin, rồi ngày mai e lại sửa tiếp , .... cứ vậy thì có lưu được ngày đầu, ngày 2, ngày 3, .... làm gì ko ạ? hay chỉ lưu sự kiện gần nhất
cảm ơn -
RE: Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
Noname > 12-06-12, 11:34 AM
Lưu Đến khi nào bạn vào bảng đó xóa bớt hoặc file của bạn phình to quá 2GB -
RE: Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
thdanh > 16-10-14, 11:22 AM
Mình muốn thêm cái fiel giờ thoát ra thì mình đặt timeout = gì hả bạn. -
RE: Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
m.vuong2211 > 10-04-15, 02:08 PM
Có file demo không bác