Help Needed in Login Form Codes

[Bob Fitz]

As I understand your code, this line:
strRole = DLookup("access_level", "user", "[UserID]'" & Me.cboUser.Value & "'")
needs to be changed to:
strRole = DLookup("access_level", "user", "[UserID]='" & Me.cboUser.Value & "'")
to set a value for strRole but once that is done I can't see where or how you are using strRole.

[Nashaath]

Private Sub cmdLogin_Click()
Dim dbs As Database
Dim rstUserPwd As Recordset
Dim bFoundMatch As Boolean

Set dbs = CurrentDb

Set rstUserPwd = dbs.OpenRecordset("qryUserPwd")

bFoundMatch = False

If rstUserPwd.RecordCount > 0 Then
rstUserPwd.MoveFirst

Do While rstUserPwd.EOF = False
If rstUserPwd![UserID] = Form_frm_login.txtuser_id.Value And rstUserPwd![Password] = Form_frm_login.txtPassword.Value Then
bFoundMatch = True
Exit Do
End If
rstUserPwd.MoveNext
Loop

End If

If bFoundMatch = True Then
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "main_menu"

Else
'
MsgBox "Incorrect username or password"

End If

rstUserPwd.Close

End Sub



------

now i can succefully login..but i need to open 2 switchboards, 1 is for admin other is for users..plz help me to do this

[Nashaath]

is there anycode that i can hide switchboard buttons to some users

[Nashaath]

is there anycode that i can hide switchboard buttons to some users

[Bob Fitz]

How will you decide which buttons to hide from each possible user.