vba code not working with combobox

[bopsgtir]

Im having a problem with my login page. i have a simple form with username and password. i used to have the username as a textbox, and the below code worked fine, replacing combo with username, but i decided i wanted a dropdown for the usernames so i deleted the textbox and created a combobox (named combo) but now i always get the else statement MsgBox "Incorrect Login Details Please Try Again" can someone tell me where im going wrong.

Private Sub Command7_click()
combo.SetFocus
If combo = "Dean Robinson" And Password = "hollie" Then
MsgBox "Welcome Dean", vbInformation, "PDA TRACKING"


DoCmd.Close
DoCmd.OpenForm "Main Menu"
ElseIf combo = "Robert Curley" And Password = "Password" Then
MsgBox "Welcome Rob", vbInformation, "PDA TRACKING"
DoCmd.Close
DoCmd.OpenForm "Main Menu"
ElseIf combo = "Colin Rushbrooke" And Password = "Password" Then
MsgBox "Welcome Colin", vbInformation, "PDA TRACKING"
DoCmd.Close
DoCmd.OpenForm "Main Menu"
Else
MsgBox "Incorrect Login Details Please Try Again"
End If
End Sub

[TheShabz]

try Me.combo instead of combo

[bopsgtir]

No it still doest work new code reads as below. thing is if you change back to a text box it works fine.

Private Sub Command7_click()
Me.combo.SetFocus
If Me.combo = "Dean Robinson" And Password = "hollie" Then
MsgBox "Welcome Dean", vbInformation, "PDA TRACKING"
DoCmd.Close
DoCmd.OpenForm "Main Menu"
ElseIf Me.combo = "Robert Curley" And Password = "Password" Then
MsgBox "Welcome Rob", vbInformation, "PDA TRACKING"
DoCmd.Close
DoCmd.OpenForm "Main Menu"
ElseIf Me.combo = "Colin Rushbrooke" And Password = "Password" Then
MsgBox "Welcome Colin", vbInformation, "PDA TRACKING"
DoCmd.Close
DoCmd.OpenForm "Main Menu"
Else
MsgBox "Incorrect Login Details Please Try Again"
End If
End Sub

[TheShabz]

Password is also an undeclared variable as it is. if it's the name of a control, also put Me. in front of it.

[bopsgtir]

i have tried with the me.password, but still no good, its definatly down to the user name, its not reading the combo box how i want it to,

[TheShabz]

at the very beginning of your code do a
debug.print me.combo
debug.print me.password

do they display in the Immediate Window the values you want?

[bopsgtir]

Thank you for the help ive found to problem, but not sure how to fix it, the combo box is coming back with 1 not Dean Robinson

[TheShabz]

There are 2 solutions to this. you can either
A) change the bound column in the properties of the combobox to 2 so it stores the name
or
B) change your If statements to look for the ID, not the name.

I'd do B

[bopsgtir]

Perfect, all working again thank you for that, i never new about the immediate window, great little tool, thank you for that.

[TheShabz]

Anytime. Glad you got it working. Please mark the thread as solved (thread tools) so that people searching the forum can find the thread and make use of it. Thank you!