改了名称也不行了 晕死了 大虾们来求解啊
MessageBox.Show(S_UserGroup)
If S_UserGroup="人事" Or S_UserGroup="行政" Or S_UserGroup="开发者" Or S_UserGroup="管理员" Then
Forms("员工档案").Controls("Button5").Enabled=True '添加
Forms("员工档案").Controls("Button4").Enabled=True '编辑
Forms("员工档案").Controls("Button7").Enabled=True '删除
Forms("员工档案").Controls("Button6").Enabled=True '保存
Else
Forms("员工档案").Controls("Button5").Enabled=False '添加
Forms("员工档案").Controls("Button4").Enabled=False '编辑
Forms("员工档案").Controls("Button7").Enabled=False '删除
Forms("员工档案").Controls("Button6").Enabled=False '保存
End If
值是对的 就是进不去if里面