代码如下:Private Sub cmdlogin_click()                        '这里提示错误!!!
On Error GoTo err_cmdlogin_click
Dim rs As New ADODB.Recordset
Dim str As String
Dim num As Integer
str = "select count(ID)from Person where ID='" & Me.username.Text
str = str & "'and Password='" & Me.password.Text & ""
Set rs = getrs(str)
num = rs(0)
If IsNull(Me.username) Then
MsgBox ("请输入用户名称!")
ElseIf IsNull(Me.password) Then
MsgBox ("请输入用户密码!")
ElseIf num <> 1 Then
MsgBox ("用户名或密码不正确,请重新输入!")
Else
Me.Visible = fales
loginflag = True
MDIForm1.Show
End If
exit_cmdlogin_click:
Exit Sub
err_cmdlogin_click:
MsgBox (Err.Description)
Resume exit_cmdlogin_click
End Sub

解决方案 »

  1.   

    你的窗体上必须有个按钮叫cmdlogin
      

  2.   

    cmdlogin_click
    首先要有command控件
      

  3.   

    有command控件的 !!他也报错
      

  4.   

    选中command控件,在右边的属性中把name属性的值改为cmdlogin
      

  5.   

    在设计界面上双击这个 Command 控件,然后把代码(除第一句和最后一句)剪切到出现的代码空间中。最后把剩下的两句删除。
      

  6.   

    删除按钮:cmdlogin
    重建后,拷代码
      

  7.   

    把代码重新拷过,command控件也重新建过,但是还有错误
      

  8.   

    报错的确切地方根本不是cmdlogin_click()那里,过程里面有错的话那个执行亮线会在过程名处,但错误本身在过程里面.里面究竟是哪里出现阴影语句?
      

  9.   

    谢谢各位啦!!
    问题以解决!!
    原因是:label1控件的没有命名为usermane
           label2控件没有命名为password