[AccessD] Access Lockdown

Bill Patten bill_patten at embarqmail.com
Sun May 22 10:54:13 CDT 2011


Hi Stuart,

You are correct, I was reading the  line above AllowByPassKey, 
AllowSpecialKeys which  has an s in my code.

My apologies to John for my vertical dyslexia.

Bill

--------------------------------------------------
From: "Stuart McLachlan" <stuart at lexacorp.com.pg>
Sent: Sunday, May 22, 2011 12:01 AM
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access Lockdown

The singular version has always worked for me.

-- 
Stuart

On 21 May 2011 at 23:17, Bill Patten wrote:

> Hi again,
>
> I guess I didn't make it clear
> Rocky's code
> ChangeProperty "AllowBypassKey", dbBoolean, False
>
> ChangeProperty "AllowBypassKeys", dbBoolean, False
>
> I believe the correct code is keys not key.
>
> Bill
>
> --------------------------------------------------
> From: "jwcolby" <jwcolby at colbyconsulting.com>
> Sent: Saturday, May 21, 2011 10:44 PM
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Access Lockdown
>
> The odd part is that all the rest of the stuff works.
>
> John W. Colby
> www.ColbyConsulting.com
>
> On 5/22/2011 1:19 AM, Rocky Smolin wrote:
> > No.  Worked for me in A2000 and A2003.   What version of Access are
> > you using here?
> >
> > Rocky
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
> > Sent: Saturday, May 21, 2011 10:00 PM To: Access Developers
> > discussion and problem solving Subject: Re: [AccessD] Access
> > Lockdown
> >
> > Setting AllowBypassKey false does not prevent the bypass key from
> > working. Any clues why?
> >
> > John W. Colby
> > www.ColbyConsulting.com
> >
> > On 5/21/2011 9:31 AM, Rocky Smolin wrote:
> >> John:
> >>
> >> I use this in my app and trigger it when the program is an mde:
> >>
> >>       ChangeProperty "StartupForm", dbText, TheOpeningForm
> >>       ChangeProperty "StartupShowDBWindow", dbBoolean, False
> >>       ChangeProperty "StartupShowStatusBar", dbBoolean, False
> >>       ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
> >>       ChangeProperty "AllowFullMenus", dbBoolean, False
> >>       ChangeProperty "AllowBreakIntoCode", dbBoolean, False
> >>       ChangeProperty "AllowSpecialKeys", dbBoolean, False
> >>       ChangeProperty "AllowBypassKey", dbBoolean, False
> >>       ChangeProperty "MenuBar", dbBoolean, False
> >>
> >> Function ChangeProperty(strPropName As String, varPropType As
> >> Variant, varPropValue As Variant) As Integer
> >>       Dim dbs As Object, prp As Variant
> >>       Const conPropNotFoundError = 3270
> >>
> >>       Set dbs = CurrentDb
> >>       On Error GoTo Change_Err
> >>       dbs.Properties(strPropName) = varPropValue
> >>       ChangeProperty = True
> >>
> >> Change_Bye:
> >>       Exit Function
> >>
> >> Change_Err:
> >>       If Err = conPropNotFoundError Then    ' Property not found.
> >>           Set prp = dbs.CreateProperty(strPropName, _
> >>               varPropType, varPropValue)
> >>           dbs.Properties.Append prp
> >>           Resume Next
> >>       Else
> >>           ' Unknown error.
> >>           ChangeProperty = False
> >>           Resume Change_Bye
> >>       End If
> >> End Function
> >>
> >> I also use this to stop them from navigating around in the app
> >> other than through my own menus:
> >>
> >> ' If mde then turn off windows in taskbar and menu bar Set db =
> >> CurrentDb If InStr(1, db.Name, "mde")<>   0 Then
> >>       Me.MenuBar = "=1"
> >>       Access.Application.SetOption "ShowWindowsInTaskbar", False On
> >>       Error GoTo Err_Form_Open
> >> End If
> >>
> >> Not a utility you could run from outside the db but I think you
> >> could easily write one with this code that would set the properties
> >> of of a db you selectr from the standard file open dialog box.
> >>
> >> HTH
> >>
> >> Rocky
> >>
> >>
> >> -----Original Message-----
> >> From: accessd-bounces at databaseadvisors.com
> >> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
> >> Sent: Saturday, May 21, 2011 5:42 AM To: Access Developers
> >> discussion and problem solving Subject: [AccessD] Access Lockdown
> >>
> >> I want to lock down an application as I copy it from my dev
> >> directory to a "live" directory.  I want to set the "display system
> >> objects and "display hidden objects" properties in Options as well
> >> as Startup "Allow full menus", Use Special Keys" etc.
> >>
> >> Has anyone got a utility that sets these properties?
> >>
> >> --
> >> John W. Colby
> >> www.ColbyConsulting.com
> >> --
> >> AccessD mailing list
> >> AccessD at databaseadvisors.com
> >> http://databaseadvisors.com/mailman/listinfo/accessd
> >> Website: http://www.databaseadvisors.com
> >>
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 




More information about the AccessD mailing list