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请各位大虾帮帮忙!!
在线——————————————————————————
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请各位大虾帮帮忙!!
在线——————————————————————————
解决方案 »
- 我用vs2008做了一个vb程序,是从数据库oracle读取数据
- 关于label控件的问题
- 关于DateTimePicker控件的属性
- 哪里有完整的VB+ACCESS完整的例子,大家给一份给我!!谢谢!!
- 請問,要顯示大量圖片的縮圖,該怎樣做?急
- 有没有人做过帮助软件!!!(在线等待)
- 我的这个语句为什么不能执行呢 不要where后面的就可以 ???如何正确写呢?
- 100分征求对FFT变换的解决--在线等待
- CSDN给我一条招聘信息。为什么我老是找不到回应的地方或对方的联系信息呢?
- 如何使用ado访问设有密码的access数据库
- 求SQL查询方法
- 高分求答案了,vb 程序在调试状态下可以正常执行,但是在运行状态下却不能正常执行,这是为什么?
CurrentUserNumber = .Fields("用户名")和你现在的这个窗体里的.Find "编号='" & CurrentUserNumber & "'"中的2个全局变量是不是一样,应该是这两个位置的全局变量有一个地方你打错了