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

̀ ̣

ng trinh phân quyên i thiêu v i cac ban ch ơ ươ ̃ ơ ̀ ̣ ́ ̣ ̀ ̀

i thiêu cac ban cach ban cach tao 1 thanh menu ̀ ̃ ̣ ́ ̣ ́ ̣ ́ ̣

i thiêu cach đê hiên thi 1 menu v i user nay va ân v i user ơ ơ ơ ̀ ̣ ́ ̉ ̉ ̣ ̀ ̀ ̉ Minh đa gi thiet-ke-ctrinh-phan-quyen Minh cung gi ơ huong-dan-tao-menu-trong-access.html Hôm nay minh xin gi khac.́

Ta hay m 1 module va soan thu tuc 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

̉ ̣ ̣ ́ ́ ̣ ̣ ̣ ̀ ̣ ́ ̣ ́ ̉ ́ ́ ̀ i đăng nhâp thanh công, thi gan : CurrUser băng ươ ̣ ̃ ́ ̣ ̀ ̀ ́ ̀

tao ̣ ư ̣ Thu tuc trên cho ta hiên 1 menu v i ơ User : user muôn cho phep xem CurrUser: User hiên tai đăng nhâp vao hê thông. ( ban co thê gan 1 biên toan cuc, môi khi co ng UserName) mnBar: tên thanh menu do ban t mnItem : tên menu (caption) do ban tao va găn trên thanh Menu ̣ ̣ ̀ ́

́ ̣ ̀ ̀ ̣ Vi du: Trong bai đăng vê tao menu http://thuthuataccess.blogspot.com/2009/12/huong- dan-tao-menu-trong-access.html

Ban tao 1 thanh menu "QuanLyCongVan" v i 2 Item la : "Câp Nhât", va ơ ̀ ̣ ̣ ̀ ̣ ̣

ban muôn chi hiên menu "Câp Nhât" cho User, va Admin. ( nhom ́ ̣ ́ ̉ ̣ ̣ ̣ ̀ ́ "Thoat".Bây gi guest không đ c thây) ta goi sau khi ng i dung đăng nhâp thanh 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 ̣ ̣