Standardwert

[PM HWSI]

Liebes Forum,

wir möchten in einem Formular (in dem wir Teilnehmer einer Veranstaltung zuordnen), dass das Feld Veranstaltung immer mit dem zuletzt ausgewähltem Datum gefüllt ist.
Wir haben einen Codeschnipsel gefunden, der allerdings nicht funktioniert:

Private Sub RefIDVeranstaltung_AfterUpdate()
  Me!RefIDVeranstaltung.DefaultValue = Me!RefIDVeranstaltung
End Sub

Der VBA-Code wird als Ereignisprozedur "Nach Aktualisierung" ausgeführt.

Hat jemand eine Idee, weshalb das nicht funktioniert und wie es funktionieren könnte?

Bereits jetzt: vielen Dank!

[andyfau]

Hallo,
Zitat aus der Microsoft Hilfe:

Wenn sich die Steuerelemente in demselben Formular befinden, muss das Steuerelement, das die Quelle des Standardwerts ist, weiter oben in der Aktivierreihenfolge angezeigt werden als das Steuerelement, das den Ausdruck enthält.

Beste Grüße
Andreas

[MzKlMu]

Hallo,
wenn man die Zuordnung der Teilnehmer zu einer Veranstaltung mit Hauptformular (Hafo) und Unterformular (Ufo) macht, so entfällt jeder VBA Code.
Im Hafo werden die Daten der Veranstaltung angezeigt und im Ufo die Teilnehmer per Kombifeld zugeordnet. Hafo und Ufo sind über die Schlüsselfelder zu verknüpfen. Dann erfolgt die Übertragung der RefIDVeranstaltung automatisch.
Das wäre das übliche Vorgehen bei dieser Aufgabe.
Zeige mal ein Bild des Beziehungsfensters.