《Access登录窗体的设计-RecordSet收集.docx》由会员分享，可在线阅读，更多相关《Access登录窗体的设计-RecordSet收集.docx（7页珍藏版）》请在金锄头文库上搜索。
1、关于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 Do
2、Cmd.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(登
3、录密码) = 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-0
4、4-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你别把自己搞糊涂了,没有哪个动作去调用函数查数据源,都没查到数据源怎么判断,很简单的问题别想太复杂了,如果你觉得不该用窗体数据源,那你就定义一个连接吧,呼叫连接一样
5、的效果,消息对话框随你怎么写.还有,你存在一个根本性的错误:你定义的不是窗体数据源,怎么用窗体去筛选,那就判断数据连接是否查询到了记录就行了,而不是判断窗体控件是否为NULL.有两个办法,1.判断查询有没有记录来决定登陆事件2.给控件指定到数据源,判断控件是否为空查询.改一下思路,很简单的评论(2)|1各种 trim 函数的语法如下：LTRIM(字串):将字串左边的空格移除。RTRIM(字串): 将字串右边的空格移除。TRIM(字串): 将字串首尾两端的空格移除,作用等于RTRIM和LTRIM两个函数共同的结果。ALLTRIM(字串)：将字串左右边两边的空格移除。例1：TRIM( Sample
6、 );结果:Sample例2:LTRIM( Sample );结果:Sample 例3:? RTRIM( Sample );结果: SampleALLTRIM( Sample )结果：SampleCurrentDb.OpenRecordset是什么意思2010-08-09 14:09提问者悬赏：20分|opwquiwq|分类：VB|浏览3754次分享到：2010-08-18 02:30网友采纳CurrentDb是你的数据库对象OpenRecordset是打开结果集的意思。打个比方，Set RS=CurrentDB.OpenRecordset(麻烦服务器帮我查下AAAA数据表里2003年以前的所
7、有记录) SQL语句翻译:Select * From AAAA Where dDate2003-1-1服务器查询后，也许查到了20条记录，把结果返回、装在了RS里，RS里存的就是结果集数据，RS就是结果集类型（Recordset）。其他1条回答2010-08-09 14:23远风的梦想家|十二级一般用法是set rs = cureentdb.openrecordset(.)是用来打开一个记录集的简单的VB代码.2011-06-29 20:43wr394708958|分类：VB|浏览248次Dim str As Database Dim rs Set str = CurrentDb Set rs
8、 = str.OpenRecordset(select 管理用户,登录密码 from 管理员信息 where 管理用户= & Me.管理用户 & and 登录密码= & Me.登录密码 & ) 【显示这句错误438，对象不支持改属性和方法】 If Not rs.EOF Then If rs.Fields(登录密码) = Me.登录密码 Then adlogin = True End IfEnd Function分享到：2011-06-29 22:17提问者采纳Function opentable(byval txtPath as string) 【功能：建立数据库连接；状态：完成】Set co
9、nn = New ADODB.Connectionconn.CursorLocation = adUseClientconn.Open PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= & txtPath & ;Set res = New ADODB.RecordsetEnd FunctionFunction closetable() 【功能：关闭数据库连接；状态：完成】conn.CloseEnd Functionset res=new adodb.recordsetres.Open select 管理用户,登录密码 from 管理员信息 where
10、管理用户= & Me.管理用户 & and 登录密码= & Me.登录密码 & If Not res.EOF Then If rs.Fields(登录密码) = Me.登录密码 Then adlogin = True End If追问终于能编译过去了。太谢谢了。可是它提示用户和密码不对，请你再帮我看看，我没有什么基础。.上面那段代码我不需要再自己改动什么地方了吗？回答上面那段不需要再改动。哪里提示用户和密码不对？如果可行的话，你把工程文件全部打包发给我（）出于保密需求的话，你至少把这一段发完整好吗？提问者评价谢了，我已经解决了评论|00sunruisunrui|来自团队永霸天下|十级采纳率40
11、%擅长：VB数据库DBC#/.NETWindows欧美明星Access的问题，请大家帮我2012-04-16 15:58rensiming1|分类：数据库DB|浏览86次Option Compare DatabasePrivate Sub 登陆_Click()If IsNull(Me.请输入用户名) Then MsgBox 请输入用户名, vbQuestion Exit SubEnd IfIf IsNull(Me.输入用户密码) Then MsgBox 请输入密码, vbQuestion Exit SubEnd IfIf adlogin = True ThenDoCmd.Close acFor
12、m, Me.NameDoCmd.OpenForm 管理窗体ElseMsgBox 管理员或密码错误，请重新输入!, vbCriticalExit SubEnd IfEnd SubPublic Function adlogin() As Boolean Dim str As Database Dim rs As Recordset Set str = CurrentDb Set rs = str.OpenRecordset(select 管理员姓名,管理员密码 from 管理员 where 管理员姓名= & Me.请输入用户名 & And 管理员密码 = & Me.输入用户密码 & ) If No
13、t rs.EOF ThenIf rs.Fields(管理员密码) = Me.输入用户密码 Then adlogin = True End IfEnd Function这个在运行时显示“运行时错误13类型不匹配”分享到：2012-04-19 12:06提问者采纳& And 管理员密码 = & 错误，要改成：& And 管理员密码 = &，即表达式计算后其值是字符串的要用 而非 。头尾用对了（where 管理员姓名= 及Me.输入用户密码 & 用对了)，中间用错了！另外如果密码是数字，则后面的两个 要去掉！提问者评价谢谢你，在你的帮助下，我成功了评论|10qyx7137|四级采纳率66%擅长：系统软件数据库DB财务税务保险股票按默认排序|按时间排序其他1条回答2012-04-17 21:28feifei20080|五级If rs.Fields(管理员密码) = Me.输入用户密码 Then adlogin = True 应该是这句话。把程序给我我帮你看吧评论|00等待您来回答怎样在access窗体加载时就使一个文本框取得焦点?2012-08-14 16:56fyx1204|分类：数据库DB|浏览279次分享到：2012
