界面截图如下:
创建一个窗体设计,然后在设计中找到控件
因为科室更新,带来了用户的更新,所有用户的行来源不指定,但科室的行来源要指定
最后,我们通过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_C