vba 主动控制更改事件 - MS Access
声明：本页面是StackOverFlow热门问题的中英对照翻译，遵循CC BY-SA 4.0协议，如果您需要使用它，必须同样遵循CC BY-SA许可，注明原文地址和作者信息，同时你必须将它归于原作者（不是我）：StackOverFlow
原文地址: http://stackoverflow.com/questions/10655262/
Warning: these are provided under cc-by-sa 4.0 license. You are free to use/share it, But you must attribute it to the original authors (not me):
StackOverFlow
Active Control Change Event - MS Access
提问by StuckAtWork
I'm looking for a MS-Access form event which can check if the active control on the form has changed to another control; when it does a small script runs.
我正在寻找一个 MS-Access 表单事件，它可以检查表单上的活动控件是否已更改为另一个控件；当它运行一个小脚本时。
The function must be one which runs only when the form is active (such as a click on the form, etc). However, Form_Click() doesn't work as it somehow is not the same window.. I don't know what's going on there. Form_Click() also only works if you click form pieces, not controls (such as the Record Selector). This method should work for all controls with one method, not one method per control.
该函数必须是仅在表单处于活动状态（例如单击表单等）时运行的函数。但是， Form_Click() 不起作用，因为它在某种程度上不是同一个窗口。我不知道那里发生了什么。Form_Click() 也仅适用于单击表单片段，而不是控件（例如记录选择器）。此方法应适用于使用一种方法的所有控件，而不是每个控件一种方法。
my code:
我的代码：
Private Sub <<Form_ActiveHasChanged()>>
desc = Forms(Me.Form.Name).Controls(Me.ActiveControl.Name).StatusBarText
Me.txtInfo.Caption = desc
End Sub
where <<Form_ActiveHasChanged()>>is my event.. is there a way to do this? I can't use timers as if the user navigates away from the form, the Me.ActiveControl is no longer in the window and throws an error. Or, if anybody knows a way to check:
<<Form_ActiveHasChanged()>>我的活动在哪里.. 有没有办法做到这一点？我不能使用计时器，就好像用户导航离开窗体一样，Me.ActiveControl 不再在窗口中并引发错误。或者，如果有人知道检查的方法：
If (Me.Form IS IN ACTIVE WINDOW) Then ....
采纳答案by mwolfe02
You could do this via a class module using WithEvents. Unfortunately, there are no events attached to the generic Controlobject, so you will have to specify a handler for each different type of control. I've included three common controls to get you started.
您可以使用WithEvents. 不幸的是，没有附加到通用Control对象的事件，因此您必须为每种不同类型的控件指定一个处理程序。我已经包含了三个常用控件来帮助您入门。
Create a new class module named weControlChangeand paste the following code into it. Then follow the usage comments at the top of the class module to implement.
创建一个名为的新类模块weControlChange并将以下代码粘贴到其中。然后按照类模块顶部的用法注释来实现。
' Usage: 1. Add the following to the declaration section of the form module:
' Dim ControlChange As New weControlChange
' 2. Add the following to the Form_Load OR Form_Open event:
' ControlChange.Setup Me.Form
Option Compare Database
Option Explicit
Private WithEvents weTextBox As TextBox
Private WithEvents weComboBox As ComboBox
Private WithEvents weCheckBox As CheckBox
Private CtlColl As Collection
Public Sub Setup(Frm As Form)
Dim Ctl As Control, CtlChng As weControlChange
Set CtlColl = New Collection
For Each Ctl In Frm.Section(acDetail).Controls
'For Each Ctl In Frm.Controls ''to include controls from all sections'
Select Case Ctl.ControlType
Case acTextBox, acComboBox, acCheckBox
If Ctl.Enabled And Ctl.Visible Then
Set CtlChng = New weControlChange
Set CtlChng.Control = Ctl
CtlColl.Add CtlChng
End If
End Select
Next Ctl
End Sub
Public Property Set Control(ByVal Ctl As Control)
Select Case Ctl.ControlType
Case acTextBox
Set weTextBox = Ctl
weTextBox.OnEnter = "[Event Procedure]"
Case acComboBox
Set weComboBox = Ctl
weComboBox.OnEnter = "[Event Procedure]"
Case acCheckBox
Set weCheckBox = Ctl
weCheckBox.OnEnter = "[Event Procedure]"
End Select
End Property
Private Sub weCheckBox_Enter()
MyScript weCheckBox
End Sub
Private Sub weComboBox_Enter()
MyScript weComboBox
End Sub
Private Sub weTextBox_Enter()
MyScript weTextBox
End Sub
Private Sub MyScript(Ctl As Control)
'Your code goes here
End Function
Private Sub Class_Terminate()
Dim Ctl As Object
On Error Resume Next
If Not CtlColl Is Nothing Then
For Each Ctl In CtlColl
Set Ctl = Nothing
Next Ctl
Set CtlColl = Nothing
End If
End Sub
回答by CarlF
You could create a single event handler, store it in a module, and then simply set that to be the OnExit event for every control individually. Just Ctrl-A to select them all, open the Properties dialog, and set the OnExit event. Take about 20 seconds.
您可以创建单个事件处理程序，将其存储在一个模块中，然后简单地将其设置为每个控件的 OnExit 事件。只需按 Ctrl-A 将它们全部选中，打开“属性”对话框，然后设置 OnExit 事件。大约需要 20 秒。
回答by MaxD
The easiest way to do things is to use OnEnter event handler for every control.
最简单的方法是为每个控件使用 OnEnter 事件处理程序。
