Tùy chọn
Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
- Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
-
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
haquocquan > 21-06-12, 05:38 PM
(20-06-12, 07:56 PM)uronmapu Đã viết: Cảm ơn bác, nhưng vấn đề lưu vết chưa ổn lắm ạ
Trong form frmContactDetail e có cập nhật First giá trị mới, nhưng trong bảng tblLuuVetChuongTrinh thì ko hiện ra, OldValue và NewValue giống nhau
form frmNewContact thì ok rồi ạ
Nhưng cả 2 trường hợp ko lưu lại account nào đã chỉnh sửa, thay đổi ạ
Bạn up lại file Bạn đang làm lên nhé. -
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
uronmapu > 21-06-12, 08:21 PM
Bác xem file đính kèm nhé: http://www.mediafire.com/?1m1grrbcpsr1ob0
(em ko up từ diễn đàn được ko biết lỗi gì nên phải up lên mediafire)
User/ Password để đăng nhập:
1. admin/admin
2. Nguyen Van A/ 1
3. Nguyen Van B/ 12
Khi đăng nhập vào sẽ mở ra form frmSearchExcample
Nếu double-click vào 1 giá trị trong listbox thì sẽ mở ra một form mới frmContactDetail
Thử sửa giá trị First và Last trong này sau đấy nhấn Update
Vào lại bảng tblLuuVetTruongTrinh: giá trị mới NewValue lưu là chính xác, nhưng giá trị cũ OldValue thì lại lấy giá trị mới luôn mà ko lấy giá trị cũ trước khi upadte
Thêm nữa là không lưu lại user nào đã thay đổi ở trường strEmpName
Bác giúp e nhé, e cảm ơn -
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
haquocquan > 22-06-12, 02:00 AM
(21-06-12, 08:21 PM)uronmapu Đã viết: Bác xem file đính kèm nhé: http://www.mediafire.com/?1m1grrbcpsr1ob0
(em ko up từ diễn đàn được ko biết lỗi gì nên phải up lên mediafire)
User/ Password để đăng nhập:
1. admin/admin
2. Nguyen Van A/ 1
3. Nguyen Van B/ 12
Khi đăng nhập vào sẽ mở ra form frmSearchExcample
Nếu double-click vào 1 giá trị trong listbox thì sẽ mở ra một form mới frmContactDetail
Thử sửa giá trị First và Last trong này sau đấy nhấn Update
Vào lại bảng tblLuuVetTruongTrinh: giá trị mới NewValue lưu là chính xác, nhưng giá trị cũ OldValue thì lại lấy giá trị mới luôn mà ko lấy giá trị cũ trước khi upadte
Thêm nữa là không lưu lại user nào đã thay đổi ở trường strEmpName
Bác giúp e nhé, e cảm ơn
Mình đưa các hàm CapnhatLuuVet và GoihamLuuVet của bạn vào Module1; đồng thời khai báo thêm một số biến.
Sửa thêm một chút trong hai form của bạn.
Vấn đề lưu người dùng đã xong; tuy nhiên: mình chưa xử lý được OldValue và NewValue
Gợi ý cho bạn về OldValue và NewValue: bạn đã có các biến, thay đổi cách gán giá trị cho nó thôi: Gán trực tiếp khi bấm nút mở các form và nút Save, Updatte -
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
uronmapu > 22-06-12, 10:19 PM
Cảm ơn bác, bác nghỉ ko ra chắc e cũng đến chịu mất
-
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
haquocquan > 23-06-12, 12:39 AM
-
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
uronmapu > 23-06-12, 09:46 AM
Cảm ơn bác haquocquan nhiều ! -
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
uronmapu > 23-06-12, 12:15 PM
Em làm theo bác thì bị lỗi
Run-time error '13' Type mismatch
báo vàng ở dòng lệnh
Set rst = db.OpenRecordset("tblLuuVetChuongTrinh")
Mã:Function CapNhatLuuVet(fUserName, fOldValue, fNewValue, fControlName, fFormName)
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("tblLuuVetChuongTrinh")
rst.AddNew
rst!TenUser = fUserName
rst!GiaTriCu = fOldValue
rst!GiatriMoi = fNewValue
rst!TenControl = fControlName
rst!TenForm = fFormName
rst!NgayCapNhat = Date
rst!GioCapNhat = Time()
rst.Update
rst.Close
Set rst = Nothing
Set db = Nothing
End Function
Mình đã thêm dòng lệnh Dim rst As DAO.Recordset thay Dim rst As Recordset -
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
haquocquan > 23-06-12, 03:42 PM
Bạn chạy file của tôi có vấn đề gì không?
Bạn up lại file bị lỗi lên để mình xem -
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
uronmapu > 23-06-12, 05:36 PM
Ổn rồi bác ạ
Bác cho e hỏi thêm làm thế nào khi nhấn vào nút xóa dữ liệu thì nó cũng ghi vào lưu vết là đã xóa bản ghi nào ạ
Em cảm ơn nhiều -
RE: Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
haquocquan > 23-06-12, 06:58 PM
Bạn đặt lưu vết tại nút xóa