求救 求救 十万火急

Question

Private Sub cmdAdd_Click()
 
        If txtNewPWD(1) <> txtNewPWD(0) Then
        MsgBox "两次输入的新口令必须相等！", vbExclamation, "修改口令"
         txtNewPWD(0).SetFocus
         txtNewPWD(0).SelStart = 0
         txtNewPWD(0).SelLength = Len(txtNewPWD(0))
       Else    '修改原来的口令
       With Drug_Store.rsSysUsers
           .Open
           .Find "编号='" & CurrentUserNumber & "'"
           .Fields("口令") = Trim(txtNewPWD(0))
  
           .Update
        End With
        MsgBox "口令以被成功修改！", vbInformation, "修改口令"
        End If
    
End Sub请各位大虾帮帮忙！！
在线——————————————————————————

Answer 1

调试之后 跳转.Fields("口令") = Trim(txtNewPWD(0)) ，这是什么问题？！！！

Answer 2

Drug_Store.rsSysUsers 是什么？

Answer 3

Drug_Store环境变量名！rsSysUsers记录集！！！

Answer 4

应该是 find时没找到，debug 下 "编号='" & CurrentUserNumber & "'"

Answer 5

这个首先看你的全局变量设置的是什么，到底是CurrentUserName 还是CurrentUserNumber就是模块里的，你看一下，然后在登录窗口有个
CurrentUserNumber = .Fields("用户名")和你现在的这个窗体里的.Find "编号='" & CurrentUserNumber & "'"中的2个全局变量是不是一样，应该是这两个位置的全局变量有一个地方你打错了