Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Phân quyền cho User A không thấy được dữ liệu UserB đã nhập
#11
(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é.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
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
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
#13
(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


File đính kèm
.zip   HelpMe20062012.zip (Kích cỡ: 61.89 KB / Tải về: 16)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn uronmapu
#14
Cảm ơn bác, bác nghỉ ko ra chắc e cũng đến chịu mất sad
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
#15
(22-06-12, 10:19 PM)uronmapu Đã viết: Cảm ơn bác, bác nghỉ ko ra chắc e cũng đến chịu mất sad

Trong bài trước mình đã gợi ý: Bạn gán giá trị cho các biến.
Bạn xem file nhé. Tôi tin là giải quyết được vấn đề của bạn.


File đính kèm
.zip   HelpMe20062012.zip (Kích cỡ: 62.12 KB / Tải về: 13)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn uronmapu
#16
Cảm ơn bác haquocquan nhiều !
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
#17
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
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
#18
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
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn uronmapu
#19
Ổ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
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
#20
Bạn đặt lưu vết tại nút xóa
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn uronmapu


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 20 2 Giờ trước
Bài mới nhất: maidinhdan
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 200 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  Thay đổi hình ảnh theo mã feeling 3 149 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 139 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,327 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82

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ơ