Multiple click events on labels

[frank12345]

Hello all,

I am using the below code as a click event for a label. It works fine but the problem is I have multiple labels which require the same event to occur on click. Please find the code below:

Private Sub label1_click()
    If Label1.Caption = Chr(254) Then
        Label1.Caption = Chr(168)
    Else
        Label1.Caption = Chr(254)
    End If
End Sub
 
Private Sub label2_click()
    If Label2.Caption = Chr(254) Then
        Label2.Caption = Chr(168)
    Else
        Label2.Caption = Chr(254)
    End If
End Sub

[ADezii]

This is a rather odd request, but I'll Post an alternative, then rely on your explanation as to why.

1. Create a Private Function in the Form's Class Module that will process each Label as passed to it in it's Click() Event, and act accordingly:
   

   Private Function fEvalLabel(lbl As Access.Label)
   If lbl.Caption = Chr(254) Then
     lbl.Caption = Chr(168)
   Else
     lbl.Caption = Chr(254)
   End If
   End Function
    

2. Call the Function from the Click() Event of each Label, passing to it the Label Control itself:
   

   Private Sub Label1_Click()
     Call fEvalLabel(Me![Label1])
   End Sub
    

   Private Sub Label2_Click()
     Call fEvalLabel(Me![Label2])
   End Sub

   Private Sub Label3_Click()
     Call fEvalLabel(Me![Label3])
   End Sub

[frank12345]

Hi Adezii,

Thanks for the reply. I have about 200 labels on my spreadsheet that need a loop instead of writing a code for each label. I am using wingding character on the label property to create a larger looking checkbox...

I have the same code running for multiple labels but instead would like to run a code that loops all the labels to the same code. eg; label 1,2....200. Any suggestion is appreciated..

Regards
Frank...

[Seth Schrock]

If all of your labels need the same code performed on them, then you can loop through all the labels. However, if there are any labels used that you don't want to test, then you can use the Tag property of the label to specify that the loop should test that label. However, if you want only want the code ran when you click on it, then you will have to write code in each label's OnClick event. Otherwise, clicking the label won't trigger anything to happen, so I really don't see a benefit to looping through all the labels. In fact, I'm betting that ADezii's solution would perform faster since you are only dealing with one control at a time and not having to loop through the controls that aren't labels as well.

If you still want to loop through the controls, then the code to do so would be something like this.

Dim ctl as Control
 
For Each ctl in Me.Controls
    If ctl.ControlType = acLabel Then
        With ctl
            If .Properties("Caption") = Chr(254) Then
                .Properties("Caption") = Chr(168)
            Else
                .Properties("Caption") = Chr(254)
            End If
        End With
    End if
Next ctl

[NeoPa]

I have the same code running for multiple labels but instead would like to run a code that loops all the labels to the same code. eg; label 1,2....200. Any suggestion is appreciated.

You seem to be missing the basic point that Object-Oriented Programming (OOP) is not procedural.

Event handlers are an element of OOP. They don't always run together. They are simply available to be invoked by the system when the specific events occur. The way the system is notified that you may want code to run for any event is that you create an event handler for it. This is true for each and every such event. There is no option to specify any list of controls as requiring event handlers.

ADezii has already provided the best answer you can get for this question.

NB. Your latest post says you are working in a spreadsheet. I must assume that is a typo as this is clearly an Access/VBA forum. The Excel forum is now separate.
In Excel the answer would be somewhat different I suspect, as the events available are different.

[frank12345]

Thanks Guys!!! Adezii's code is good to go.