大侠们，请教一下

mqs

在数据库中修改密码按钮出现这个错误什么意思啊？？

mqs

Private Sub 确定_Click()
If IsNull(Me!原密码文本框) Then
MsgBox "请输入原来的密码!", vbOKOnly, "请确定"
Me!原密码文本框.SetFocus
Exit Sub
End If
If IsNull(Me!新密码1文本框) Then
MsgBox "请输入新密码!", vbOKOnly, "请确定"
Me!新密码1文本框.SetFocus
Exit Sub
End If
If IsNull(Me!新密码2文本框) Then
MsgBox "请再次输入新密码!", vbOKOnly, "请确定"
Me!新密码2文本框.SetFocus
Exit Sub
End If
If StrComp(Me!新密码1文本框, Me!新密码2文本框, vbBinaryCompare) <> 0 Then
MsgBox "你两次输入的新密码不一致!", vbOKOnly, "请确定"
Me!新密码1文本框.SetFocus
Exit Sub
End If
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim SQLstring As String

SQLstring = "select * from 读者信息表 where 借书证号='" + user借书证号 + "'"

rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
If StrComp(rs("登陆密码"), Me!原密码文本框, vbBinaryCompare) <> 0 Then
MsgBox "你输入的原密码错误!", vbOKOnly, "警告!"
Me!原密码文本框.SetFocus
Exit Sub
End If
Set rs = Nothing
Dim updatesqlstring As String
updatesqlstring = "update 读书信息表 set 登陆密码='" + Me!新密码1文本框 + "' where 借书证号='" + user借书证号 + "'"

DoCmd.SetWarnings False
DoCmd.RunSQL updatesqlstring
MsgBox "密码修改成功!", vbOKOnly, "恭喜!"

Me!原密码文本框 = ""
Me!新密码1文本框 = ""
Me!新密码2文本框 = ""
   
End Sub

mqs

大家看看那里有问题啊？？？？？？每次都是rs.MoveFirst这里有问题啊？？？不知道为什么啊？？？

竹笛

应该是你查询出来没数据导致记录集里没数据 你要确保select出来时有数据的有数据

access新闻爱好者

图片好像看不到，最好上传个附件吧！

todaynew

mqs 发表于 2013-5-17 12:40
Private Sub 确定_Click()
If IsNull(Me!原密码文本框) Then
MsgBox "请输入原来的密码!", vbOKOnly, "请 ...

rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
if rs.RecordCount=0 then
     msgbox "鬼打架的，怎么没搞到数据！"
     exit sub
end if
rs.MoveFirst

加上红色的代码

mqs

todaynew 发表于 2013-5-17 17:47
rs.Open SQLstring, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
if rs.RecordCount=0  ...

出来就是“鬼打架的，怎么没搞到数据”

mqs

竹笛 发表于 2013-5-17 14:38
应该是你查询出来没数据导致记录集里没数据 你要确保select出来时有数据的有数据

哪里chaxun a ??

mqs

怎么会没数据啊？？

mqs

access新闻爱好者 发表于 2013-5-17 17:37
图片好像看不到，最好上传个附件吧！

就是这些啊~~~