刚开始学习，我知道错误很多，所以请大侠们耐心指导，3Q3Q
Private Sub savethecode_Click()
'先判断旧密码

If oldcode =password Then

  If newcode1.Text = newcode2.Text Then
  
    password = newcode1
   
    Me.Hide
    MsgBox （"修改密码成功!",  vbInformation + vbOKCancel）
 

      
   
  Else
   MsgBox （"两次密码不一致，请重新输入!", vbInformation + vbOKCancel）
   

   End If

Else
    MsgBox （"无效的密码，请重试!", "提示", vbInformation + vbOKCancel）
 
   
End If

End Sub

[ 本帖最后由 小肥皂泡 于 2012-2-24 19:34 编辑 ]

问题？

就是这个程序不能运行啊，但是不知道哪个地方的问题啊！！！

如果修改密码的界面是这样的:
原密码:
新密码:
重复新密码:

修改密码的是思路是这样的:
检查原密码是否正确,如果正确,检查两次输入的密码相不相同,如果相同保存密码.如果有问题,则提示

伪代码:
if 已经保存的原密码=输入的原密码 then
 '检查两次输入的新密码是否一致
  if 新密码1=新密码2 then
          '保存密码
  else
          '提示二次输入的密码不一致
          exit sub
  end if
else
  '提示旧密码错误
end if

Private Sub savethecode_Click()
'先判断旧密码

If oldcode =password Then   oldcode和password在哪里赋值？

  If newcode1.Text = newcode2.Text Then
  
    password = newcode1 改为：记录集.filter("字段名")=newcode1.Text
   
    Me.Hide
    MsgBox （"修改密码成功!",  vbInformation + vbOKCancel）


      
   
  Else
   MsgBox （"两次密码不一致，请重新输入!", vbInformation + vbOKCancel）
   

   End If

Else
    MsgBox （"无效的密码，请重试!", "提示", vbInformation + vbOKCancel）

   
End If

End Sub

把你的表单发上来，帮你改一改

我的问题解决啦，还是谢谢大侠的指导，谢谢啦

我的问题解决啦，还是谢谢大侠的指导，谢谢啦