ms-access - ByRef 参数类型与 bool 值不匹配

Question

我在 Access 窗体中有一些 vba 代码，在以下情况下调用时会产生“ByRef 参数类型不匹配”错误。

我有一个小功能

NullAndHide(ctl as control,displayitem as Boolean) 

当我这样调用它时，它按预期工作。

Call NullAndHide(Me.Control,True)

但是，如果我使用下面的case语句来尝试设置基于另一个控件的displayitem的值:

Dim PerPersonOption, PerRoomOption As Boolean

    Select Case PriceType_ID
Case Is = 1 'Per Person
    PerPersonOption = True
    PerRoomOption = False
Case Is = 2 'Per Room
    PerPersonOption = False
    PerRoomOption = True
End Select

然后

Call NullAndHide(Me.Control,PerPersonOption) 我收到错误:

ByRef 参数类型不匹配

我已经测试了 PerPersonOption 的值

msgBox PerPersonOption 

并返回正确的 bool 值。

我的函数需要一个 bool 值，我给它一个 bool 值 - 那么为什么我会收到这个错误？

Answer 1

当声明 Dim PerPersonOption, PerRoomOption As Boolean 时，只有 PerRoomOption 是 Boolean 类型，而 PerPersonOption 是 Variant。

尝试使用 Dim PerPersonOption As Boolean, PerRoomOption As Boolean