• Trang chủ click to expand contents 

  • 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:
    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!

  • 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 Lightbulb