VBA Custom class does not capture events

Question

I'm trying to create a class that manages the events of a combo box in Access 2010. Here you have the code:

Class TestEvents

Public WithEvents cbMyCombo As Access.ComboBox

Public Property Get AssociatedCombo() As Access.ComboBox
    Set AssociatedCombo = cbMyCombo
End Property

Public Sub cbMyCombo_Change()
    MsgBox "Combo has changed!"
End Sub

Private Sub Class_Initialize()
   Set cbMyCombo = Form_Form1.Combo1
End Sub

Form1 Code (Contains a combobox named Combo1)

Option Compare Database
Option Explicit
Private MyTestEvents As TestEvents

Private Sub Form_Load()
   Set MyTestEvents = New TestEvents
   MsgBox MyTestEvents.AssociatedCombo.Name
End Sub

When running the code, I get (as expected) a message with the combobox name (Combo1), so the TestEvents.AssociatedCombo property is pointing to the right object but nothing happens when I change the combo value. I would expect to get the message "Combo has changed".

Is there anything I'm doing wrong?

Thanks in advance for your help :)

How many values you have in Combo box ? Combo box change will happen only if more than 1 value in combo box — logan
– logan, Commented Jun 28, 2012 at 10:15

Alex K. · Accepted Answer · 2012-06-28 10:30:34Z

1

By default events sunk for a form control are not raised in VBA at all; to enable them (and subsequently enable your WithEvents) you need to wire up each event you want to handle;

Set cbMyCombo = Form_Form1.Combo1 '//please put this in a property!

cbMyCombo.OnKeyDown = "[Event Procedure]"
cbMyCombo.OnBlaDeBla = "[Event Procedure]"

(Note that's the actual string value you need to set, not a placeholder/example)

You can also do this on the Events tab of the control properties.

answered Jun 28, 2012 at 10:30

Alex K.

177k32 gold badges276 silver badges299 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Southern Over a year ago

Thanks for the quick answer, Alex. Problem then is that the [Event Procedure] needs to be outside of the class, isn't? Should be a public function in a separate module.

Alex K. Over a year ago

No, if you add cbMyCombo.OnChange = "[Event Procedure]" to your class what you have should work

Southern Over a year ago

THANKS! By putting literally "[Event Procedure]" everything works. I misinterpreted it as a kind of placeholder for the name of the procedure linked with the event. Again, thanks :)

Collectives™ on Stack Overflow

VBA Custom class does not capture events

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related