'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:
Mã:
InputAuditTrail "Nhập Hóa Đơn","OpenForm"
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!