Office中国论坛/Access中国论坛

标题: 如何设置不同用户登陆后打开不同的窗体 [打印本页]

作者: longdoupj 时间: 2009-7-14 21:39
标题: 如何设置不同用户登陆后打开不同的窗体
好,我是新手,请教做了登陆窗体后.如何设置不同用户登陆后打开不同的窗体

用户密码表
用户ID用户名密码权限1A1查询窗体8B1在线窗体

Private Sub Cmd确定_Click()
Dim RecCount, RecNo, RecRate
On Error GoTo Err_Cmd确定_Click
If StringEnDeCodecn([Txt密码], 75) = DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'") _
And Me.Combo用户名 <> "" Then

Me.Visible = False

Dim stDocName As String
Dim stLinkCriteria As String

If Forms![用户登陆]![Combo用户名] = DLookup("[用户名]", "用户密码表", "[权限] = '窗体'") Then
      stDocName = "窗体"
Else
      stDocName = "窗体"


End If

作者: kelind 时间: 2009-7-17 16:14
这样行不?

作者: longdoupj 时间: 2009-7-18 00:21
谢谢~这样是登陆打开一个窗体~能不能设置一个权限组只能打开几个窗体,另外几个不能打开?

作者: txwsyxhj 时间: 2009-7-29 20:28
有高手说在安全-用户与组权限中设置，可惜我是新新手，只能提供这些

作者: hjjxzj 时间: 2009-8-7 23:41
新手学习

作者: yuesong322 时间: 2010-4-22 07:20
共同学习中。。。

作者: xie62 时间: 2010-5-14 14:29
共同学习中

作者: dbbygzy 时间: 2010-5-24 08:33
xuexi

作者: hupingrenjia 时间: 2010-5-25 07:11
顶一下。

作者: meimei30 时间: 2011-6-15 20:14
你可以用按钮把要打开的窗体做在不同的窗体中呀！

作者: tina917 时间: 2011-10-6 17:20
学习非常感谢

作者: wuwu200222 时间: 2024-1-29 16:54
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)