Passing Checkboxes as variables

[christosf360]

Hi everyone,

I have built a Subroutine and one of the required variables is a Checkbox. The Subroutine needs to check if a specified Checkbox has been ticked or not. Here is the declaration of the Subroutine with the Checkbox variable being the last one called "SwitchBox" (Have I used the right variable type to begin with???):

Sub SwitchText(SwitchFlag As Boolean, SwitchType As String, TextForSwitch As String, _
UnitSelected As String, SwitchBox As OLEObject)

I then try and call it by using the following line:

Call SwitchText(SpecsFlag, "Specs", "E59", Unit, Specs)

But when I do so I get a "Type mismatch error"

Any suggestions please?...?

Many thanks!!!

 

[Domenic]

Since the parameters in SwitchText have been declared without the keyword ByVal or ByRef, the arguments are passed by reference. As such, the variables being passed to SwitchText must be declared in the calling sub...

Dim SpecsFlag As Boolean
Dim Unit As String
Dim Specs As OLEObject

Hope this helps!

 

[christosf360]

Hi there, useful info about ByRef and ByVal, unfortunately I still get a type mismatch error. Here is give the whole piece of code (I also tried to declare within the calling sub as shown in the commented piece of code but same error):

Sub SwitchText(SwitchFlag As Boolean, SwitchType As String, TextForSwitch As String, _UnitSelected As String, ByRef SwitchBox As OLEObject)


SwitchFlag = False


If Specs.Value = True And SpecsFlag = False Then
    Worksheets("Switches").Range("E3") = Worksheets("AllText").Range(TextForSwitch)
    Worksheets("Switches").Range("E3") = Replace(Range("E3"), "#ControlUnit#", UnitSelected)
    Worksheets("Switches").Range("E3") = Replace(Range("E3"), "#Switch#", SwitchType)
Else
    Worksheets("Switches").Range("E3") = ""
    SwitchFlag = Not SwitchFlag
End If


End Sub


Private Sub Specs_Click()
Dim SpecsFlag As Boolean
'Dim SwitchFlag As Boolean
'Dim SwitchType As String
'Dim TextForSwitch As String
'Dim UnitSelected As String
'Dim SwitchBox As OLEObject






Call SwitchText(SpecsFlag, "Specs", "E59", Unit, Specs)


End Sub

Any ideas of what I am doing wrong please?...?

Many thanks

 

[Domenic]

As I posted in my previous post, the variables that you should be declaring are SpecsFlag, Unit, and Specs. So your calling sub should be as follows...

Private Sub Specs_Click()

    Dim SpecsFlag As Boolean
    Dim Unit As String
    Dim Specs As OLEObject
    
    'etc
    '
    '
    
    Call SwitchText(SpecsFlag, "Specs", "E59", Unit, Specs)


End Sub

By the way, the under score in _UnitSelected is an invalid character. So I think you'll need to remove it.

Does this help?

 

[Norie]

Change OLEObject to Object.

 

[christosf360]

The change from OLEObject to Object worked just fine, thank you both for your time!!!