ByRef argument type mismatch

[anonymous]

[Originally posted by Alex]

I have an array of buttons and for this I use

Public Sub UpdateButtons(Optional blockEm As Variant)
'
'
'
End Sub

Public Sub NavigateButtons(sButtonString As String)
'
'
'
End Sub

Public Sub LockTheControls(bLocked As Variant) 'Boolean
Dim iIndx As Integer
With Screen.ActiveForm
For iIndx = 0 To .Controls.Count - 1
ÿ ÿ If (.Controls(iIndx).Tag = "1") Then
ÿ ÿ ÿ ÿ If (TypeOf .Controls(iIndx) Is TextBox) Then
ÿ ÿ ÿ ÿ ÿ ÿ If (bLocked) Then
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ .Controls(iIndx).Locked = True
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ .Controls(iIndx).BackColor = vbWhite
ÿ ÿ ÿ ÿ ÿ ÿ Else
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ .Controls(iIndx).Locked = False
ÿ ÿ ÿ ÿ ÿ ÿ ÿ ÿ .Controls(iIndx).BackColor = vbYellow
ÿ ÿ ÿ ÿ ÿ ÿ End If
ÿ ÿ ÿ ÿ  End If
ÿ ÿ  End If
Next
End With

End Sub


So if I declare parameter bLocked as Boolean

Public Sub LockTheControls(bLocked As Boolean)

there is "Compile error: ByRef argument type mismatch"

But when
I declare parameter bLocked as Variant
there is no error

Why this happen
Please help me
If there is any help I appreciate it

[anonymous]

[Originally posted by FreeVBCode.com]

The error is probably in whatever code is calling LockTheControls.ÿ You are probably passing a non-boolean value to it.

[anonymous]

[Originally posted by Angchuk]

Since u dodnot return or modifying the value of bLocked in the Public Sub LockTheControls(bLocked As Boolean)
try declaring like this:


Public Sub LockTheControls(ByVal bLocked As Boolean)

OR:

Check if bLocked is declared as Boolean in the caller function.

For example if u have declared bLockedÿ like this

Dim bLocked, exTestBoolean As Boolean 'Where exTestBoolean is an another boolean variable

The try declaring like this

Dim bLocked As Boolean, exTestBoolean As Boolean 'Where exTestBoolean is an another boolean variable

Drop a line if its :-)ÿ or even if its :-(

[anonymous]

[Originally posted by Alex]

O, yes thanks a lot.It was my fault

I declared as you told me to do now there is no error

Public Sub LockTheControls(ByVal bLocked As Boolean)