事件訂閱者在Microsoft Access VBA

是否有任何方法可以在VBA下的Microsoft Access中的立即窗口中使用事件訂閱者（例如使用Debug.Print）進行調試？事件訂閱者在Microsoft Access VBA

2017-02-11 falhumai

沒有。即時窗口基本上是一個控制檯，它甚至不包含用於顯示文本的控件 - 它直接繪製到客戶區。您需要能夠直接從調試器掛接IO。 VBA \ 6程序員幾十年來一直試圖這樣做，但沒有成功...... – Comintern

訂閱什麼事件？查看變量聲明中使用的'WithEvents'關鍵字，例如'Dim WithEvents foo as Access.Form' –

此代碼是一個一站式的所有的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

其使用的一些例子在這些鏈接中給出| Adding Classes WithEvents to MS Access Form | MS Access WithEvents in Class Module for OnClick Event |。

也是堆棧溢出類似的問題Click event handler withevents

來源

2017-02-11 15:54:40

@S Meaden謝謝您的迴應。不好意思，如果這是一個微不足道的問題，但我仍然困惑於如何使用上面的代碼片段，例如通過傳遞其引用來打印出從某個對象觸發的所有事件。你介意以一個例子更新答案嗎？我真的很感激。 – falhumai

我通常不會執行Access並且無法立即使其工作。我已經包含了一些顯示示例的鏈接。 –

非常感謝你！ – falhumai

事件訂閱者在Microsoft Access VBA

回答

相關問題