Phân quyền truy cập menu trong Access pot

Phân quyền truy cââp menu trong AccessMình đã giới thiêêu với các bạn chương trình phân quyền thiet-ke-ctrinh-phan-quyen Mình cũng giới thiêêu các bạn cách bạn cách tạo

Phân quyền truy cââp menu trong Access

Mình đã giới thiêêu với các bạn chương trình phân quyền

thiet-ke-ctrinh-phan-quyen

Mình cũng giới thiêêu các bạn cách bạn cách tạo 1 thanh menu

huong-dan-tao-menu-trong-access.html

Hôm nay mình xin giới thiêêu cách để hiển thị 1 menu với user này và ẩn với user khác

Ta hãy mở 1 module và soạn thủ tục sau:

Sub ViewMenu(User as String, mnBar as string, mnItem as String, IsView

as Boolean)

If currUser= User Then

CommandBars(mnBar).Controls(mnItem).Visible = isView

End If

End Sub

Thủ tục trên cho ta hiêên 1 menu với

User : user muốn cho phép xem

CurrUser: User hiêên tại đăng nhâêp vào hêê thống ( bạn có thể gán 1 biến toàn

cục, mỗi khi có người đăng nhâêp thành công, thì gán : CurrUser bằng

UserName)

mnBar: tên thanh menu do bạn tự tạo

mnItem : tên menu (caption) do bạn tạo và gắn trên thanh Menu

Ví dụ:

Trong bài đăng về tạo menu http://thuthuataccess.blogspot.com/2009/12/huong-dan-tao-menu-trong-access.html

Bạn tạo 1 thanh menu "QuanLyCongVan" với 2 Item là : "Câêp Nhâêt", và

"Thoát".Bây giờ bạn muốn chỉ hiêên menu "Câêp Nhâêt" cho User, và Admin

( nhóm guest không được thấy) ta gọi sau khi người dùng đăng nhâêp thành công:

ViewMenu "User", "QuanLyCongVan", "Câêp Nhâêt", True

ViewMenu "Admin", "QuanLyCongVan", "Câêp Nhâêt", True

ViewMenu "Guest", "QuanLyCongVan", "Câêp Nhâêt", False