Namen eines Buttonsauslesen

[ulihueck]

Hallo.
In einem Base-Formular möchte ich den Namen eines beliebigen Buttons auslesen, wenn darauf geklickt wird.
Leider führt der folgende Code nicht zum Ziel.

Code: Alles auswählen

set oButton = oEvt.Source
objektid=oEvt.Source.Model.Name

Leider funktioniert da noch nicht.
Schon jetzt danke für Eure Hilfe.

Grüße
Uli

[komma4]

Funktioniert hier einwandfrei:

Code: Alles auswählen

Sub nameButton( oEvent ) 

print oEvent.Source.Model.Name

End Sub

[uli38]

Hallo.
Danke für Deine Antwort.
Leider kann man den Code nicht auf ein Formular anwenden, sonden nur beim Klick auf den Button.
Wie lautet denn der Befehl, wenn ich das Macro beim Start des Formulars laden möchte und mir der Listener sagen soll, welcher (beliebige) Button gedrückt wurde?

Grüße
Uli

[komma4]

Leider kann man den Code nicht auf ein Formular anwenden, sonden nur beim Klick auf den Button.

Ja, genau.


Anders geht es (IMHO) auch nicht: das Formular hat kein Ereignis "Kontrollelement ausgelöst".
Du musst den Code bei jeder Schaltfläche zuordnen.