Ms access Microsoft Access VBA中的事件订阅服务器_Ms Access_Events_Vba

Ms access Microsoft Access VBA中的事件订阅服务器

ms-access events vba

Ms access Microsoft Access VBA中的事件订阅服务器,ms-access,events,vba,Ms Access,Events,Vba,有没有办法让事件订阅服务器在Microsoft Access下的VBA中的即时窗口（例如，使用Debug.Print）进行调试？此代码是所有Microsoft Access对象的一站式代码 Option Explicit '* In a class module Private WithEvents o_PageEvents As Access.Page Private WithEvents o__ControlInReportEvents As Access.[_ControlInRepor

有没有办法让事件订阅服务器在Microsoft Access下的VBA中的即时窗口（例如，使用Debug.Print）进行调试？

此代码是所有Microsoft Access对象的一站式代码

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

这些链接中给出了它们的一些使用示例

还有一个堆栈溢出类似的问题

no。即时窗口基本上是一个控制台，它甚至不包含用于显示文本的控件-它直接绘制到客户端区域。您需要能够直接从调试器钩住IO。VBA\6程序员几十年来一直在尝试此功能，但没有成功…订阅什么活动？查看变量声明中使用的

WithEvents

关键字，例如

Dim WithEvents foo作为访问。表单@S我感谢您的回复。如果这是一个无关紧要的问题，请原谅，但是我仍然对如何使用上面的代码片段（比如）通过传递某个对象的引用打印出从该对象触发的所有事件感到困惑。你介意用一个例子来更新答案吗。我真的很感激。我通常不会访问，也不能立即让它工作。我已经包括了一些显示示例的链接。非常感谢！！