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.