关 于 access2010创建账户密码登陆框 2012-04-04 10:56 匿名 | 分类：数据库DB | 浏览1545 次 按照access2007 教程做了个有密码的登陆框但是无法运行弹出错误调试什么的 以下是教程代码： If IsNull(Me.管理用户) Then MsgBox "请输入管理用户的帐号！", vbQuestion Exit Sub End If If IsNull(Me.登录密码) Then MsgBox "请输入管理用户的登录密码！", vbQuestion Exit Sub End If If adlogin = True Then DoCmd.Close acForm, Me.Name DoCmd.OpenForm "职员考勤主界面" Else MsgBox " 管理用户帐号或密码错误，请重新输入！ ", vbCritical Exit Sub End If Public Function adlogin() As Boolean Dim str As Database Dim rs Set str = CurrentDb Set rs = str.OpenRecordset("select 管理用户,登录密码 from 管理员信息 where 管理用户= '" & Me.管理用户 & "' and 登录密码='" & Me.登录密码 & "'") If Not rs.EOF Then If rs.Fields("登录密码") = Me.登录密码 Then adlogin = True End If End Function If MsgBox(" 您是否确定退出本系统？ 按 [ 是 ] 确定 按 [ 否 ] 取消 ", vbQuestion + vbYesNo) = vbYes Then DoCmd.Quit acQuitSaveAll End If --------------------------------------分割线------------------------------ 错误行： Set rs = str.OpenRecordset("select 管理用户,登录密码 from 管理员信息 where 管理用户= '" & Me.管理用户 & "' and 登录密码='" & Me.登录密码 & "'") 重复做了 3 变还是有错误 不知道是怎么回事 分享到： 2012-04-10 10:17提问者采纳 你是不是做得太麻烦了；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 你别把自己搞糊涂了,没有哪个动作去调用函数查数据源,都没查到数据源怎么判断,很简单的问题别想太复杂了,如果你觉得不该用窗体数据源,那你就定义一个连接吧,呼叫连接一样的效果,消息对话框随你怎么写.还有,你存在一个根本性的错误:你定义的不是窗体数据源,怎么用...
