vba - ejemplo - Diccionarios y tablas hash en MS-Access 2007

docmd.transferspreadsheet acexport access 2013

Question

Quiero usar una tabla hash o un diccionario en mi programa de acceso. Aparentemente, se supone que debo usar la biblioteca Microsoft Scripting Runtime para esto, pero no funciona.

Dim Dict1 As Dictionary
'' Create a dictionary instance.
Set Dict1 = New Dictionary

No puede encontrar los métodos ".compareMode" o ".Add":

With Dict1
''set compare mode
.CompareMode = BinaryCompare
'' Add items to the dictionary.
.Add 1, "Item 1"
.Add 2, "Item 2"
.Add 3, "Item 3"
End With

En cambio, estos son los únicos disponibles para mí:

.application
.creator
.delete
etc...

¿Alguna pista?

Answer 1

Bueno, antes que nada cambie BinaryCompare a vbBinaryCompare .

Y creo que quieres estar haciendo tu set así:

Set Dict1 = CreateObject(Scripting.Dictionary)

Editar Para que sea más visible, aquí está la solución final de Anton. Cambió la forma en que declaró su diccionario de la siguiente manera:

Dim SortValues As Scripting.Dictionary
Set SortValues = New Scripting.Dictionary