[mso] Re: Access 2002: Password Protect Form Button :VSMail mx5
- From: James LaBorde <jlaborde@xxxxxxxxx>
- To: "'mso@xxxxxxxxxxxxx'" <mso@xxxxxxxxxxxxx>
- Date: Wed, 11 Aug 2004 12:01:16 -0700
Cathy,
The code is doing exactly as you are asking it to. You will need to capture
the vbCancel and give it instructions for that. You will also need to give
it instructions on how to handle incorrect passwords.
Basically you will want to do something like:
If InputBox(strPromptMsg, strPromptTitle) = vbcancel Then
' what you want to happen when they hit cancel
Else
If InputBox(strPromptMsg, strPromptTitle) = strPW Then
' What you want it to do if they get the password correct
Else
' What you want it to do if you get the wrong password
End IF
You may also want to trap for a blank password and pop up a different
message for that.
James
James
-----Original Message-----
From: Cathy.Evans@xxxxxxxxx [mailto:Cathy.Evans@xxxxxxxxx]
Sent: Wednesday, August 11, 2004 6:13 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Re: Access 2002: Password Protect Form Button :VSMail mx5
James, I changed things around a little and put all the activities that
would need to be password protected on one form and put the revised below
code on the open event of the form. Now only the authorized person will
get to those buttons. However, when I choose 'cancel' or enter the wrong
password, it gives the message 'you have entered an incorrect password' and
closes the form and opens my main menu. I want to change the way it
behaves so it will distinguish between the 2 separate events. If a
password is incorrect, I want it to reopen the password box so the user can
try again, and if the user chooses 'cancel', I want it to close that form
and open the main menu. Also, if possible I need it to hide the password
(*****). The only place I'm finding to put an input mask is if I put a
text box in the form, and all it seems to do is let you type something in
there and it shows *****. I guess I don't know much about using an input
mask for this purpose.
So I'm back to the drawing board and open to all ideas! :-) Thank you,
Cathy
Private Sub Form_Open(Cancel As Integer)
Dim strMsg As String, strTitle As String
Dim strPromptMsg As String, strPromptTitle As String
Dim strPW As String
strMsg = "You Have Entered an Incorrect Password." & _
"Please Try Again ......."
strTitle = " Invalid Password"
strPromptMsg = "Please enter password to authorize data exchange with
site Package Manager!"
strPromptTitle = " Enter Password"
strPW = "refresh"
If InputBox(strPromptMsg, strPromptTitle) = strPW Then
Dim stDocName As String
Dim stLinkCriteria As String
Else
MsgBox strMsg, vbExclamation + vbOKOnly, strTitle
DoCmd.Close
DoCmd.OpenForm "SplashScreen", acNormal
End If
End Sub
Cathy.Evans@xxxxxxx
om To: mso@xxxxxxxxxxxxx
Sent by:
mso-bounce@freelist cc:
s.org
08/10/2004 05:21 PM Subject: [mso] Re: Access
2002: Password Protect Form Button
Please respond to
mso
.....
Thanks James! Are you saying a little pop up form I could open from each
button, and the series of update queries would run from that form if it is
allowed to open with a password? Let me try it out, won't be able to get
back to it till tomorrow, but that sounds like a great idea. Feel free to
holler at me if my understanding is screwed up, thanks! Cathy
James LaBorde
<jlaborde@xxxxxxxxx To: "'mso@xxxxxxxxxxxxx'"
<mso@xxxxxxxxxxxxx>
>
Sent by: cc:
mso-bounce@freelist
s.org Subject: [mso] Re: Access
2002: Password Protect Form Button
08/10/2004 05:09 PM :VSMail mx4
Please respond to
mso
.....
Cathy,
Have you considered popping up your own form to get the password and do the
validation? That would allow you to have an input mask.
James
----------------------------------------------------------------------------
-------------------------
The information transmitted is intended only for the person
or entity to which it is addressed and may contain confidential
and/or privileged material. If you are not the intended recipient
of this message you are hereby notified that any use, review,
retransmission, dissemination, distribution, reproduction or any
action taken in reliance upon this message is prohibited. If you
received this in error, please contact the sender and delete the
material from any computer. Any views expressed in this message
are those of the individual sender and may not necessarily reflect
the views of the company.
----------------------------------------------------------------------------
---------------------------
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes)
in the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also
allow you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions. Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx
To send mail to the group, simply address it to mso@xxxxxxxxxxxxx
To Unsubscribe from this group, send an email to
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in
the subject line.
Or, visit the group's homepage and use the dropdown menu. This will also allow
you to change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso
To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with
instructions. Once you are a member of the files group, you can go here to
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************
Other related posts:
