Help with login Form

[yoda]

The code is:

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click ()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
End Sub

Private Sub cmdOK_Click()
'check for correct password
If txtPassword = "" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True

Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.Set Focus
SendKeys "{Home}+{En d}"
End If
End Sub


I want to make it so if the user puts in their password and it works, but i have tried

"Private Sub cmdOK_Click()
'check for correct password
If txtPassword = 0 Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True"

But it didn't work please Help anybody

Yoda (Canada Eh)

[knychtell]

hi, your only @ high school?, okey i see,if you want you could use this codes:

txtbox1.text=tx tbox1.text' i think it would be better not to use this line of code if you like someone not to gain access with your program, this would only mean that whatever that person enters in the txtbox will be validated and set to true, that in result they could enter your program.


you could use 2 txtboxes instead and write these codes to login button,

dim a, b string
dim 2 as new form2
a="username" ' in this line you could set the username of the person for validation

b = 'P@ssw0rd" - everytime the person try's to log in thier acct they must specify the right password


if txtbox1.text="u sername" and txtbox2.text= "P@ssw0rd" then
messagebox.show ("Welcome " & a)
2.show
me.hide' closes the login application and proceeds to the next form if and only if validated..

you could play to these codes.. and set some assess burnin...
have a good time,

[yoda]

Yo dude nice i actually know what it means and see what i can do thanks.

Yoda

Canada Eh