你需要用到全局变量来保存用户的名字,这样,在什么地方都可以用到这个值了。
http://www.foxtable.com/help/topics/1842.htm全局代码
Public userType As String
登录窗口
userType =
Forms("登录窗口").Controls("ComboBox1用户名称")
编写代码
Select Case userType
Case "财务人员"
Forms("主窗口").close
Forms("piao据编辑窗口").show
Case "财务主管","管理者"
MessageBox.show("您无权执行此操作!")
End Select
[此贴子已经被作者于2012-11-19 9:02:57编辑过]