加了1个消息框,执行后出现2次消息框,程序执行了2遍,就是找不到原因
'确定表及记录的编辑权限
If _UserGroup = "系统管理员" Then
With Tables("人员表")
.AllowEdit = True
.Cols("用户分组").AllowEdit = True
.Cols("用户姓名").AllowEdit = True
.Cols("部门编号").AllowEdit = False
.Cols("部门编号").Visible = True
.Cols("部门").AllowEdit = False
.Cols("用户密码").AllowEdit = True
.Cols("创建者ID").AllowEdit = False
.Cols("创建者名称").AllowEdit = False
.Cols("已登录").Visible = True
.Cols("编辑者").Visible = True
.Cols("编辑者").AllowEdit = False
.Cols("IP地址").AllowEdit = False
.Cols("IP地址").Visible = True
.Cols("范围").Visible = True
End With
Else
If _UserGroup Like "*管理员*" Then
With Tables("人员表")
.AllowEdit = True
.Cols("用户分组").AllowEdit = True
.Cols("用户姓名").AllowEdit = True
.Cols("部门编号").AllowEdit = False
.Cols("部门编号").Visible = True
.Cols("部门").AllowEdit = False
.Cols("用户密码").AllowEdit = False
.Cols("创建者ID").AllowEdit = False
.Cols("创建者名称").AllowEdit = False
.Cols("已登录").Visible = False
.Cols("编辑者").Visible = False
.Cols("编辑者").AllowEdit = False
.Cols("IP地址").AllowEdit = False
.Cols("IP地址").Visible = False
.Cols("范围").Visible = False
End With
Else
Tables("人员表").AllowEdit = False
' .Cols("用户分组").AllowEdit = False
' .Cols("用户姓名").AllowEdit = False
' .Cols("部门编号").AllowEdit = False
' .Cols("部门编号").Visible = True
' .Cols("部门").AllowEdit = False
' .Cols("用户密码").AllowEdit = False
' .Cols("创建者ID").AllowEdit = False
' .Cols("创建者名称").AllowEdit = False
' .Cols("已登录").Visible = False
' .Cols("编辑者").Visible = False
' .Cols("编辑者").AllowEdit = False
' .Cols("IP地址").AllowEdit = False
' .Cols("IP地址").Visible = False
' .Cols("范围").Visible = False
' End With
MessageBox.Show("试验!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End If