why doesn't this work!? (resolved)

[Narfy]

Private sub Command1_Click()
Dim user2 as string
Dim pass2 as string
 
user2 = bob
pass2 = hi
 
If user.Text = user2 & pass.text = pass2 Then
    GoTo right
Else
    GoTo wrong
End If
 
wrong:
msgbox "Please enter the right username or password!"
goto exit2
 
right:
msgbox "You have entered the right username and password!"
 
 
exit2:
exit sub

when i try this code, no matter what i type in the two text fields, i always get the message "Please enter the right username and password!" even when I type in bob for username and hi for password.

please help

[WTech002]

If user.Text = user2 & pass.text = pass2 Then

thats a invalid parameter of the if statement

replace the & with And

[Narfy]

nope, still doesn't work....

[barni07]

You said:

user2 = bob
pass2 = hi

What's that? Do you have two variables called bob and hi? if not, you'd probably want to write:

user2 = "bob"
pass2 = "hi"

(If that was the matter, remember the Option Explicit)

Replace & with And

And I guess that's all.

Good luck

[Narfy]

argggg it still doesn't work.

[barni07]

Try this:

Private Sub Command1_Click()
 
Dim user2 As String
Dim pass2 As String
 
user2 = "bob"
pass2 = "hi"
 
If user.Text = user2 And pass.Text = pass2 Then
    MsgBox "You have entered the right username and password!"
Else    
    MsgBox "Please enter the right username or password!"
End If
 
End Sub

Now, make sure you're typing "bob" in the textbox called "user", and "hi" in the textbox called "hi".
It should work (I hope so... )

[Narfy]

thx it worked

[barni07]

Sorry, I meant:

- Type "bob" in the textbox called "user"
- Type "hi" in the textbox called "pass"

(I know that this sounds too obvious, but most of the times the mistake comes out because we're wrong with the tests.)