InputBox Mask ****** & Call it 3 times.

Gentlemen;

Believe Rob's point about overriding all code by holding down the Shift key
on Open is valuable and should be learned by all people reading these news
groups.

Posting new question "Stop Shift Key Override On Open MDB".

Andy

"Andy" wrote in message
...
Hi;

Have created frmPasswordEnter. This frmPasswordEnter opens the first time
a
User enters the DBase. It is triggered by an If/Then function in the
"AutoExec" macro.
Public Function PasswordPrompt()
Dim strInput As String, strMsg As String

strMsg = "Enter your Password."
strInput = InputBox(Prompt:=strMsg,

If(isnull((DLookup("[Password]", "tblMainTbl") then
DoCmd.OpenForm "frmPasswordEnter"
Else
If strInput Like (DLookup("[Password]", "tblMainTbl")) Then
DoCmd.OpenForm "frmMainData"
Else
MsgBox "That is not the correct password. Please enter the
correct
password."
End If

This all works fine up to a point.

First need to "Mask" the Input password.
E.G.: Instead of "MyPassword" it should show **********

Second how do You get the Inputbox to prompt 3 times.
E.G.: InputBox WrongPassword then InputBox WrongPassword then InputBox
WrongPassword then MSGBOX "Dbase is Closing"

Have read Microsoft's Supports including "209871 How to Create a Password
Protected Form or Report" but that requires a separate form with it's own
module and the code is long and cumbersome.
Believe the approach described above is a lot simpler and it doesn't take
up
as much "Real Estate" as Microsoft's solution.

Would someone be so kind as to point me in the correct direction?

Thank You for reading this post.

Andy

A good place to start: http://www.ltcomputerdesigns.com/Security.htm Make
yourself a large jug of coffee first.

(...the first document only goes up to A2K but I believe that the general
ideas apply if you have later.)

It's not an easy thing to get your head around, but it *is* worth spending
the time on - and the user level security wizard made things a lot easier.
Any other way of doing it, such as those suggestions in this thread, are
little better than a comfort blanket.

One thing that I've seen confuse a lot of people when they start looking at
this - by default, if you connect up to a standard unsecured mdb, then you
do so as a user called Admin. And the first thing that you have to do
therefore, is to remove any serious rights for the Admin user. A very
counter intuitive method I've always thought.


"Andy" wrote in message
...
Hey Rob;

You got me thinking and smiling.

Beliving that since You have learned this; You have also learned how to
overcome it.

Would You be so kind to point me in the correct direction so that I may
overcome this "Obstacle" also?

Andy

"Rob Oldfield" wrote in message
...
Nope. It isn't. Go into Access directly (i.e. without double clicking
an
mdb or using a shortcut to an mdb), File, Open, hold down the Shift key
while you hit OK and you bypass anything like that.


"Andy" wrote in message
...
Rob;

Yes I do know that; so I followed this from Access Help. Is it
sufficient?:

If you clear the Use Access Special Keys check box and you specify a
custom
menu bar in the Menu Bar box, the built-in menu bar isn't accessible.

If you clear both the Use Access Special Keys check box and the
Display
Database Window check box, it's possible that users can still access
the
Database window. This can happen when a user tries more than once to
open
the same Access database or Access project from the list of
most-recently-used Access databases or Access projects, which
automatically
appears on the File menu. To prevent users from accessing this list,
replace
the File menu with your own custom menu.

Andy

"Andy" wrote in message
...
Hi;

Have created frmPasswordEnter. This frmPasswordEnter opens the
first
time
a
User enters the DBase. It is triggered by an If/Then function in
the
"AutoExec" macro.
Public Function PasswordPrompt()
Dim strInput As String, strMsg As String

strMsg = "Enter your Password."
strInput = InputBox(Prompt:=strMsg,

If(isnull((DLookup("[Password]", "tblMainTbl") then
DoCmd.OpenForm "frmPasswordEnter"
Else
If strInput Like (DLookup("[Password]", "tblMainTbl")) Then
DoCmd.OpenForm "frmMainData"
Else
MsgBox "That is not the correct password. Please enter the
correct
password."
End If

This all works fine up to a point.

First need to "Mask" the Input password.
E.G.: Instead of "MyPassword" it should show **********

Second how do You get the Inputbox to prompt 3 times.
E.G.: InputBox WrongPassword then InputBox WrongPassword then
InputBox
WrongPassword then MSGBOX "Dbase is Closing"

Have read Microsoft's Supports including "209871 How to Create a
Password
Protected Form or Report" but that requires a separate form with
it's
own
module and the code is long and cumbersome.
Believe the approach described above is a lot simpler and it doesn't
take
up
as much "Real Estate" as Microsoft's solution.

Would someone be so kind as to point me in the correct direction?

Thank You for reading this post.

Andy

Rob;

Have learned it is the "Set the AllowBypassKey property to False to disable
the SHIFT key" from Microsoft kb.

However after almost of searching still haven't learned from Microsoft's kb
how to do it.

Andy
"Andy" wrote in message
...
Hi;

Have created frmPasswordEnter. This frmPasswordEnter opens the first time
a
User enters the DBase. It is triggered by an If/Then function in the
"AutoExec" macro.
Public Function PasswordPrompt()
Dim strInput As String, strMsg As String

strMsg = "Enter your Password."
strInput = InputBox(Prompt:=strMsg,

If(isnull((DLookup("[Password]", "tblMainTbl") then
DoCmd.OpenForm "frmPasswordEnter"
Else
If strInput Like (DLookup("[Password]", "tblMainTbl")) Then
DoCmd.OpenForm "frmMainData"
Else
MsgBox "That is not the correct password. Please enter the
correct
password."
End If

This all works fine up to a point.

First need to "Mask" the Input password.
E.G.: Instead of "MyPassword" it should show **********

Second how do You get the Inputbox to prompt 3 times.
E.G.: InputBox WrongPassword then InputBox WrongPassword then InputBox
WrongPassword then MSGBOX "Dbase is Closing"

Have read Microsoft's Supports including "209871 How to Create a Password
Protected Form or Report" but that requires a separate form with it's own
module and the code is long and cumbersome.
Believe the approach described above is a lot simpler and it doesn't take
up
as much "Real Estate" as Microsoft's solution.

Would someone be so kind as to point me in the correct direction?

Thank You for reading this post.

Andy

It can be done in an adp...
http://support.microsoft.com/default...b;en-us;826765 although
that's about SQL data which is entirely different (i.e. is *really* secure.
MS actually push a warning out that Access cannot guarantee security as it's
just a desktop system)

....and I did find a similar article earlier about mdbs which I can't find
now. Doesn't matter though - lock me out of your mdb using those methods
and I just go to File, Import and import all of your tables and queries.

User level security is the *only* way of doing it.


"Andy" wrote in message
...
Rob;

Have learned it is the "Set the AllowBypassKey property to False to
disable
the SHIFT key" from Microsoft kb.

However after almost of searching still haven't learned from Microsoft's
kb
how to do it.

Andy
"Andy" wrote in message
...
Hi;

Have created frmPasswordEnter. This frmPasswordEnter opens the first
time
a
User enters the DBase. It is triggered by an If/Then function in the
"AutoExec" macro.
Public Function PasswordPrompt()
Dim strInput As String, strMsg As String

strMsg = "Enter your Password."
strInput = InputBox(Prompt:=strMsg,

If(isnull((DLookup("[Password]", "tblMainTbl") then
DoCmd.OpenForm "frmPasswordEnter"
Else
If strInput Like (DLookup("[Password]", "tblMainTbl")) Then
DoCmd.OpenForm "frmMainData"
Else
MsgBox "That is not the correct password. Please enter the
correct
password."
End If

This all works fine up to a point.

First need to "Mask" the Input password.
E.G.: Instead of "MyPassword" it should show **********

Second how do You get the Inputbox to prompt 3 times.
E.G.: InputBox WrongPassword then InputBox WrongPassword then InputBox
WrongPassword then MSGBOX "Dbase is Closing"

Have read Microsoft's Supports including "209871 How to Create a
Password
Protected Form or Report" but that requires a separate form with it's
own
module and the code is long and cumbersome.
Believe the approach described above is a lot simpler and it doesn't
take
up
as much "Real Estate" as Microsoft's solution.

Would someone be so kind as to point me in the correct direction?

Thank You for reading this post.

Andy

Rob;

In a reply to a post: Stop Shift Key Override On Open MDB

Ricky Hicks sent this answer:

The easiest way to accomplish this is to do it using a remote app designed
to
do this.

See the Utility at the link below:
http://www.utteraccess.com/forums/sh...&Number=233728

Adding Your answer ADP.

To the reply from him.

Andy

"Rob Oldfield" wrote in message
...
It can be done in an adp...
http://support.microsoft.com/default...b;en-us;826765 although
that's about SQL data which is entirely different (i.e. is *really*
secure.
MS actually push a warning out that Access cannot guarantee security as
it's
just a desktop system)

...and I did find a similar article earlier about mdbs which I can't find
now. Doesn't matter though - lock me out of your mdb using those methods
and I just go to File, Import and import all of your tables and queries.

User level security is the *only* way of doing it.


"Andy" wrote in message
...
Rob;

Have learned it is the "Set the AllowBypassKey property to False to
disable
the SHIFT key" from Microsoft kb.

However after almost of searching still haven't learned from Microsoft's
kb
how to do it.

Andy
"Andy" wrote in message
...
Hi;

Have created frmPasswordEnter. This frmPasswordEnter opens the first
time
a
User enters the DBase. It is triggered by an If/Then function in the
"AutoExec" macro.
Public Function PasswordPrompt()
Dim strInput As String, strMsg As String

strMsg = "Enter your Password."
strInput = InputBox(Prompt:=strMsg,

If(isnull((DLookup("[Password]", "tblMainTbl") then
DoCmd.OpenForm "frmPasswordEnter"
Else
If strInput Like (DLookup("[Password]", "tblMainTbl")) Then
DoCmd.OpenForm "frmMainData"
Else
MsgBox "That is not the correct password. Please enter the
correct
password."
End If

This all works fine up to a point.

First need to "Mask" the Input password.
E.G.: Instead of "MyPassword" it should show **********

Second how do You get the Inputbox to prompt 3 times.
E.G.: InputBox WrongPassword then InputBox WrongPassword then InputBox
WrongPassword then MSGBOX "Dbase is Closing"

Have read Microsoft's Supports including "209871 How to Create a
Password
Protected Form or Report" but that requires a separate form with it's
own
module and the code is long and cumbersome.
Believe the approach described above is a lot simpler and it doesn't
take
up
as much "Real Estate" as Microsoft's solution.

Would someone be so kind as to point me in the correct direction?

Thank You for reading this post.

Andy