CODEWITHSUNDEEP
ms-accesseventsvba
falhumai
falhumai

Reputation: 163

Event Subscriber In Microsoft Access VBA

Is there any way to have an event subscriber to the immediate window (using Debug.Print, for instance) in VBA under Microsoft Access for debugging?

Upvotes: 1

Views: 522

Answers (1)

S Meaden
S Meaden

Reputation: 8260

This code is a one-stop for all of Microsoft Access emitting objects ...

Option Explicit
'* In a class module

Private WithEvents o_PageEvents As Access.Page
Private WithEvents o__ControlInReportEvents As Access.[_ControlInReportEvents]
Private WithEvents o_LabelEvents As Access.Label
Private WithEvents o_RectangleEvents As Access.Rectangle
Private WithEvents o_LineEvents As Access.Line
Private WithEvents o_ImageEvents As Access.Image
Private WithEvents o_CommandButtonEvents As Access.CommandButton
Private WithEvents o_OptionButtonEvents As Access.OptionButton
Private WithEvents o_OptionButtonInOptionEvents As Access.[_OptionButtonInOption]
Private WithEvents o_CheckBoxEvents As Access.CheckBox
Private WithEvents o_CheckBoxInOptionEvents As Access.[_CheckBoxInOption]
Private WithEvents o_OptionGroupEvents As Access.OptionGroup
Private WithEvents o_BoundObjectFrameEvents As Access.BoundObjectFrame
Private WithEvents o_TextBoxEvents As Access.TextBox
Private WithEvents o_ListBoxEvents As Access.ListBox
Private WithEvents o_ComboBoxEvents As Access.ComboBox
Private WithEvents o_ObjectFrameEvents As Access.ObjectFrame
Private WithEvents o_PageBreakEvents As Access.PageBreak
Private WithEvents o_ToggleButtonEvents As Access.ToggleButton
Private WithEvents o_ToggleButtonInOptionEvents As Access.[_ToggleButtonInOption]
Private WithEvents o_PaletteButtonEvents As Access.PaletteButton
Private WithEvents o_SubFormEvents As Access.SubForm
Private WithEvents o_SubReportEvents As Access.SubReport
Private WithEvents o_CustomControlEvents As Access.CustomControl
Private WithEvents o_CustomControlInReportEvents As Access.[_CustomControlInReport]
Private WithEvents o_TabControlEvents As Access.TabControl
Private WithEvents o_SectionEvents As Access.Section
Private WithEvents o_SectionInReportEvents As Access.[_SectionInReport]
Private WithEvents o_PageHdrFtrInReportEvents As Access.[_PageHdrFtrInReport]
Private WithEvents o_FormEvents As Access.Form
Private WithEvents o_ReportEvents As Access.Report
Private WithEvents o_References_Events As Access.References
Private WithEvents oDispAttachmentEvents As Access.Attachment
Private WithEvents oDispEmptyCellEvents As Access.EmptyCell
Private WithEvents oDispWebBrowserControlEvents As Access.WebBrowserControl
Private WithEvents oDispNavigationButtonEvents As Access.NavigationButton
Private WithEvents oDispNavigationControlEvents As Access.NavigationControl

Some examples of their use are given in these links |Adding Classes WithEvents to MS Access Form|MS Access WithEvents in Class Module for OnClick Event|.

Also a Stack Overflow similar question Click event handler withevents

Upvotes: 1

Related Questions