[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