杨幂心机知乎:BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 17:06:37
Private Sub cmdSave_Click()
If txtNewPWD(1) <> txtNewPWD(0) Then '验证两次输入的新口令是否相同
MsgBox "两次输入的新口令必须相等!", vbExclamation, "修改口令"
txtNewPWD(0).SetFocus
txtNewPWD(0).SelStart = 0
txtNewPWD(0).SelLength = Len(txtNewPWD(0))
Else '修改原来的口令
With Wage_Manage_Data.rsSysUsers
.Open
.Find "用户名='" & CurrentUserName & "'"
.Fields("口令") = Trim(txtNewPWD(0))
.Update
End With
MsgBox "口令以被成功修改!", vbInformation, "修改口令"
End If
End Sub

希望各位高手帮帮忙啊! 诚交各位编程高手作朋友啊! QQ:58719262 先谢一下啦。

此程序在逻辑上似乎没有问题。如果出现语法问题,你可以查一下。我现在仅对你提出的问题作答:BOF和EOF是分别指向记录集的起始地址和结束地址。你确定这两个指针有指向吗?这两个指针要同时为“真”吧。还有如果你确认以上是正确的,那么你是否已经打开相应的记录集呢?
还有就是选择一个已有用户名来调试。真相会出来的。

请确认您已正确打开相应记录集,BOF EOF是记录集两端没有指向记录的空指针。

应该是该用户不存在吧~~~确认一下用户名,有没有多了空格啥的~~~~