tipo - byref argument type mismatch vba

Desorden de tipo de argumento ByRef con Boolean

Question

Tengo un código de vba en un formulario de acceso que produce un error "No coincide con el tipo de argumento ByRef" cuando se llama en las siguientes circunstancias.

Tengo una pequeña función

NullAndHide(ctl as control,displayitem as Boolean) 

que funciona como se esperaba cuando lo llamo así.

Call NullAndHide(Me.Control,True)

Sin embargo, si uso la siguiente declaración de caso para intentar establecer el valor de displayitem basado en otro control:

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

Y entonces

Call NullAndHide(Me.Control,PerPersonOption) Recibo el error:

ByRef Argumento tipo desajuste

He probado el valor de PerPersonOption con

msgBox PerPersonOption 

y devuelve el valor booleano correcto.

Mi función espera un booleano, le doy un booleano. Entonces, ¿por qué recibo este error?

Answer 1

Al declarar Dim PerPersonOption, PerRoomOption As Boolean only PerRoomOption es del tipo Boolean, pero PerPersonOption es Variant.

Intente utilizar Dim PerPersonOption As Boolean, PerRoomOption As Boolean