Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / Forms Programming / July 2007

Tip: Looking for answers? Try searching our database.

Help With Simple Passworded Form

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
dan.cawthorne@gmail.com - 19 Jul 2007 17:35 GMT
Hi all,

Need Some Help With A Simple Password Form

What a I Have Is Single Field Table, With One Record In It The Field
is Called [Password] table is also called "Password"

which ive created a form that represents this table, so the admin can
change the password if needed at ease.

With on My Main form "ProjectsMenu"  i have Button that Opens A form
called "Project_Password_Dailog"

On This form i have a Unbound Text Box Named "txtpassword" Which Has
its Input Mast Set to *****

Then I Have a Two Command Buttons,

One Called Cancel and Brings The User Back to The Mainform,"

Second Button is To Open a Form Called "Anaylsis_Create_Dialog"

What Would Be The Code I Write In the On Click Event Section Thats
Allows Me To Open This Form "Anaylsis_Create_Dialog" Only When The
Password Enterted in the unbound text box matches the Password stored
in the password Table?

Any Help Would Be Really Appreciated,

Regards
meyerryang - 19 Jul 2007 19:40 GMT
I've seen this posting before, so I am guessing no one was able to answer
this.  Here's my suggestion.  

If you aren't concerned about users and passwords, then create an ID (number
format) in the table with the password (we will assign the ID to 1).  On the
onclick event of the button enter:

if me.textbox = dlookup("[Password]","[Password Table]","[ID] = 1") then

Docmd.close

Dim stDocName As String
Dim stLinkCriteria As String

St DocName = "name of the form you want to open"
Docmd.openForm StDocName, , , StLinkCriteria

else
MsgBox("The password is no good!")
Docmd.quit

End if

> Hi all,
>
[quoted text clipped - 26 lines]
>
> Regards
dan.cawthorne@gmail.com - 22 Jul 2007 18:45 GMT
On 19 Jul, 19:40, meyerryang <meyerry...@discussions.microsoft.com>
wrote:
> I've seen this posting before, so I am guessing no one was able to answer
> this.  Here's my suggestion.
[quoted text clipped - 50 lines]
>
> > Regards

Thank you meyerryang
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.