Mehrere Elemente mit gleicher Funktion

[Joss]

@Franz,

mach da besser eine Public Function daraus...

ich finde die "Private Function" sinnvoller, da der Code nur in diesem Formularmodul verwendet wird, und damit auch leichter diesem Formular zugeordnet werden kann.
Im Sinne der Code-Dokumentation finde ich es sogar sinnvoll, zusätzlich im Code noch einen Kommentar anzubringen, wo die Funktion verwendet wird.

Gruß
Josef

[DF6GL]

Hallo,

mal abwarten, bis diese Private Function plötzlich auch in einem anderen Klassenmodul gebraucht wird...  Wäre ja nicht das erste Mal, dass sowas auftaucht...   

[zoulhh]

Hallo zoulhh,

zu deiner Anfangsfrage:

Erstelle eine Private Function z.B. test(), die deinen Code enthält.
Dann markierst du alle 5 Schaltflächen, und schreibst in das Ereignis "Beim Klicken" ein Gleichheitszeichen und den Funktionsnamen:

Code [Auswählen] Erweitern

=test()

Gruß
Josef

Hey Josef,

kann ich da auch einen Wert übergeben wenn ich das in einem Listenfeld benutzte? Praktisch den Wert der jeweiligen Auswahl? Sowas wie

=test(me!listenauswahl)

Habs versucht, gibt aber einen Fehler. (Ist jetzt schon wieder für eine andere Sache, Deine Lösung von vorhin funktioniert perfekt).

Edit:

Ahh

=test( [listenauswahl] )

Alles klar. Nochmal danke für den Tip(p).

LGM

[Beaker s.a.]

Hallo Zhoulhh,
Auf der Accessoberfläche kann Access bzw. VBA mit "Me!" nichts anfangen, - da
musst du den vollständigen Formularbezug angeben.

Code [Auswählen] Erweitern

=test(Formulare!DeinForm!DeineListe.Value)
Damit übergibst du den Wert der gebundenen Spalte der Liste.
Wenn du aber statt einem UFo ein Listfeld verwendest, brauchst du auch nur ein
Ereignis zu behandeln; - Liste_Click (BeimKlicken).
gruss ekkehard