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

          !"# !$!#!%%&#' ()##*  ++,"#%--.% & /#0"#!$'-%!12%3 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 /12!  "# 3%#4!5*# 36%  7  -!  4&89+":!- 2;#<9=7  -);3>6%? 6%@#A 3#$!B! 3#8!A$!!-C DE$23 /!-7!#3FF%%&'!%!&!#FGHHIF"GF! $!#!%%&#' J!"#KLM>!DKGN#'-3K>  @  K;- K/!K&J=#4O  #K>  @  K!6%;-P$#& 89#%)QRAS%=$T7  - )3 DUK6%K;KLM>!DK;K>  @  K;/ DUKP$#K;KLM>!DK;K>  @  K;/ DUKV%K;KLM>!DK;K>  @  K;W'% .   !"# !$!#!%%&#' ()##*  ++,"#%--.% & /#0"#!$'-%!12%3 Sub ViewMenu(User as String, mnBar as string, mnItem as String, IsView as Boolean) If currUser= User