msgbox comes up 3 times, why?

[NewTexican]

I have =checkboxclick in the onclick for my checkbox.

I get the msgbox 3 times????

Public Sub checkboxclick()

Dim mloutyn As Boolean

mloutyn = Screen.ActiveControl.Value

MsgBox mloutyn

End Sub

 

[DoubleD]

Is that the only code on your form?
My guess is something else is causing this.

I am what I am based on the decisions I have made.

DoubleD

 

[NewTexican]

I turned off my oncurrent and onload code. So it's not in this code, or a funny quirk that you know of? surprise surprise.

 

[DoubleD]

Is this what the actual code looks like?

Private Sub chkBoxName_Click()
  Call checkboxclick
End Sub


Public Sub checkboxclick()
      
    Dim mloutyn As Boolean
        
    mloutyn = Screen.ActiveControl.Value
    
    MsgBox mloutyn
       
End Sub

Or is there more code involved in the chkBoxName_Click event?

Did you try moving the call to the AfterUpdate event of the check box?

I am what I am based on the decisions I have made.

DoubleD

 

[NewTexican]

If I make the code look like that and then put [event procedure] in the on click line of the checkbox form design view, it works well. If I put =checkboxclick into the onclick line from design view I get 3 messageboxes. I guess I'll just stick with your code. thanks.