(26-08-10, 08:35 PM)Noname Đã viết: 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:

Mã:

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

Mã:

User

: user muốn cho phép xem

Mã:

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)

Mã:

mnBar

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

Mã:

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/...ccess.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:

Mã:

ViewMenu "User", "QuanLyCongVan", "Cập Nhật", True
    ViewMenu "Admin", "QuanLyCongVan", "Cập Nhật", True
    ViewMenu "Guest", "QuanLyCongVan", "Cập Nhật", False

Các ace giàu kinh nghiệm làm việc với access cho hỏi tạo Menu của chương trình bằng Toolbars thì object nào chứa menu này. Ví dụ: tạo menu bằng macro thì nó sẽ nằm trong object marco của access.
Rất mong nhận được hồi đáp của quý ace.
Trân trọng./.

(20-12-10, 07:59 PM)khanhduycsgt Đã viết: ai ở SG có dịp xuống Thủ Đức hú mình 1 tiếng nha! ^^
Y!: khanhduycsgt
fb: www.facebook.com/khanhduycsgt

cám ơn bạn haquocquan phát nữa!

Yêu cầu bạn Khanhduycsgt hảy tỏ ra mình là người lịch sự thì nên gở câu này bỏ trong phần chủ ký của bạn "để tỏ rõ mình là người lịch sự nào! ^^"