For mjc!

[neveryona]

Just so proud of myself, had to show you. It works! http://www.PCGuide.com/ubb/biggrin.gif

Private Sub cmdok_Click()
Dim intResponse As Integer, intAttempt As Integer, strPass As String, intExit
Const conbtns As Integer = vbRetryCancel + vbApplicationModal + vbExclamation + vbDefaultButton1
Const conMsg As Integer = vbCritical + vbApplicationModal
Static intNum As Integer
strPass = "reuben"
If intNum <= 2 Then
intNum = intNum + 1 'as counter
If txtpass.Text = strPass Then
frmTables.Show
Unload frmPass
Else
intResponse = MsgBox("That is not the correct password.", conbtns, "Access Denied")
txtpass.SetFocus
End If
If intNum > 2 Then
intExit = MsgBox("Access Denied.", conMsg)
Unload Me
End If
End If
End Sub

[bassman]

I guess only MJC will understand what this is, but I'm real curious.

WHAT DOES IT WORK WITH??? http://www.PCGuide.com/ubb/biggrin.gif

------------------
A real Christian is one who can give his pet parrot to the town gossip.
Frank's Place (http://dreamwater.net/tech/frankscomp/)

[iisbob]

are you trying to set up a password manager in visual basic?



------------------
iisbob

The man who sets out to carry a cat by its tail learns something that will always be useful and which never will grow dim or doubtful. -- Mark Twain.

[geebee76]

iisbob, that's what it looks like to me.
Gives the user a couple of attempts to open the form "Tables". What is it for though? Enlighten us neveryona http://www.PCGuide.com/ubb/smile.gif

------------------
You are making progress if each mistake is a new one!

Sig from Here (http://www.oneliners-and-proverbs.com/)

geebee76@hotmail.com

[neveryonas]

That is exactly what it is for! Password for a application, that allows the user three attempts. Took me for ever to figure it out too! Happy that I finally did! http://www.PCGuide.com/ubb/biggrin.gif