Question

我正在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

Answer 1

查询中似乎有一个错字（"不应出现），如下所示：

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

Answer 2

您的字符串看起来不好，怎么办呢？

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

在VBA中出现“预期的：语句结束”错误

2 个答案: