[AccessD] Initial Settings Used to be Changing Table Names

Good point, Lambert

Max


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: 11 March 2009 18:37
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Initial Settings Used to be Changing Table Names

AllowByPassKey is not just about preventing AutoExec from running. It
prevents all startup actions from running, including opening the defined
starting from.

The effect of this is that if the users holds down a shift key while
launching a database they will be left looking at the database window with
direct access to tables, queries, forms etc. You probably don't want them to
be able to do that, Autoexec or no Autoexec.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bill Patten
Sent: Wednesday, March 11, 2009 1:40 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Initial Settings Used to be Changing Table Names

By pass is I don't use autoexec macro so don't have to kill it.

AllowBypassKey

Bill


----- Original Message -----
From: "Max Wanadoo" <max.wanadoo at gmail.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, March 11, 2009 10:33 AM
Subject: Re: [AccessD] Initial Settings Used to be Changing Table Names


Bob,

> The discussed Auto-Correct was at the top of the list.

I am trying to find out what the names of all these Initial Settings are so
that I can programmatically change them.
Below is some code I have run but it doesn't appear to have this one and
also, I cannot find the one that allows users to bypass the startup Autoexec
by holding down the shift key.

Anybody have some code to extract them please?

Max

Option Compare Database
Option Explicit

Function getdbprps()
On Error Resume Next
  Close 1
  Open "Props.txt" For Output As #1
  Dim dbs As Database, cnt As Container
  Dim doc As Document, prp As DAO.Property
  Set dbs = CurrentDb

  Print #1, "Dbs Properties"
  For Each prp In dbs.Properties
    Print #1, "Prop:", prp.Name, prp.Value, prp.Type
  Next prp
  Print #1, ""

  Print #1, "Dbs Containers"
  For Each cnt In dbs.Containers ' daps, tables, forms, modules, etc
    Print #1, "Container:", cnt.Name, cnt.UserName
    For Each prp In cnt.Properties
      Debug.Print "Prop:", prp.Name, prp.Value, prp.Type
    Next prp
    Print #1, ""

    Print #1, "Container Documents"
    For Each doc In cnt.Documents
      Print #1, "Document:", doc.Name
      For Each prp In doc.Properties
        Print #1, "Prop:", prp.Name, prp.Value, prp.Type
      Next prp
    Next doc

  Next cnt

  Close 1
End Function


--
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