problem with my code

M

Michael Hanlon

'Check value of password in usyspassword to see if this
'matches value chosen in combo box

If Me.txtpassword.Value = DLookup
Click to expand...
("Password", "usyspassword", "[ID]=" &
Me.cbousername.Value) Then

ID = Me.cbousername.Value
Click to expand...
Click to expand...
This is where the code does not work out. I need to check the value of my
cbousername and if it match's one then it will open the form with the right
group.
So my cbousername.value does not equal any in the list and just exit.
Any Help would be great thanks
'Close logon form and open splash screen
If Me.cbousername.Value = "admin" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 1"
ElseIf me.cbousername.value = "b" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 2"
ElseIf me.cbousername.value = "c" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 3"
Elseif me.cbousername.value = "d" then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 4"
else
goto exit
End If

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtpassword.SetFocus
End If
Click to expand...
Click to expand...


Joel Wiseheart said:
I don't see a single bang...

When separating parent objects from child objects (For
instance, the parent form and the child combo box on the
form), you should separate it with a "!" character,
sometimes called a "bang". Using the "." character
separates objects from their properties and methods. Try
statements like the following:
If IsNull(Me!cbousername) Or Me!cbousername = "" Then
MsgBox "You must enter a User Name." _
, vbOKOnly, "Required Data"
Me!cbousername.SetFocus
Exit Sub
End If
Click to expand...

Notice that on the third line, the "!" separates the Me
reference to the parent form from the child object
cbousername, but a "." separates the cbousername object
from its SetFocus method.

Also, I don't know if your newsgroup post looks identical
to your code, but in case it does, you'll also notice
that I included a "line continuation" character, which is
a space followed by an underscore " _" after the first
comma in the MsgBox staement. Any time you want to
continue a command to the next line in the middle of a
statement, you need to include that character.

Also, I'm assuming this code is in a Form Module. If you
use a Standard module, you surrender the right to use
the "Me" reference, and have to use the fully qualified
form reference.

One final note, without getting into a lengthy discussion
here, check out the help files on using a With....End
With contsruct. You'll notice it will trim quite a bit
out of the code you listed.

hth
Joel
-----Original Message-----
listed below is the code i have written that is not working any help would
be great if you can show me where i went wrong as i am new to this side.
thanks in advance.

Private Sub cmdlogin_Click()

'Check to see if data is entered into the UserName combo box

If IsNull(Me.cbousername) Or Me.cbousername = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cbousername.SetFocus
Exit Sub
End If

'Check to see if data is entered into the password box

If IsNull(Me.txtpassword) Or Me.txtpassword = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtpassword.SetFocus
Exit Sub
End If

'Check value of password in usyspassword to see if this
'matches value chosen in combo box

If Me.txtpassword.Value = DLookup
Click to expand...
("Password", "usyspassword", "[ID]=" &
Me.cbousername.Value) Then

ID = Me.cbousername.Value

'Close logon form and open splash screen
If Me.cbousername.Value = "admin" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 1"
ElseIf passwd = "b" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 2"
ElseIf passwd = "c" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 3"
Else
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 4"
End If

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtpassword.SetFocus
End If

'If User Enters incorrect password 3 times database will shutdown

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database.Please contact admin.",
vbCritical, "Restricted Access!"
Application.Quit
End If





Exit_cmdlogin_Click:
Exit Sub

End Sub






.
Click to expand...
Click to expand...
 
W

William Taylor

Did not read through your code completely but it seems that your rowsource
should be limited to users in table, otherwise you should setup a nz
function and branch to the password input if no match is found.
so it would be like this if nz(function to check for user name, "zzz") =
"zzz" then return to password input.
Michael Hanlon said:
'Check value of password in usyspassword to see if this
'matches value chosen in combo box

If Me.txtpassword.Value = DLookup
Click to expand...
("Password", "usyspassword", "[ID]=" &
Me.cbousername.Value) Then

ID = Me.cbousername.Value
Click to expand...
Click to expand...
This is where the code does not work out. I need to check the value of my
cbousername and if it match's one then it will open the form with the right
group.
So my cbousername.value does not equal any in the list and just exit.
Any Help would be great thanks
'Close logon form and open splash screen
If Me.cbousername.Value = "admin" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 1"
ElseIf me.cbousername.value = "b" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 2"
ElseIf me.cbousername.value = "c" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 3"
Elseif me.cbousername.value = "d" then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 4"
else
goto exit
End If

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtpassword.SetFocus
End If
Click to expand...
Click to expand...


Joel Wiseheart said:
I don't see a single bang...

When separating parent objects from child objects (For
instance, the parent form and the child combo box on the
form), you should separate it with a "!" character,
sometimes called a "bang". Using the "." character
separates objects from their properties and methods. Try
statements like the following:
If IsNull(Me!cbousername) Or Me!cbousername = "" Then
MsgBox "You must enter a User Name." _
, vbOKOnly, "Required Data"
Me!cbousername.SetFocus
Exit Sub
End If
Click to expand...

Notice that on the third line, the "!" separates the Me
reference to the parent form from the child object
cbousername, but a "." separates the cbousername object
from its SetFocus method.

Also, I don't know if your newsgroup post looks identical
to your code, but in case it does, you'll also notice
that I included a "line continuation" character, which is
a space followed by an underscore " _" after the first
comma in the MsgBox staement. Any time you want to
continue a command to the next line in the middle of a
statement, you need to include that character.

Also, I'm assuming this code is in a Form Module. If you
use a Standard module, you surrender the right to use
the "Me" reference, and have to use the fully qualified
form reference.

One final note, without getting into a lengthy discussion
here, check out the help files on using a With....End
With contsruct. You'll notice it will trim quite a bit
out of the code you listed.

hth
Joel
-----Original Message-----
listed below is the code i have written that is not working any help would
be great if you can show me where i went wrong as i am new to this side.
thanks in advance.

Private Sub cmdlogin_Click()

'Check to see if data is entered into the UserName combo box

If IsNull(Me.cbousername) Or Me.cbousername = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cbousername.SetFocus
Exit Sub
End If

'Check to see if data is entered into the password box

If IsNull(Me.txtpassword) Or Me.txtpassword = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtpassword.SetFocus
Exit Sub
End If

'Check value of password in usyspassword to see if this
'matches value chosen in combo box

If Me.txtpassword.Value = DLookup
Click to expand...
("Password", "usyspassword", "[ID]=" &
Me.cbousername.Value) Then

ID = Me.cbousername.Value

'Close logon form and open splash screen
If Me.cbousername.Value = "admin" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 1"
ElseIf passwd = "b" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 2"
ElseIf passwd = "c" Then
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 3"
Else
DoCmd.Close
DoCmd.OpenForm "pers", acNormal, , "[group] = 4"
End If

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
Me.txtpassword.SetFocus
End If

'If User Enters incorrect password 3 times database will shutdown

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database.Please contact admin.",
vbCritical, "Restricted Access!"
Application.Quit
End If





Exit_cmdlogin_Click:
Exit Sub

End Sub






.
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

password form not working need help 2
problem with my code 2
username and password form 3
Problems with Code 1
Filtering a form based on selection from combo box in another form 1
Filter Based on Log On 1
Format a dialogue box to act like a password format "****" 1
Problems with SendObject 7

Top