Sql 用户级安全？
我有一个包含用户名、密码和isadmin的yes/no列的表 如果他们使用“isadmin”下带有复选标记的帐户登录，他们可以访问设计视图、功能区等，我该如何做到这一点？尽管如果他们使用在isadmin框下没有复选标记的帐户登录，他们只能查看表单，不能编辑表单，并且无法访问功能区 我只是不知道从哪里开始，因为我假设有一种方法可以将数据库保存为一个单独的副本，只有用户才能在其中查看表单，如果管理员运行他的副本，他将获得用户对表所做的所有更改（通过表单）。因此，当管理员编辑表单并保存表单时，不会像保存表单时那样删除所有用户数据，而是将表单保存到管理员的副本中。我真的很困惑Sql 用户级安全？,sql,vba,ms-access,code-access-security,Sql,Vba,Ms Access,Code Access Security,我有一个包含用户名、密码和isadmin的yes/no列的表 如果他们使用“isadmin”下带有复选标记的帐户登录，他们可以访问设计视图、功能区等，我该如何做到这一点？尽管如果他们使用在isadmin框下没有复选标记的帐户登录，他们只能查看表单，不能编辑表单，并且无法访问功能区 我只是不知道从哪里开始，因为我假设有一种方法可以将数据库保存为一个单独的副本，只有用户才能在其中查看表单，如果管理员运行他的副本，他将获得用户对表所做的所有更改（通过表单）。因此，当管理员编辑表单并保存表单时，不会像保
我正在使用Access 2013这是一个简单的解决方案，用于在较新的Access版本中删除用户级别的安全性；使用了大量的VBA 步骤1：创建表 首先，创建一个表。我将把我的名字命名为
LogininfoTEmployeeIDLoginIDLoginPasswordEmployeeNameIsAdminEmployeeID LoginID LoginPassword EmployeeName IsAdmin
11111234鲍勃[x]
22221234斯图尔特[]
Private Sub-LoginCmBx_AfterUpdate（）
Me.PasswordTxt.SetFocus
端接头
Private Sub-LoginBtn\u Click（）
如果为null（Me.LoginCmBx）或Me.LoginCmBx=“”，则
MsgBox“您必须输入用户名”，vbOKOnly，“必需数据”
Me.LoginCmBx.SetFocus
出口接头
如果结束
如果IsNull（Me.PasswordTxt）或Me.PasswordTxt=”“，则
MsgBox“您必须输入密码”，vbOKOnly，“必需数据”
Me.PasswordTxt.SetFocus
出口接头
如果结束
如果Me.PasswordTxt.Value=DLookup（“LoginPassword”、“LoginInfoT”_
“[EmployeeID]=”&Me.LoginCmBx.Value）然后
EmployeeID=Me.LoginCmBx.Value
出错时继续下一步
DoCmd.DeleteObject acQuery，“IsAdminQ”
错误转到错误登录时，单击
Dim qdef作为DAO.QueryDef
设置qdef=CurrentDb.CreateQueryDef（“IsAdminQ”_
“选择iAdmin”和_
“来自LoginInfoT”和_
“WHERE EmployeeID=“&LoginCmBx.Value”）
退出\u登录\u单击：
DoCmd.关闭acForm，“LoginF”，acSaveNo
DoCmd.OpenForm“MenuF”
出口接头
错误登录点击：
MsgBox错误说明
继续退出\u登录\u单击
其他的
MsgBox“密码无效，请重试”，仅限vbOKOnly_
“无效条目！”
Me.PasswordTxt.SetFocus
如果结束
端接头
Private子菜单点击（）
DoCmd.DeleteObject acQuery，“IsAdminQ”
DoCmd.OpenForm“LoginF”
文档关闭acForm，“菜单”，acSaveNo
端接头