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