Dynamic CheckBox > OnChange Event

[Jonas Offersen]

Good Morning Everyone

I am trying to make a dynamically created CheckBox show a UserForm OnChange.
I am using a Class module for this, but I keep getting the "object required" error...

Is this something you can help me out with? (pardon this wall of code)

---

The class I'm using looks like this:
Public WithEvents CBox As MSForms.checkbox
Public frm As UserForm
Dim iForm As UserForm

Private Sub CBox_Change()
iForm = FormActOptions
iForm.Show
End Sub

---

I declare a collection outside the sub.
Dim mColCBox As New Collection

---

Part of the Code generating the first userform:
Dim cBoxEvent As ClassCBox

Exist = rCell.Offset(, 8) 'it exist now
Set iCheck = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & CStr(i), True)
Set acmd = Me.Controls.Add("Forms.TextBox.1", "TextBox_" & CStr(i), True)
Set iFormidler = Me.Controls.Add("Forms.Textbox.1", "CountBox_" & CStr(i), True)

With iCheck 'create a dynamic checkbox
.Top = top_ + 18
.Left = FormIActivities.Label1.Left
.Caption = rCell.Value
.Width = FormIActivities.Label1.Width
If (rCell.Value = "Rabat") Then
.Font.Bold = True
End If
End With

Set cBoxEvent = New ClassCBox
Set cBoxEvent.CBox = iCheck
Set cBoxEvent.frm = Me

mColCBox.Add cBoxEvent

OBS! To avoid crowding this place with code, I chose to cut out only what I think is needed. If you want the full code of this sub, do give me a headsup!

---

Thank you again for trying to help me out!

 

[jkpieterse]

On which line of code? Please use code tags around your code...

 

[Jonas Offersen]

I am sorry, I was looking for them before, but I failed to find the code tags. xD

Sorry, the line is

mColCBox.Add cBoxEvent

 

[Jonas Offersen]

The class I'm using looks like this:

Public WithEvents CBox As MSForms.checkbox
Public frm As UserForm
Dim iForm As UserForm

Private Sub CBox_Change()
    iForm = FormActOptions
    iForm.Show
End Sub

---

I declare a collection outside the sub.

Dim mColCBox As New Collection

---

Part of the Code generating the first userform:

Dim cBoxEvent As ClassCBox
                    
                    Exist = rCell.Offset(, 8) 'it exist now
                    Set iCheck = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & CStr(i), True)
                    Set acmd = Me.Controls.Add("Forms.TextBox.1", "TextBox_" & CStr(i), True)
                    Set iFormidler = Me.Controls.Add("Forms.Textbox.1", "CountBox_" & CStr(i), True)
                    
                    With iCheck 'create a dynamic checkbox
                        .Top = top_ + 18
                        .Left = FormIActivities.Label1.Left
                        .Caption = rCell.Value
                        .Width = FormIActivities.Label1.Width
                        If (rCell.Value = "Rabat") Then
                            .Font.Bold = True
                        End If
                    End With
                    
                    Set cBoxEvent = New ClassCBox
                    Set cBoxEvent.CBox = iCheck
                    Set cBoxEvent.frm = Me
                    
                    mColCBox.Add cBoxEvent

 

[jkpieterse]

Before you can add to a collection you must initialize it:

Set mColCBox = New Collection

 

[Jonas Offersen]

Before you can add to a collection you must initialize it:

Set mColCBox = New Collection

Thank you! That Solved the Error message.
It's still not calling the _change event from the class though. *sighs*

 

[jkpieterse]

Did you put a break in the change sub to confirm that?

 

[Jonas Offersen]

Did you put a break in the change sub to confirm that?

Yes. But it struck me that maybe the code is only running on one of the check boxes, which was right. It is only running on the very last of check boxes I'm generating.

 

[jkpieterse]

We prefer if you use the reply button rather than the reply with quote.
You must move the Set ... as New Collection to a place where it is only called once during the init of the form. Setting that variable to a new collection zaps the current items of the collection so only the last item is added so to speak.

 

[Jonas Offersen]

Thanks a lot! I hope I'll get used to how things work here xD Thank you for letting me know