Trouble with simple password check

[Crazy VIII]

Hello, I am having some trouble getting my little cheap password screen to work like I want...Heres what Im trying to get: if the UserName is blank at any time..you get a popup saying theres no username...but if the password is right AND user name has text in it the program opens...heres my code:
Private Sub cmdOK_Click()
If txtUserName = "" Then
MsgBox " Enter A Valid User Name!"
LoginSucceeded = False
txtUserName.SetFocus
End If
If txtPassword = "password" Then
LoginSucceeded = True
Me.Hide
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
If LoginSucceeded = True Then
Form1.Visible = True
Form1.Label1.Caption = "User: " & frmLogin.txtUserName & "..Active"
End If

So far all it does on the username popup message but if the password is right it opens anyway...sorry if this is confusing im still new...thanks

[Gen-X]

The problem is that once you have checked to see if there is no user name you shouldn't then check to see if there is a password.

So try it like this :

Private Sub cmdOK_Click() 
  If txtUserName = "" Then 
    MsgBox " Enter A Valid User Name!" 
    LoginSucceeded = False 
    txtUserName.SetFocus 
  Else
    If txtPassword = "password" Then 
      LoginSucceeded = True 
      Me.Hide 
    Else 
      MsgBox "Invalid Password, try again!", , "Login" 
      txtPassword.SetFocus 
      SendKeys "{Home}+{End}" 
    End If 
  End If

  If LoginSucceeded = True Then 
    Form1.Visible = True 
    Form1.Label1.Caption = "User: " & frmLogin.txtUserName & "..Active" 
  End If

[Bob Baddeley]

your problem lies with

If txtPassword = PassWord Then

That's the only condition you have. What you need is,

"If txtPassWord = PassWord AND txtUserName = "User" Then"

or some other such additional test to make sure that the txtUserName has been entered.

bob

[Crazy VIII]

Ok cool thankz to both of you!

[Crazy VIII]

By the way how come my code looks normal and not ina section like those? (call me dumb ) hahaha thanks again

[Gen-X]

Have a look at this page :

http://forums.vb-world.net/index.php?action=bbcode

It describes everything you need to know