ms-access - 无法将字典作为参数传递给 VBA 函数

Question

我有一个 VBA 函数，它应该将 Dictionary 作为参数:

Function ShowDict(Dict1 As Dictionary)
   For Each x In Dict1
        MsgBox (Dict1.Item(x))
   Next
End Function

我试图这样称呼它:

Dim Dict As Dictionary
Set Dict = Dictionary
Dict.Add "Owner", "John"
Dict.Add "Employee", "Sam"
ShowDict (Dict)

在定义字典之前，我确实从引用中选择了 Microsoft 脚本引用。但是，我收到一个编译错误，指出“ ”参数不是可选的 ' 当我尝试使用 'Dict' 作为参数调用函数时。谁能帮我？

Answer 1

进行以下 2 项更改( New Dictionary 和 ShowDict Dict ):

Dim Dict As Dictionary
'Set Dict = Dictionary
Set Dict = New Dictionary
Dict.Add "Owner", "John"
Dict.Add "Employee", "Sam"
'ShowDict (Dict)
ShowDict Dict

另外我建议你添加 Option Explicit到代码模块的声明部分并包括 Dim x在您的 ShowDict功能。缺少这些不会导致当前的问题，但添加它们可以防止将来出现其他问题。