using query to find a record

[romio]

The strSql string should find the record that I have already saved in my admin table and then compare it with combusername, where is my mistake.

Private Sub Command7_Click()


'Dim db As Database
Dim strSql As String
'Set db = CurrentDb()


strSql = "Select adminpass From admin"


If ((Nz(txtpassword, "") = "") Or (Nz(combusername, "") = "")) Then

MsgBox "Please Enter A Valid Access", vbOKOnly, "Error"

ElseIf (txtpassword = "admin" And combusername = strSql) Then

DoCmd.Close acForm, "Secure"
DoCmd.OpenForm "Home"
 

ElseIf (txtpassword = "user" And combusername = "user") Then

DoCmd.Close acForm, "Secure"
DoCmd.OpenForm "Home"

Else

MsgBox "Wrong Password, Please Try Again", vbOKOnly, "Error"
combusername = ""
txtpassword = ""
combusername.SetFocus


End If

End Sub

 

[Bat17]

try something like this

Private Sub Command7_Click()
Dim strSql As String
Dim rs As DAO.Recordset

strSql = "Select adminpass From admin"
Set rs = CurrentDb.OpenRecordset(strSql, dbOpenForwardOnly)
rs.MoveFirst

If ((Nz(txtpassword, "") = "") Or (Nz(combusername, "") = "")) Then

MsgBox "Please Enter A Valid Access", vbOKOnly, "Error"

ElseIf (txtpassword = "admin" And combusername = rs!adminpass) Then

DoCmd.Close acForm, "Secure"
DoCmd.OpenForm "Home"
 

ElseIf (txtpassword = "user" And combusername = "user") Then

DoCmd.Close acForm, "Secure"
DoCmd.OpenForm "Home"

Else

MsgBox "Wrong Password, Please Try Again", vbOKOnly, "Error"
combusername = ""
txtpassword = ""
combusername.SetFocus


End If

But make sure you do some searches on Security in these forums! there are a lot of threads on it and the pitfalls in making your own!

peter

 

[romio]

this is what I got:

invalid operation

rs.MoveFirst

 

[romio]

Got it fixed thanks Bat17.