Help with some VB Code

[colemanj4]

Here is what I have so far, it loops while the PW is incorrect, or
until cancel is selected. I want it to lock the tables for adds,
deletes, and edits when cancel is selected, and if the PW is correct.

I want this to run when the DB is opened, I would also like the text
box to be starred (*) out when text is input.

Thanks for your help.

=============== ===============
Dim Show_Box As Boolean
Dim Response As String

' Set the Show_Dialog variable to True.
Show_Box = True
InputBox
' Begin While loop.
While Show_Box = True

' Show the input box.
Response = InputBox("Enter the Password to Unlock Read-Only
Mode.", _
"Read-Only Unlocking")
' See if Cancel was pressed.
If Response = "" Then

' If Cancel was pressed,
' break out of the loop.
Show_Box = False
Else
' Test Entry to find out if it is the correct password.
If "safety" = Response = True Then
'Application.Cl oseCurrentDatab ase
'Application.DB Engine.OpenData base "P:\ACTION REGISTER
\TESTERIncidet Action Register Database.mdb", , True
'Application.Op enCurrentDataba se "P:\ACTION REGISTER
\TESTERIncidet Action Register Database.mdb", False
'Access.AcOpenD ataMode.acReadO nly
Show_Box = False
Else
' If the entry was wrong, show an error message.
MsgBox "Wrong Password, Try again."
End If
End If
' End the While loop.
Wend
=============== =============== =============== =

[lyle fairfield]

Application.Clo seCurrentDataba se
Application.DBE ngine.OpenDatab ase "P:\ACTION REGISTER
\TESTERIncidet Action Register Database.mdb", , True

This code runs within the current database.
The first line closes the current database.
How can the second line run when the its application is closed?

!!!!!Perhaps!!! !! this is what Rich P is talking about when he
suggests that multi-threading is required to make this work.

In any case this reminds me of the problem around compacting the
current db from code in earlier versions of Access. We must close the
db and then compact. Once we close the db, the rest of the code, the
compacting, never runs. Hacks for this, my own included, create and
open, in code, a second db which is populated with the information
required to compact and then reopen the first and close itself; that
db is coded to do exactly that on open; all that is required is a few
seconds sleep. I suspect that if it were worthwhile to do so,
something like that could be cobbled up for this situation.

But why would one do this? It's been my experience that application-
level security is no security at all. If one wants to restrict the
editing of forms one can run a standard procedure on opening all forms
taking the form as a parameter, which checks some database property or
global variable established on opening and sets the allow edits,
insets properties appropriately. With an MDE and some window hiding
this can prevent casual unauthorized editing.

There are various levels of JET security that can be achieved. Almost
all can be beaten, and it's a trivial task to beat most.

[lyle fairfield]

lyle fairfield <ly************ @gmail.comshoul d have written in
news:78******** *************** ***********@m36 g2000hse.google groups.com:

Application.Clo seCurrentDataba se
Application.DBE ngine.OpenDatab ase "P:\ACTION REGISTER
\TESTERIncidet Action Register Database.mdb", , True

This code runs within the current database.
The first line closes the current database.

How can the second line run when the database where the code (pcode)
exists, is closed?

[colemanj4]

On May 7, 7:01*am, lyle fairfield <lylef...@yah00 .cawrote:

lyle fairfield <lyle.fairfi... @gmail.comshoul d have written innews:78****** *************** *************@m 36g2000hse.goog legroups.com:

Application.Clo seCurrentDataba se
Application.DBE ngine.OpenDatab ase "P:\ACTION REGISTER
\TESTERIncidet Action Register Database.mdb", , True

This code runs within the current database.
The first line closes the current database.

How can the second line run when the database where the code (pcode)
exists, is closed?

it can't, I tried it, realized I was retarded, and commented it out to
make sure I don't try it again.

[lyle fairfield]

colemanj4 <co*******@gmai l.comwrote in
news:05******** *************** ***********@m44 g2000hsc.google groups.com:

On May 7, 7:01*am, lyle fairfield <lylef...@yah00 .cawrote:

>lyle fairfield <lyle.fairfi... @gmail.comshoul d have written
innews:78809

1d************* *************** *@...oglegroups.com:

>>

Application.Clo seCurrentDataba se
Application.DBE ngine.OpenDatab ase "P:\ACTION REGISTER
\TESTERIncidet Action Register Database.mdb", , True

This code runs within the current database.
The first line closes the current database.

How can the second line run when the database where the code (pcode)
exists, is closed?

it can't, I tried it, realized I was retarded, and commented it out to
make sure I don't try it again.

Did it only take once? I tried similar hundreds of times in the late
nineties trying to compact with code.

[Rich P]

>>

>The limitation of Interpreted programming

code is that you can't perform OOP operations.

Once again I said the above is incorrect, and there are many interpreted
languages is today that are full oop. And, I pointed out that in fact
the ..net environment relies on a p-code runtime system, very similar to
that of the vba. (and I believe on windows mobile, and also the XNA
system for xbox, there is no JIT either).
<<

Your point is precisely my point --

>>

there are many interpreted languages is today that are full oop
<<

When something cannot be achieved in VBA - or achieved easily

>>there are many interpreted languages is today that are ..

it is time to investigate other technologies. I believe Ruby On Rails
is one of these OOP interpreted languages (OK, I see your point on my
comment about interpreted languages - so I meant just VBA). I don't
happen to be familiar with Ruby except that I don't think it would be as
easy to integrate with Access as a .Net solution. I am fairly familiar
with .Net because I have been using it for the last 6+ years. The
suggestions I provide are all Microsoft based since Access is Microsoft
and just about all the computer technology I use is created by
Microsoft.

Just an aside: sql server 2005/.Net (and sql 2008/.Net more so) is
taking the Access paradigm to the next level where - again - you have an
integrated database development environment - except fully OOP/server
based and supports multiple languages (C# and VB.Net being the most
popular).

Access is kind of like the grandfather of the new(er) database paradigms
Microsoft is developing. And like grandpa, Access is encountering
various limitations. And Microft, I read, is outselling Oracle with its
newer paradigms.

Rich

*** Sent via Developersdex http://www.developersdex.com ***

[colemanj4]

On May 6, 9:56*pm, "Albert D. Kallal" <PleaseNOOOsPAM [e-mail] >
wrote:

Actually, I have to run right now...but, let me take a look at this later
tonight....

I do think something can be cooked up here.....

--
Albert D. Kallal * *(Access MVP)
Edmonton, Alberta Canada
pleaseNOOSpamKa [e-mail]

Below is what I have now, I have defined the function
'NetworkUserNam e' to return the login name of the user. I want (where
the comments are) to change their user type (as defined in the *.ldb)
to be User instead of Admin, as User only has read only access to the
DB.

Been searching how to do that and can't find it, any help you could
provide would be awesome.
Sub LockDB()

Dim Show_Box As Boolean
Dim Response As String
Dim userName As String

userName = NetworkUserName ()

Show_Box = True

While Show_Box = True

Response = InputBox("Enter the Password for Admin. Cancel to
Enter as Read-Only", _
"Read-Only Unlocking")

'See if Cancel was pressed.
If Response = "" Then

'Set userName to the User group HERE
MsgBox "You can look at anything, but change nothing"
Show_Box = False
Else
'Test Entry to find out if it is the correct password.
If ("safety" = Response) Then

MsgBox "You are granted Admin rights"
'set userName to the Admin group HERE
Show_Box = False

Else

' If the entry was wrong, show an error message.
MsgBox "Wrong Password, Try again."

End If
End If
Wend

End Sub

Thanks