Добрый день!

В наличии форма с 60+ полями. Необходимо при клике по полю запускать определенную процедуру. Т.к. полей много — от создания обработки события к каждому полю отказался сразу. Ибо это бред. Два дня гугления привели к следующему коду:

Класс TextboxHandler

Option Explicit

Public WithEvents tbx As TextBox

Private Sub tbx_Click()
   MsgBox "You clicked textbox: " & tbx.Name
End Sub

Код формы

Option Explicit

Dim Coll As Collection

Private Sub Form_Load()
    Dim oh As TextboxHandler
    Dim ctl As Control
    Set Coll = New Collection
       
    For Each ctl In Form.Controls
        With ctl
            Select Case .ControlType
            Case acTextBox
                Set oh = New TextboxHandler
                Set oh.tbx = ctl
                Coll.Add oh
            End Select
        End With
    Next ctl
End Sub

Т.е., как я понял, мы бежим по контролам на форме, и полям присваиваем обработчик события. После этого обработчик добавляется в коллекцию.

Ожидаемо ничего не работает :)

Может быть у кого-нибудь найдется желание доступно объяснить, что я делаю не так. Или хотя бы, что можно почитать по данной теме чтобы разобраться самому?

http://www.sql.ru/forum/1261007/odin-obrabotchik-sobytiy-na-neskolko-obektov-formy