请教高手一个问题:(关于权限登录)(ACCESS)

caaclg2010

请教高手一个问题关于权限登录)(ACCESS)

       为什么我下载的一个权限登录程序被我原封不动的到入后重新启动发布

之后该程序的功能就和下载的那个不一样了呢?(整个程序用自定义菜单公布)

      该程序的权限是用一个表里字段的"是/否"选项来控制,对于不同的用户名可以对

那表里的权限字段进行"是/否"选择,以达到选"是"的字段所指的窗体在自定义菜单中可见

程序如下ublic Sub PC()

'此模块为权限控制                                         ↓菜单名                        ↓对应表中的字段名
  CommandBars("mymenu").Controls("系统(&S)").Controls("用户管理").Enabled = DLookup("UserManagement", "userlist", "username='" & CurrentUser & "'")
  CommandBars("mymenu").Controls("打开(&O)").Controls("窗体A").Enabled = DLookup("FrmA", "userlist", "username='" & CurrentUser & "'")
  CommandBars("mymenu").Controls("打开(&O)").Controls("窗体B").Enabled = DLookup("FrmB", "userlist", "username='" & CurrentUser & "'")
  CommandBars("mymenu").Controls("打开(&O)").Controls("窗体C").Enabled = DLookup("FrmC", "userlist", "username='" & CurrentUser & "'")
  CommandBars("mymenu").Controls("打开(&O)").Controls("窗体D").Enabled = DLookup("FrmD", "userlist", "username='" & CurrentUser & "'")
  CommandBars("mymenu").Controls("打开(&O)").Controls("窗体E").Enabled = DLookup("FrmE", "userlist", "username='" & CurrentUser & "'")

End Sub[em11]

fan0217

后面的dlookup是否可定义个函数来完成，使代码可读性增加。