access-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
 &