你是不是做得太麻烦了；ACCESS还不好解决，你直接给窗体指定用户表做数据源Private Sub 登陆_Click()If Trim(用户名) = Me.用户名 And Trim(密码) = Me.密码 ThenDoCmd.CloseDoCmd.OpenForm ("职员考勤主界面")Else: MSGBOX("错误提示")
Me.SetFocus
Me.用户名= ""
Me.密码 = ""End IfEnd Sub你别把自己搞糊涂了,没有哪个动作去调用函数查数据源,都没查到数据源怎么判断,很简单的问题别想太复杂了,如果你觉得不该用窗体数据源,那你就定义一个连接吧,呼叫... |
