登录窗体不知道为什么无法建立，求各路大神指教！

ma522963889

Option Compare Database
Private Sub 退出_Click()
    DoCmd.Quit
End Sub

Private Sub Load_Click()
    Dim username As String
    Dim password As String
    If IsNull(username) Or IsNull(password) Then
        MsgBox "用户名或密码不能为空，请重新输入！", vbokony + vbInformation, "错误信息"
    Else
        password = DLookup("密码", "用户表", "用户名='" & Me.username & "'")
        If Me.password = password Then
            MsgBox "登录成功", vbInformation, "登录成功"
            DoCmd.Close
            DoCmd.OpenForm "仓库管理系统"
        Else
            MsgBox "用户名或密码不正确，请重新输入！", vbOKOnly + vbInformation, "错误信息"
            usernme.SetFocus
            username.Value = ""
            password.SetFocus
            password.Value = ""
            username.SetFocus
        End If
    End If
End Sub

tmtony

有什么出错?
来自: 微社区

ma522963889

tmtony 发表于 2016-8-1 11:17
有什么出错?

就是登录不进去，不知道为什么。里面有一个用户表，分别是用户名和密码，想与此连接起来，做一个登录的窗体，但是无法实现，不知道是出了什么问题，如图！

tmtony

username 是变量
那username.value 这样写就是错的
只有 控件才能 用 value