[mso] Re: Access 2002: Password Protect Form Button :VSMail mx4

From: James LaBorde <jlaborde@xxxxxxxxx>
To: "'mso@xxxxxxxxxxxxx'" <mso@xxxxxxxxxxxxx>
Date: Tue, 10 Aug 2004 14:09:59 -0700
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

-----Original Message-----
From: Cathy.Evans@xxxxxxxxx [mailto:Cathy.Evans@xxxxxxxxx]
Sent: Tuesday, August 10, 2004 1:55 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Access 2002: Password Protect Form Button :VSMail mx4


I have the following code on the click event of a button to require a
password before the code will continue.   Can I modify this so the password
will show as  ********  when the user is typing?  There is no input mask
property available on the button.  Also, if the user enters the wrong
password, the input box closes, but the code following the End If runs even
though the form closes.  How do I get out of it and just close the box and
stay on the form so the user can do other functions?

Appreciate any assistance for either situation, thank you, Cathy

    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!"
    strPromptTitle = " Enter Password"
    strPW = "password"

    If InputBox(strPromptMsg, strPromptTitle) = strPW Then

    Dim stDocName As String
    Dim stLinkCriteria As String

    Else

  MsgBox strMsg, vbExclamation + vbOKOnly, strTitle
  DoCmd.Close
    End If

    DoCmd.ShowToolbar "Web", acToolbarNo
    DoCmd.OpenForm "frmCallProgressBar"
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1_qmak_Update", acViewNormal, acEdit
    DoCmd.OpenQuery "Query2_qapp_Append_New", acViewNormal, acEdit
....etc. . . . for a series of approx 10 queries.





----------------------------------------------------------------------------
-------------------------
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
*************************************************************
[mso] Re: Access 2002: Password Protect Form Button :VSMail mx4

Other related posts:
