Đánh giá chủ đề:
  • 4 Votes - 1.75 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail)
#1
'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!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , haquocquan , alilibababa , Minh Tiên , maidinhdan
#2
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
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn
#3
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Mình muốn thêm cái fiel giờ thoát ra thì mình đặt timeout = gì hả bạn.
Chữ ký của thdanh Xin chào, mình là thdanh, Tham gia http://thuthuataccess.com/forum từ ngày 08-08 -14.
Reply
Những người đã cảm ơn
#5
Có file demo không bác Lightbulb
Chữ ký của m.vuong2211 Xin chào, mình là m.vuong2211, Tham gia http://thuthuataccess.com/forum từ ngày 02-04 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,189 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] 25 thủ thuật sử dụng Combobox, ListBox, Option group (Sưu tầm) ongke0711 0 554 03-12-15, 05:06 PM
Bài mới nhất: ongke0711
  Phân quyền truy cập menu trong Access Noname 21 13,295 03-02-15, 11:03 AM
Bài mới nhất: nhocnhim0009
  Phân quyền sửa Chương trình trong Access Noname 6 5,991 28-11-14, 11:43 AM
Bài mới nhất: nvthanghcm
  [Thủ Thuật] Đưa file icon vào chương trình bằng code nguyentung 9 1,551 01-11-14, 07:52 PM
Bài mới nhất: quanghoasla

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ