你是不是做得太麻烦了；ACCESS还不好解决，你直接给窗体指定 用户表做数据源
Private Sub 登陆_Click()
If Trim(用户名) = Me.用户名 And Trim(密码) = Me.密码 Then
DoCmd.Close
DoCmd.OpenForm ("职员考勤主界面")
Else: MSGBOX("错误提示")
Me.SetFocus
Me.用户名= ""
Me.密码 = ""
End If
End Sub
你别把自己搞糊涂了,没有哪个动作去调用函数查数据源,都没查到数据源怎么判断,很简单的问题别想太复杂了,如果你觉得不该用窗体数据源,那你就定义一个连接吧,呼叫连接一样的效果,消息对话框随你怎么写.还有,你存在一个根本性的错误:你定义的不是窗体数据源,怎么用窗体去筛选,那就判断数据连接是否查询到了记录就行了,而不是判断窗体控件是否为NULL.有两个办法,1.判断查询有没有记录来决定登陆事件2.给控件指定到数据源,判断控件是否为空查询.改一下思路,很简单的
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024