这篇博客介绍了如何在Access VBA中创建一个用户登录窗口。通过VBA代码动态设置用户列表，根据选择的科室获取对应的用户。登录验证过程中检查密码是否匹配，并在验证成功后展示主界面。此外，还展示了如何控制窗体加载后的焦点位置以及实时更新显示当前时间。
界面截图如下：
创建一个窗体设计，然后在设计中找到控件
因为科室更新，带来了用户的更新，所有用户的行来源不指定，但科室的行来源要指定
最后，我们通过VBA实现用户的行来源，这样可以保证在科室变化的情况下，用户实时显示每个科室的人员
Private Sub keshi_AfterUpdate()
zgy.RowSource = "SELECT 用户查询.ID, 用户查询.科室ID, 用户查询.科室名称, 用户查询.用户姓名 FROM 用户查询 where 用户查询.科室ID=" & keshi
DoCmd.GoToControl ("user")
End Sub
编写登录按钮的VBA代码
Private Sub login_btn__login_Click()
Dim passwd As Variant
&
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
