syntaxis error

[schalkse]

I keep having a 3131 syntaxis error in FROM. Anyone any idea what i am doing wrong?

Private Sub Knop6_Click()
'Variaben voor het lezen uit de database creëren
Dim db As DAO.Database
Dim rs As DAO.Recordset
'Variabelen waar de gegevens uit de useriddatabase worden in opgeslagen creëren
Dim strSQL As String
Dim strUserlog As String
Dim strPas As String
Dim strLevellog As Single
Dim strPasread As String

'Nagaan of beide velden zijn ingevuld
If IsNull(Me.txtUser) Or Me.txtUser = "" Then
MsgBox "Vul een gebruikersnaam in!", vbOKOnly, "Gebruikersnaam vereist"
Me.txtUser.SetFocus
Exit Sub
End If

If IsNull(Me.txtPas) Or Me.txtPas = "" Then
MsgBox "U dient een wachtwoord in te voeren!.", vbOKOnly, "Voer wachtwoord in"
Me.txtPas.SetFocus
Exit Sub
End If
'De userpas uit het tekstveld lezen
Me.txtPas.SetFocus
strPasread = Me.txtPas.Text

'openen van database en de velden uitlezen
'waar de user gelijk is aan het inlogveld, de gevraagde velden in de stringsbewaren
strSQL = "SELECT tblUsers.User, tblUsers.Pas, tblUser.Level FROM tblUsers" & _
"WHERE (tblUsers.User = '" & [txtUser] & "');"
Set db = CurrentDb

Set rs = db.OpenRecordset(strSQL, dbOpenForwardOnly)
Do Until rs.EOF

strUserlog = rs!User
strPaslog = rs!Pas
strLevellog = rs!Level

rs.MoveNext
Loop

rs.Close
Set rs = Nothing
Set db = Nothing

MsgBox strUserlog & strPaslog & strLevellog
If strPasread = strPaslog Then
DoCmd.Close acForm, "frmLogin", acSaveNo
DoCmd.OpenForm "test"
Else
MsgBox "Wachtwoord is ongeldig. Probeer het nogmaals", vbOKOnly, _
"Invalid Entry!"
Me.txtPas.SetFocus
End If

End Sub

 

[RuralGuy]

Do a MsgBox strSQL after you create the string and you will see your problem.

 

[apr pillai]

Syntax Error

tblUser.Level FROM tblUsers" & _
"WHERE (tblUsers.User = '" & [txtUser] & "');"


The above reproduced part of the SQL statement when joined after the word FROM it will look like

FROM tblUsersWHERE (tblUsers.User...

The SQL string need a space after the words FROM tblUsers" & _ or before the word "WHERE

The modified statement snippet is given below

tblUser.Level FROM tblUsers" & _
" WHERE (tblUsers.User = '" & [txtUser] & "');"

Inserted a space before the word WHERE immediately after the "

http://msaccesstips.com