怎样引用模块

Lee　发表于：2010-09-10 20:32:35 　

复制

按论坛上示例做了一个限制用户打开窗体的模块，做完后才发现自己不懂怎样引用,于是又打开示例研究,究竟在哪个事件中引用这个模块,但依然不得其所。

请问：

1.要引用模块要怎样写程序？

2.以上模块应在哪处引用，是在登录窗体中引用？还是在所有窗体中都引用呢？

请指点。

点击下载此附件

Top

煮江品茶发表于：2010-09-10 20:51:53

依葫芦画瓢却舀不起水来。

Top

Lee 发表于：2010-09-11 08:24:02

正是水平还没到家之故。

Top

Lee 发表于：2010-09-11 08:34:52

所以还望朋友们指点一二。

Top

lyxiong 发表于：2010-09-11 23:37:52

点击下载此附件我帮你搞好了

Top

lyxiong 发表于：2010-09-12 08:54:35

点击下载此附件这次真的搞好了。

Top

lyxiong 发表于：2010-09-12 08:59:29

请对照你的登录系统代码，粗体蓝色这行代码是不能少的。

Private Sub 登录系统_Click()
If Nz([密码]) = Nz(DLookup("密码", "用户密码表", "用户=" & "'" & 用户名 & "'")) _
    And Me.用户名 <> "" Then                           '验证用户和密码)
        UserID = Nz(DLookup("用户ID", "用户密码表", "用户=" & "'" & 用户名 & "'")) '新增加的语句
        Me.TimerInterval = 0                                '关闭定时器
        Me.Visible = False                                  '隐藏窗体
        DoCmd.Close acForm, "登录窗体", acSaveYes       '关闭前景
        DoCmd.OpenForm "切换面板"                           '进入价格检查系统
       Else
        MsgBox "用户名或者密码错误！请重新输入！", , "请重新输入"
        Me.用户名.SetFocus                             '用户名文本框获得焦点
        Me.密码 = ""                                     '清空密码文本框
                                          '新增加的语句
End If

Exit_Cmd登录系统_Click:
Exit Sub

Err_Cmd登录系统_Click:
    MsgBox Err.Description
    Resume Exit_Cmd登录系统_Click

End Sub

Top

Lee 发表于：2010-09-12 17:31:56

我的生产管理系统就差权限设置这最后一步了，谢谢您lyxiong。我还想知道一下原理以便在正式系统中应用，请问蓝色粗体字作用，是否通过用户ID控制打开窗体就可以了？这样也不用引用模块了是吗？

Top

lyxiong 发表于：2010-09-13 07:33:18

切换面板窗体中的按钮的单击调用模块方式 =OpenForm(1) 括号中的1是窗体ID