Словари и хеш-таблицы в MS-Access 2007

Question

Я хочу использовать хеш-таблицу или словарь в моей программе доступа. Очевидно, я должен использовать для этого библиотеку времени выполнения сценариев Microsoft, но она не работает.

Dim Dict1 As Dictionary

' Create a dictionary instance.
Set Dict1 = New Dictionary

Не удается найти методы ".compareMode" или ".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

Вместо этого мне доступно только одно:

.application
.creator
.delete
etc...

Есть какие-нибудь подсказки?

Answer 1

Ну, в первую очередь измените BinaryCompare на vbBinaryCompare .

И я думаю, что вы хотите делать свой сет следующим образом:

Set Dict1 = CreateObject(Scripting.Dictionary)

Редактировать Чтобы сделать его более заметным, вот возможное решение Антона. Он изменил способ, которым он объявил свой словарь следующим образом:

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