Access登录窗体的设计—RecordSet收集.docxVIP

关于access2010创建账户密码登陆框 2012-04-04 10:56匿名?|?分类： HYPERLINK /browse/1288 数据库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 IfPublic 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 IfEnd FunctionIf 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.密码 ThenDoCmd.CloseDoCmd.OpenForm (职员考勤主界面)Else: MSGBOX(错误提示) Me.SetFocus Me.用户名=  Me.密码 = End IfEnd Sub你别把自己搞糊涂了,没有哪个动作去调用函数查数据源,都没查到数据源怎么判断,很简单的问题别想太复杂了,如果你觉得不该用窗体数据源,那你就定义一个连接吧,呼叫连接一样的效果,消息对话框随你怎么写.还有,你存在一个根本性的错误:你定义的不是窗体数据源,怎么用窗体去筛选,那就判断数据连接是否查询到了记录就行了,而不是判断窗体控件是否为NULL.有两个办法,1.判断查询有没有记录来决定登陆事件2.给控件指定到数据源,判断控件是否为空查询.改一下思路,很简单的 评论(2)?|?1? 各种 trim 函数的语法如下： LTRIM(字串):将字串左边的空格移除。 RTRIM(字串): 将字串右边的空格移除。 TRIM(字串): 将字串首尾两端的空格移除,作用等于RTRIM和LTRIM两个函数共同的结果。 ALLTRIM(字串)：将字串左右边两边的空格移除。 例1： TRIM( Sample ); 结果: Sample 例2: LTRIM( Sample ); 结果: Sample 例3: ? RTRIM( Sample ); 结果: Sample ALLTRIM( Sample ) 结果： Sample CurrentDb.OpenRecordset是什么意思 2010-08-09 14:09?提问者悬赏：20分?|? HYPERLINK /p/opwquiwq?fr