connguoi123 > 06-03-14, 09:39 AM
(04-03-14, 10:39 PM)MatTroiNguQuen Đã viết:(03-03-14, 10:29 PM)connguoi123 Đã viết:(20-10-10, 06:54 PM)haquocquan Đã viết:Mã:if UserLevel <=4 then
application.commandbars("mcr_MAIN").controls(2).controls(3).visible = false
endif
Bác Haquocquan ơi cho em hỏi, trong lệnh làm mờ menu như bác nói thì "mcr_MAIN" là tên Macro hay tên menu bar .Vì em thấy bác nói làm menu bằng customize nên em hỏi để ứng dụng vào bài của em.
Trong ví dụ trên thì "mcr_MAIN" là tên của commandbar (Có thể là menu bar, toolbar, hoặc pop-up menu)
Do khi lấy macro "mcr_MAIN" để tạo Menu, Access tự động lấy tên của macro để đặt tên cho menu bar
Bạn có thể sửa tên bằng cách bấm phải chuột vào thanh menu > chọn customize > chọn thẻ Toolbars > kéo thanh trượt xuống tìm và chọn dòng có tên "mcr_MAIN " > bấm nút Properties > tại hộp Tollbar name bạn sửa mcr_MAIN thành tên mà bạn muốn
ductria3 > 06-03-14, 05:34 PM
MTNQ > 08-03-14, 11:36 PM
(06-03-14, 09:39 AM)connguoi123 Đã viết: EM đã thay cái commandbar của em là (Mymenu), nhưng vẫn ko được, cho em hỏi thêm vậy Control(2). (3) thì có phải thay đổi ko ?
'Ẩn menu "Hệ thống":
Application.CommandBars("mrcMain").Controls(1).Visible = False
'Ẩn menu "Danh mục":
Application.CommandBars("mrcMain").Controls(2).Visible = False
'Ẩn menu "Báo Cáo":
Application.CommandBars("mrcMain").Controls(3).Visible = False
'Ẩn submenu "Đăng nhập" nằm trong menu "Hệ thống":
Application.CommandBars("mrcMain").Controls(1).Controls(1).Visible = False
'Ẩn submenu "Danh mục đơn vị" nằm trong menu "Danh mục":
Application.CommandBars("mrcMain").Controls(2).Controls(1).Visible = False
'Ẩn submenu "Danh Mục Nhân Viên" nằm trong menu "Danh mục":
Application.CommandBars("mrcMain").Controls(2).Controls(2).Visible = False
'Ẩn submenu "Danh Mục Chức Vụ" nằm trong menu "Danh mục":
Application.CommandBars("mrcMain").Controls(2).Controls(3).Visible = False