Access登录窗体的设计-RecordSet收集

7/7关于access2010创建账户密码登陆框2012-04-0410:56匿名

|

分类：数据库DB

|

扫瞄1545次依据access2007教程做了个有密码的登陆框但是无法运行弹出错误调试什么的

以下是教程代码：

IfIsNull(Me.管理用户)Then

MsgBox"请输入管理用户的帐号！",vbQuestion

ExitSub

EndIf

IfIsNull(Me.登录密码)Then

MsgBox"请输入管理用户的登录密码！",vbQuestion

ExitSub

EndIf

Ifadlogin=TrueThen

DoCmd.CloseacForm,Me.Name

DoCmd.OpenForm"职员考勤主界面"

Else

MsgBox"管理用户帐号或密码错误，请重新输入！",vbCritical

ExitSub

EndIf

PublicFunctionadlogin()AsBoolean

DimstrAsDatabase

Dimrs

Setstr=CurrentDb

Setrs=str.OpenRecordset("select管理用户,登录密码from管理员信息where管理用户='"&Me.管理用户&"'and登录密码='"&Me.登录密码&"'")

IfNotrs.EOFThen

Ifrs.Fields("登录密码")=Me.登录密码Thenadlogin=True

EndIf

EndFunction

IfMsgBox("您是否确定退出本系统？按[是]确定按[否]取消",vbQuestion+vbYesNo)=vbYesThen

DoCmd.QuitacQuitSaveAll

EndIf

分割线

错误行：

Setrs=str.OpenRecordset("select管理用户,登录密码from管理员信息where管理用户='"&Me.管理用户&"'and登录密码='"&Me.登录密码&"'")

重复做了3变还是有错误不知道是怎么回事共享到：2012-04-1010:17提问者接受你是不是做得太麻烦了；ACCESS还不好解决，你直接给窗体指定用户表做数据源

PrivateSub登陆_Click()

IfTrim(用户名)=Me.用户名AndTrim(密码)=Me.密码Then

DoCmd.Close

DoCmd.OpenForm("职员考勤主界面")

Else:MSGBOX("错误提示")

Me.SetFocus

Me.用户名=""

Me.密码=""

EndIf

EndSub

你别把自己搞糊涂了,没有哪个动作去调用函数查数据源,都没查到数据源怎么推断,很简洁的问题别想太简单了,如果你觉得不该用窗体数据源,那你就定义一个连接吧,呼叫连接一样的效果,消息对话框随你怎么写.还有,你存在一个根本性的错误:你定义的不是窗体数据源,怎么用窗体去筛选,那就推断数据连接是否查询到了记录就行了,而不是推断窗体控件是否为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-0914:09

提问者悬赏：20分

|

opwquiwq

|

分类：VB

|

扫瞄3754次共享到：2010-08-1802:30网友接受CurrentDb是你的数据库对象

OpenRecordset是打开结果集的意思。打个比方，SetRS=CurrentDB.OpenRecordset("麻烦服务器帮我查下AAAA数据表里2003年以前的全部记录")'SQL语句翻译:"Select*FromAAAAWheredDate<'2003-1-1'"

服务器查询后，也许查到了20条记录，把结果返回、装在了RS里，RS里存的就是结果集数据，RS就是结果集类型（Recordset）。其他1条回答2010-08-0914:23远风的幻想家

|

十二级一般用法是setrs=cureentdb.openrecordset()是用来打开一个记录集的简洁的VB代码2011-06-2920:43wr394708958

|

分类：VB

|

扫瞄248次DimstrAsDatabase

Dimrs

Setstr=CurrentDb

Setrs=str.OpenRecordset("select管理用户,登录密码from管理员信息where管理用户='"&Me.管理用户&"'and登录密码='"&Me.登录密码&"'")【显示这句错误438，对象不支持改属性和方法】

IfNotrs.EOFThen

Ifrs.Fields("登录密码")=Me.登录密码Thenadlogin=True

EndIf

EndFunction共享到：2011-06-2922:17提问者接受Functionopentable(byvaltxtPathasstring)'【功能：建立数据库连接；状态：完成】

Setconn=NewADODB.Connection

conn.CursorLocation=adUseClient

conn.Open"PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource="&txtPath&";"

Setres=NewADODB.Recordset

EndFunction

Functionclosetable()'【功能：关闭数据库连接；状态：完成】

conn.Close

EndFunction

setres=newadodb.recordset

res.Open"select管理用户,登录密码from管理员信息where管理用户='"&Me.管理用户&"'and登录密码='"&Me.登录密码&"'"

IfNotres.EOFThen

Ifrs.Fields("登录密码")=Me.登录密码Thenadlogin=True

EndIf追问终究能编译过去了。。太感谢了。。可是它提示用户和密码不对，请你再帮我看看，我没有什么基础。。

上面那段代码我不需要再自己改动什么地方了吗？回答上面那段不需要再改动。

哪里提示用户和密码不对？如果可行的话，你把工程文件全部打包发给我（）

出于保密需求的话，你至少把这一段发完整……好吗？提问者评价谢了，我已经解决了~评论

|

0

0sunruisunrui

|

来自团队

\o"钻石旅"永霸天下

|

十级

接受率40%擅长：

VB

数据库DB

C#/.NET

Windows

欧美明星Access的问题，请大家帮我2012-04-1615:58rensiming1

|

分类：数据库DB

|

扫瞄86次OptionCompareDatabase

PrivateSub登陆_Click()

IfIsNull(Me.请输入用户名)Then

MsgBox"请输入用户名",vbQuestion

ExitSub

EndIf

IfIsNull(Me.输入用户密码)Then

MsgBox"请输入密码",vbQuestion

ExitSub

EndIf

Ifadlogin=TrueThen

DoCmd.CloseacForm,Me.Name

DoCmd.OpenForm"管理窗体"

Else

MsgBox"管理员或密码错误，请重新输入!",vbCritical

ExitSub

EndIf

EndSub

PublicFunctionadlogin()AsBoolean

DimstrAsDatabase

DimrsAsRecordset

Setstr=CurrentDb

Setrs=str.OpenRecordset("select管理员姓名,管理员密码from管理员where管理员姓名='"&Me.请输入用户名&""And管理员密码=""&Me.输入用户密码&"'")

IfNotrs.EOFThen

Ifrs.Fields("管理员密码")=Me.输入用户密码Thenadlogin=True

EndIf

EndFunction

这个在运行时显示“运行时错误‘13’类型不匹配”共享到：2012-04-1912:06提问者接受&""And管理员密码=""&错误，要改成：&"'And管理员密码='"&，即表达式计算后其值是字符串的要用'而非"。头尾用对了（where管理员姓名='"及Me.输入用户密码&"'"用对了)

，中间用错了！另外如果密码是数字，则后面的两个'要去掉！提问者评价感谢你，在你的帮助下，我成功了评论

|

1

0qyx7137

|

四级

接受率66%擅长：

系统软件

数据库DB

财务税务

保险

股票按默认排序

|

按时间排序其他1条回答2012-04-1721:28feifei20080

|

五级Ifrs.Fields("管理员密码")=Me.输入用户密码Thenadlogin=True

应该是这句话。把程序给我我帮你看吧评论

|

0

0等待您来回答怎样在access窗体加载时就使一个文本框取得焦点?2012-08-1416:56fyx1204

|

分类：数据库DB

|

扫瞄279次共享到：2012-08-1418:51提问者接受在加载大事中输入文本框获得焦点，如下：

PrivateSubForm_Load()

Me.文本框名.SetFocus

EndSub在Access数据库窗体中怎么实现一个文本框中输入内容，在另一个文本框中显示根本刚才输入的内容，显示出