SQL select statement with multiple variables

[NOSPAMrclark]

Can anyone tell me why this doesnt work? I have a form with two text
boxes (username and password) and this is the event I want to run after
the two boxes are filled in. (Click event for a button)

Dim user As String
Dim pass As String

If pass <> "" Then
pass = Me.Password
Else
pass = "yyyyyyyyyyyyy"
End If

If user <> "" Then
user = Me.Username
Else
user = "xxxxxxxxxxxxx"
End If

Dim db As Database
Dim rs As Recordset
Dim str As String
str = "Select * From [operators] Where [username]= '" & user & "'_ AND
[password] = '" & pass & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(str)
rs.MoveLast
If rs.RecordCount <> 0 Then
MsgBox "Match found"
Else
MsgBox "No Match found"
End If

[MGFoster]

NO**********@azorinc.com wrote:

Can anyone tell me why this doesnt work? I have a form with two text
boxes (username and password) and this is the event I want to run after
the two boxes are filled in. (Click event for a button)

Dim user As String
Dim pass As String

If pass <> "" Then
pass = Me.Password
Else
pass = "yyyyyyyyyyyyy"
End If

If user <> "" Then
user = Me.Username
Else
user = "xxxxxxxxxxxxx"
End If

Dim db As Database
Dim rs As Recordset
Dim str As String
str = "Select * From [operators] Where [username]= '" & user & "'_ AND
[password] = '" & pass & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(str)
rs.MoveLast
If rs.RecordCount <> 0 Then
MsgBox "Match found"
Else
MsgBox "No Match found"
End If

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

This:

str = "Select * From [operators] Where [username]= '" & user & "'_ AND
[password] = '" & pass & "'"

should be this:

str = "Select * From [operators] Where [username]= '" & user & _
"'" & AND [password] = '" & pass & "'"

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQjCH44echKqOuFEgEQK33ACdHu4O5JdF7WpDKgFoo7s4/2li1ToAoPrQ
6+LVzWOhhFZ32wl+GvxdWzGp
=UmyG
-----END PGP SIGNATURE-----

[MGFoster]

NO**********@azorinc.com wrote:

Can anyone tell me why this doesnt work? I have a form with two text
boxes (username and password) and this is the event I want to run after
the two boxes are filled in. (Click event for a button)

Dim user As String
Dim pass As String

If pass <> "" Then
pass = Me.Password
Else
pass = "yyyyyyyyyyyyy"
End If

If user <> "" Then
user = Me.Username
Else
user = "xxxxxxxxxxxxx"
End If

Dim db As Database
Dim rs As Recordset
Dim str As String
str = "Select * From [operators] Where [username]= '" & user & "'_ AND
[password] = '" & pass & "'"
Set db = CurrentDb
Set rs = db.OpenRecordset(str)
rs.MoveLast
If rs.RecordCount <> 0 Then
MsgBox "Match found"
Else
MsgBox "No Match found"
End If

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

This:

str = "Select * From [operators] Where [username]= '" & user & "'_ AND
[password] = '" & pass & "'"

should be this:

str = "Select * From [operators] Where [username]= '" & user & _
"'" & AND [password] = '" & pass & "'"

--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQjCH44echKqOuFEgEQK33ACdHu4O5JdF7WpDKgFoo7s4/2li1ToAoPrQ
6+LVzWOhhFZ32wl+GvxdWzGp
=UmyG
-----END PGP SIGNATURE-----

[NOSPAMrclark]

Ahhh. Brain Fart. Thanks!

Here is the completed code for anyone interested.

Dim user As String
Dim pswd As String

user = Me.Username
pswd = Me.Password

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim str As String

str = "SELECT * from Operators Where [Username] = '" & user & "' and
[Password] = '" & pswd & "';"
Set db = CurrentDb
Set rs = db.OpenRecordset(str)

If rs.RecordCount > 0 Then
DoCmd.Close

Else
MsgBox ("Invalid Username or Password!")
End If

Exit_Login_click:
Exit Sub

Err_Login_Click:
MsgBox ("You Must Enter a Username and Password!")
Resume Exit_Login_click