代码如下:
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "各字段必须填写!", vbInformation + vbSystemModal, "保存出错"
End If
If Text1.Text <> oldpw Then
MsgBox "你输入的原始密码不正确!", vbInformation + vbSystemModal, "保存出错"
Text1.Text = ""
End If
If Text2.Text <> Text3.Text Then
MsgBox "两次输入的密码不一致!", vbInformation + vbSystemModal, "保存出错"
Text2.Text = ""
Text3.Text = ""
End If
End Sub现在如果在三个文本框里都输入了不正确的信息,那么它三个提示信息都会出现,我想只让它显示出错的第一个,请问要如何修改呢?谢谢
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "各字段必须填写!", vbInformation + vbSystemModal, "保存出错"
End If
If Text1.Text <> oldpw Then
MsgBox "你输入的原始密码不正确!", vbInformation + vbSystemModal, "保存出错"
Text1.Text = ""
End If
If Text2.Text <> Text3.Text Then
MsgBox "两次输入的密码不一致!", vbInformation + vbSystemModal, "保存出错"
Text2.Text = ""
Text3.Text = ""
End If
End Sub现在如果在三个文本框里都输入了不正确的信息,那么它三个提示信息都会出现,我想只让它显示出错的第一个,请问要如何修改呢?谢谢
Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "各字段必须填写!", vbInformation + vbSystemModal, "保存出错"
exit sub
End If
If Text1.Text <> oldpw Then
MsgBox "你输入的原始密码不正确!", vbInformation + vbSystemModal, "保存出错"
Text1.Text = ""
exit sub
End If
If Text2.Text <> Text3.Text Then
MsgBox "两次输入的密码不一致!", vbInformation + vbSystemModal, "保存出错"
Text2.Text = ""
Text3.Text = ""
exit sub
End If
End Sub
oldpw = Rs.Fields("口令")
If Text1.Text <> oldpw Then
就是老提示原密码错,但我直接在文本框里显示密码是和数据库里的一样...
If trim( Text1.Text) <> oldpw
If Text1.Text <> Rs.Fields("口令") then