标题: 请忙看一下修改窗体代码出错在哪里 [打印本页] 作者: さくら飘落 时间: 2012-3-26 16:40 标题: 请忙看一下修改窗体代码出错在哪里 Private Sub Command1_Click()
If IsNull(new_pwd1) Then
MsgBox "请输入新密码！", vbCritical, "提示"
End If
If IsNull(new_pwd2) Then
MsgBox "请再次确认新密码！", vbCritical, "提示"
End If
If new_pwd1 <> new_pwd2 Then
MsgBox "新密码确认不正确！", vbCritical, "提示"
new_pwd1.SetFocus
new_pwd1 = ""
new_pwd2 = ""
End If
Dim rs As New ADODB.Recordset
Dim str As String
str = "select * from 管理员 where 用户名='" & User & "'"
Set rs = ExeSQL(str)
If Not rs.EOF Then
rs("用户名") = User
rs("密码") = new_pwd1
rs.Update
rs.Close
Set rs = Nothing
MsgBox "您成功地修改了该用户！"
Else
MsgBox "wrong"
End If
Me.Visible = False
End Sub 作者: 轻风 时间: 2012-3-28 16:08
新来的啊，给你几个建议：
1、找对版块发贴很重要，象这种问题发到ACCESS常规交流比较好，那里人气高，解决问题快；
2、有问题最好发个示例库上来，方便解决问题；
3、如果发示例不方便，至少也要详细说明问题，象这个问题，你问代码出错在哪里，然后发了一大段代码上来，由于大家都比较忙，一般不会去慢慢一行一行看，但如果你指出运行时有什么错误提示，错误断点在哪，以及你想达到的效果，很快就会发现问题所在。作者: さくら飘落 时间: 2012-3-29 07:26
谢谢你的提点！我的代码出错在我输新密码时，就只出现“wrong”。新密码修改不成功。