Code voor alle knoppen op een formulier

[reneemettrie]

Ik heb op een Access formulier tooltip tekst toegevoegd bij alle knoppen. Dit reageert erg traag. Daarom heb ik een tekstvak gemaakt waarin deze controltooltip verschijnt als je met de muis over een knop beweegt.

Voor één knop geeft dit bvb dit:

Private Sub cmd_Licence_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txt_Help = "Help: " & cmd_Licence.ControlTipText
End Sub

Maar hoe kan ik dit nu instellen voor alle knoppen? Tot dusver heb ik ze één voor één geprogrammeerd, maar dat is natuurlijk ver van elegant

 

[OctaFish]

Dat kan inderdaad een stuk simpeler als je een functie gebruikt:

Function HulpBallon(ctl As Control)
    Me.txt_Help = ctl.ControlTipText
End Function

En op je tekstvakken, knoppen etc. dan dit bij de gebeurtenis <Bij muis verplaatsen>:

=HulpBallon([txtKlantnaam])
=HulpBallon([txtAdres])
=HulpBallon([TelefoonnrKlant])
=HulpBallon([cmdOpslaan])

etc.

 

[reneemettrie]

Bedankt. Daar had ik idd ook al aan gedacht.
Maar er bestaat dus geen mogelijkheid om te zeggen dat deze functie (of sub) moet aangeroepen worden telkens het event zich op eender welke knop (of andere control) voordoet?

 

[OctaFish]

Nee. En ik kijk niet uit naar de dag dat Microsof dat (onzalige) idee gaat inbouwen .