[AccessD] Fascinating behavior of database properties collection

[Bill Benson]

Many properties have no value until set.

On Sat, May 15, 2021 at 7:12 PM John Colby <jwcolby at gmail.com> wrote:

> This code:
>
> Notice the count property of the collection says it has 56 properties, but
> it only prints names and values for 10 of the properties.  At least using
> the "For each" iterator.
>
> However if I index in directly with an integer, for example
> lProperties(40).name I get a value returned.
>
> Function mIterateProperties(lProperties As DAO.Properties)
> Dim lPrp As DAO.Property
> Dim intIndex As Integer
>     Debug.Print "Property Count : " & lProperties.Count
>     For Each lPrp In lProperties
>         intIndex = intIndex + 1
>         Debug.Print intIndex & " : " & lPrp.Name & " : " & lPrp.Value
>     Next lPrp
> End Function
>
> Gives this result:
>
> Property Count : 56
> 1 : Name : C:\DavidEmbley\C2DbProperties\C2DbProperties2007.accdb
> 2 : Connect :
> 3 : Transactions : True
> 4 : Updatable : True
> 5 : CollatingOrder : 1033
> 6 : QueryTimeout : 60
> 7 : Version : 12.0
> 8 : RecordsAffected : 0
> 9 : ReplicaID :
> 10 : DesignMasterID :
>
> Some of the values that can't be seen with the For Each iterator are:
>
>       opt_StartupShowStatusBar = dbs.Properties("StartupShowStatusBar")
>       opt_StartupShowDBWindow = dbs.Properties("StartupShowDBWindow")
>       opt_AllowBuiltinToolbars = dbs.Properties("AllowBuiltinToolbars")
>       opt_AllowFullMenus = dbs.Properties("AllowFullMenus")
>       opt_AllowBreakIntoCode = dbs.Properties("AllowBreakIntoCode")
>       opt_AllowSpecialKeys = dbs.Properties("AllowSpecialKeys")
>       opt_AllowBypassKey = dbs.Properties("AllowBypassKey")
>       opt_AllowShortcutMenus = dbs.Properties("AllowShortcutMenus")
>       opt_AllowToolbarChanges = dbs.Properties("AllowToolbarChanges")
>
> They return a boolean value.
>
> Mighty strange if you ask me.
>
> --
> John W. Colby
> Colby Consulting
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>