Question

VB编程提示Private Sub Command1_Click()编译错误，过程声明与同名事件或过程的描述不匹配

Private Sub Command1_Click()
Dim Result As Integer

On Error GoTo ErrHandler '如果按下回车键，确认输入完成
Passwordstr = Text1.Text '确认密码
If Passwordstr = "199888" Then
'密码为199888
Load Form2
Form2.Show '密码正确，打开新窗体
Else
Result = MsgBox("Password Denied,Please imput again.", "Visual Basic OK Only", "Error!")
Text1.Text = ""
'密码错误，清空文本框，要求重新输入
End If
Exit Sub
ErrHangler:
MsgBox Err.Description '显示出错信息
End Sub

Answer 1

1、Passwordstr = Text1.Text 修改为 Passwordstr = Me.Text1

2、这两行：
Load Form2
Form2.Show 、
修改为：Docmd.openform Form2
3、Result = MsgBox("Password Denied,Please imput again.", "Visual Basic OK Only", "Error!")修改为

MsgBox"Password Denied,Please imput again."

4、 Text1.Text = "" 修改为 Me.Text1 = “”
修改了以上内容之后，你再试试！~

追问

还是不行，要不留个邮箱，我发给您看看

追答

hit2000@139.com

追问

邮件已发送，邮件名为：“百度问题请教“，请麻烦查收一下谢谢

追答

已经调试完成，输入199888的时候，成功的打开 Form2，如图：

如果密码错误，会出现对话框：