請(qǐng)忙看一下修改窗體代碼出錯(cuò)在哪里

さくら飄落

Private Sub Command1_Click()
If IsNull(new_pwd1) Then
MsgBox "請(qǐng)輸入新密碼！", vbCritical, "提示"
End If
If IsNull(new_pwd2) Then
MsgBox "請(qǐng)?jiān)俅未_認(rèn)新密碼！", vbCritical, "提示"
End If
If new_pwd1 <> new_pwd2 Then
MsgBox "新密碼確認(rèn)不正確！", vbCritical, "提示"
  new_pwd1.SetFocus
  new_pwd1 = ""
  new_pwd2 = ""
End If
Dim rs As New ADODB.Recordset
  Dim str As String
  str = "select * from 管理員 where 用戶(hù)名='" & User & "'"
  Set rs = ExeSQL(str)
  If Not rs.EOF Then
  rs("用戶(hù)名") = User
  rs("密碼") = new_pwd1
  rs.Update
  rs.Close
  Set rs = Nothing
  MsgBox "您成功地修改了該用戶(hù)！"
  Else
  MsgBox "wrong"
End If
Me.Visible = False
End Sub

さくら飄落

謝謝你的提點(diǎn)！我的代碼出錯(cuò)在我輸新密碼時(shí)，就只出現(xiàn)“wrong”。新密碼修改不成功。

輕風(fēng)

新來(lái)的啊，給你幾個(gè)建議：
1、找對(duì)版塊發(fā)貼很重要，象這種問(wèn)題發(fā)到ACCESS常規(guī)交流比較好，那里人氣高，解決問(wèn)題快；
2、有問(wèn)題最好發(fā)個(gè)示例庫(kù)上來(lái)，方便解決問(wèn)題；
3、如果發(fā)示例不方便，至少也要詳細(xì)說(shuō)明問(wèn)題，象這個(gè)問(wèn)題，你問(wèn)代碼出錯(cuò)在哪里，然后發(fā)了一大段代碼上來(lái)，由于大家都比較忙，一般不會(huì)去慢慢一行一行看，但如果你指出運(yùn)行時(shí)有什么錯(cuò)誤提示，錯(cuò)誤斷點(diǎn)在哪，以及你想達(dá)到的效果，很快就會(huì)發(fā)現(xiàn)問(wèn)題所在。