|
 |
access thread: Startup
Message #1 by "John Pace" <jpace@h...> on Thu, 29 Nov 2001 12:11:58 -0600
|
|
Is there any way that I can set an mdb or mde file to where you can't see
the db window even if you hold down shift? I am about to send an app to the
field and need to make sure it is completely locked down. Any help would be
much appreciated. I have already tried the standard stuff from Tools |
Startup.
John Pace
Manager of Information Technologies
Haws and Tingle General Contractors
650 West Vickery Blvd
Fort Worth, TX 76104
xxx-xxx-xxxx
Fax: xxx-xxx-xxxx
E-Mail: jpace@h...
www.hawstingle.com
Message #2 by "Rogers, Robert" <rrogers@b...> on Thu, 29 Nov 2001 13:41:54 -0500
|
|
http://www.mvps.org/access/modules/mdl0011.htm visit the website
example below
Sub SetStartupProperties()
ChangeProperty "AllowBypassKey", dbBoolean, False
End Sub
Function ChangeProperty()
Dim strPropName As String
Dim varPropType As Variant
Dim varPropValue As Variant
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
strPropName = "AllowBypassKey"
varPropType = dbBoolean
varPropValue = False
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
MsgBox "Welcome to Orion"
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
MsgBox "Please Try Again"
Resume Next
Else
' Unknown error.
MsgBox "Retry"
ChangeProperty = False
Resume Change_Bye
End If
End Function
Robert L. Rogers
Rexel Branch Electric
Application Developer
xxx-xxx-xxxx
-----Original Message-----
From: John Pace [mailto:jpace@h...]
Sent: Thursday, November 29, 2001 1:12 PM
To: Access
Subject: [access] Startup
Is there any way that I can set an mdb or mde file to where you can't see
the db window even if you hold down shift? I am about to send an app to the
field and need to make sure it is completely locked down. Any help would be
much appreciated. I have already tried the standard stuff from Tools |
Startup.
John Pace
Manager of Information Technologies
Haws and Tingle General Contractors
650 West Vickery Blvd
Fort Worth, TX 76104
xxx-xxx-xxxx
Fax: xxx-xxx-xxxx
E-Mail: jpace@h...
www.hawstingle.com
Read the future with ebooks at B&N
http://service.bfast.com/bfast/click?bfmid=2181&sourceid=38934667&categoryid
=rn_ebooks
****************************************************************************
******************************************************
This e-mail and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed.
If you have received this e-mail in error please notify the sender and
delete/destroy any copies.
****************************************************************************
******************************************************
Message #3 by John Fejsa <John.Fejsa@h...> on Fri, 30 Nov 2001 09:19:42 +1100
|
|
WARNING: Make sure to keep a copy of the the original database or assign a
key combination to reset the settings, otherwise you will not be able to
open the database for editing as well.
____________________________________________________
John Fejsa
Systems Analyst/Computer Programmer
Hunter Centre for Health Advancement
Locked Bag 10
WALLSEND NSW 2287
Phone: (02) 49246 336 Fax: (02) 49246 209
____________________________________________________
The doors we open and close each day decide the lives we live
____________________________________________________
CONFIDENTIALITY & PRIVILEGE NOTICE
The information contained in this email message is intended for the named
addressee only. If you are not the intended recipient you must not copy,
distribute, take any action reliant on, or disclose any details of the
information in this email to any other person or organisation. If you
have received this email in error please notify us immediately.
>>> rrogers@b... 30/11/2001 5:41:54 >>>
http://www.mvps.org/access/modules/mdl0011.htm visit the website
example below
Sub SetStartupProperties()
ChangeProperty "AllowBypassKey", dbBoolean, False
End Sub
Function ChangeProperty()
Dim strPropName As String
Dim varPropType As Variant
Dim varPropValue As Variant
Dim dbs As Database, prp As Property
Const conPropNotFoundError =3D 3270
strPropName =3D "AllowBypassKey"
varPropType =3D dbBoolean
varPropValue =3D False
Set dbs =3D CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) =3D varPropValue
ChangeProperty =3D True
MsgBox "Welcome to Orion"
Change_Bye:
Exit Function
Change_Err:
If Err =3D conPropNotFoundError Then ' Property not found.
Set prp =3D dbs.CreateProperty(strPropName, varPropType, varPropVal
ue)
dbs.Properties.Append prp
MsgBox "Please Try Again"
Resume Next
Else
' Unknown error.
MsgBox "Retry"
ChangeProperty =3D False
Resume Change_Bye
End If
End Function
Robert L. Rogers
Rexel Branch Electric
Application Developer
xxx-xxx-xxxx
-----Original Message-----
From: John Pace [mailto:jpace@h...]
Sent: Thursday, November 29, 2001 1:12 PM
To: Access
Subject: [access] Startup
Is there any way that I can set an mdb or mde file to where you can't see
the db window even if you hold down shift? I am about to send an app to
the
field and need to make sure it is completely locked down. Any help would
be
much appreciated. I have already tried the standard stuff from Tools |
Startup.
John Pace
Manager of Information Technologies
Haws and Tingle General Contractors
650 West Vickery Blvd
Fort Worth, TX 76104
xxx-xxx-xxxx
Fax: xxx-xxx-xxxx
E-Mail: jpace@h...
www.hawstingle.com
Read the future with ebooks at B&N
http://service.bfast.com/bfast/click?bfmid=3D2181&sourceid=3D38934667&categ
oryid
=3Drn_ebooks
***************************************************************************
*
******************************************************
This e-mail and any files transmitted with it are confidential and
intended
solely for the use of the individual or entity to whom they are addressed.
If you have received this e-mail in error please notify the sender and
delete/destroy any copies.
***************************************************************************
*
******************************************************
.au
Read the future with ebooks at B&N
http://service.bfast.com/bfast/click?bfmid=3D2181&sourceid=3D38934667&categ
oryid=3Drn_ebooks
This message is intended for the addressee named and may contain confidential information. If you are not the intended recipient,
please delete it and notify the sender. Views expressed in this message are those of the individual sender, and are not necessarily
the views of Hunter Health.
Message #4 by "John Pace" <jpace@h...> on Thu, 29 Nov 2001 17:04:43 -0600
|
|
Yeah, I figured that out the hard way. Thanks for everyone's help on this
issue.
John
-----Original Message-----
From: John Fejsa [mailto:John.Fejsa@h...]
Sent: Thursday, November 29, 2001 4:20 PM
To: Access
Subject: [access] RE: Startup
WARNING: Make sure to keep a copy of the the original database or assign a
key combination to reset the settings, otherwise you will not be able to
open the database for editing as well.
____________________________________________________
John Fejsa
Systems Analyst/Computer Programmer
Hunter Centre for Health Advancement
Locked Bag 10
WALLSEND NSW 2287
Phone: (02) 49246 336 Fax: (02) 49246 209
____________________________________________________
The doors we open and close each day decide the lives we live
____________________________________________________
CONFIDENTIALITY & PRIVILEGE NOTICE
The information contained in this email message is intended for the named
addressee only. If you are not the intended recipient you must not copy,
distribute, take any action reliant on, or disclose any details of the
information in this email to any other person or organisation. If you have
received this email in error please notify us immediately.
>>> rrogers@b... 30/11/2001 5:41:54 >>>
http://www.mvps.org/access/modules/mdl0011.htm visit the website
example below
Sub SetStartupProperties()
ChangeProperty "AllowBypassKey", dbBoolean, False
End Sub
Function ChangeProperty()
Dim strPropName As String
Dim varPropType As Variant
Dim varPropValue As Variant
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
strPropName = "AllowBypassKey"
varPropType = dbBoolean
varPropValue = False
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
MsgBox "Welcome to Orion"
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
MsgBox "Please Try Again"
Resume Next
Else
' Unknown error.
MsgBox "Retry"
ChangeProperty = False
Resume Change_Bye
End If
End Function
Robert L. Rogers
Rexel Branch Electric
Application Developer
xxx-xxx-xxxx
-----Original Message-----
From: John Pace [mailto:jpace@h...]
Sent: Thursday, November 29, 2001 1:12 PM
To: Access
Subject: [access] Startup
Is there any way that I can set an mdb or mde file to where you can't see
the db window even if you hold down shift? I am about to send an app to the
field and need to make sure it is completely locked down. Any help would be
much appreciated. I have already tried the standard stuff from Tools |
Startup.
John Pace
Manager of Information Technologies
Haws and Tingle General Contractors
650 West Vickery Blvd
Fort Worth, TX 76104
xxx-xxx-xxxx
Fax: xxx-xxx-xxxx
E-Mail: jpace@h...
www.hawstingle.com
Read the future with ebooks at B&N
http://service.bfast.com/bfast/click?bfmid=2181&sourceid=38934667&categoryid
=rn_ebooks
****************************************************************************
******************************************************
This e-mail and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed.
If you have received this e-mail in error please notify the sender and
delete/destroy any copies.
****************************************************************************
******************************************************
john.fejsa@h...
Read the future with ebooks at B&N
http://service.bfast.com/bfast/click?bfmid=2181&sourceid=38934667&categoryid
=rn_ebooks
This message is intended for the addressee named and may contain
confidential information. If you are not the intended recipient, please
delete it and notify the sender. Views expressed in this message are those
of the individual sender, and are not necessarily the views of Hunter
Health.
Read the future with ebooks at B&N
http://service.bfast.com/bfast/click?bfmid=2181&sourceid=38934667&categoryid
=rn_ebooks
|
|
|
View Cart
