[AccessD] Initial Settings Used to be Changing Table Names

Max Wanadoo max.wanadoo at gmail.com
Wed Mar 11 12:33:28 CDT 2009


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





More information about the AccessD mailing list