access vba - programar - Access 2016 establece eventos de control en tiempo de ejecución

vba access pdf

Question

¿Hay alguna manera de agregar un controlador de eventos para un control en tiempo de ejecución?

Considere este código (en la forma en que tengo solo TextBox1):

Option Compare Database
Option Explicit

Dim WithEvents tb As Access.TextBox

Private Sub Form_Load()
  set tb = TextBox1
End Sub

Private Sub tb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Debug.Print "tb_MouseDown"
End Sub

Private Sub TextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Debug.Print "TextBox1_MouseDown"
End Sub

Con ese código, se llaman a los dos controladores.
Si elimino el controlador TextBox1_MouseDown, el tb_MouseDown no se activa.