在vba中出现“expected:end of statement”错误

yhuiod9q 于 2021-08-09 发布在 Java

关注(0)|答案(2)|浏览(527)

我正在microsoft access中建立一个登录屏幕“用户名”是我得到错误代码后突出显示的内容。
代码如下：

Private Sub btnLogin_Click()
    Dim rs As DAO.Recordset
    Dim SQL As String

    SQL = "SELECT * FROM Users WHERE * "username = '" + Me.txtUserName + "'"

    End With

    Set rs = CurrentDb.OpenRecordset(SQL)

    If rs.EOF Then
        IncorrectUserNameStyle
        Exit Sub
    End If

    End If
End Sub

sql vba

来源：https://stackoverflow.com/questions/61882597/getting-an-expected-end-of-statement-error-in-vba

2条答案

按热度按时间

bgtovc5b1#

你的绳子不好看，这个怎么样：

Private Sub btnLogin_Click()
    Dim rs As DAO.Recordset
    Dim SQL As String

    SQL = "SELECT * FROM Users WHERE username = '" + Me.txtUserName + "'"

    ' End With -- what's this?

    Set rs = CurrentDb.OpenRecordset(SQL)

    If rs.EOF Then
        'IncorrectUserNameStyle -- what's this?
        MsgBox("Username not found", 0)
        Exit Sub
    End If

    ' End If -- what's this?
End Sub

赞(0）回复(0）举报 2021-08-09

0qx6xfy62#

看起来查询中有一个输入错误（a） " 在不应该的地方），标记如下：

SQL = "SELECT * FROM Users WHERE * "username = '" + Me.txtUserName + "'"
                                   ^ end of string
                                 ^ probably a mistake

赞(0）回复(0）举报 2021-08-09

我来回答

在vba中出现“expected:end of statement”错误

2条答案

相关问题

热门标签

最新问答