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