Ich habe mal eine Frage. In meinem Formular befindet sich ein Listenfeld, das das UFO filtert.
Inhalt Listenfeld:
SELECT [abfmassnahmedurchgaenge].[ID], [abfmassnahmedurchgaenge].[NurAEAP] FROM abfmassnahmedurchgaenge ORDER BY [NurAEAP] DESC;
Und hier die Ereignisprozedur:
Private Sub Kombinationsfeld82_AfterUpdate()
With Me!frmTeilnehmerzuordnungUFO2.Form
.Filter = "massnahmeDurchgang = " & Me!Kombinationsfeld82 & ""
.FilterOn = True
End With
End Sub
Wenn ich das Formular öffne, erscheinen im UFO KEINE Datensätze. Ich möchte aber, dass zuerst immer die Datensätze erscheinen, wo der Wert des Feldes [abfmassnahmedurchgaenge].[ID] am höchsten ist. Dieser Wert ist variabel und zählt von Woche zu Woche hoch.
Was muss man tun?
Private Sub Form_Load()
With Me.frmTeilnehmerzuordnungUFO2.Form
.Filter = "massnahmeDurchgang = " & DMax("ID", "abfmassnahmedurchgaenge")
.FilterOn = True
End With
End Sub
Beim Laden vom Hauptformular?
Da wird der gesamte Code rot.
Ja, beim Laden des Formulars, denn beim Öffnen des Formulars ist noch kein Unterformular geladen ist, das irgend etwas anzeigen könnte.
PS: wenn Code im VBA-Editor [i/]rot wird[/i], liegen Syntaxfehler vor, die aber definitiv nicht von meinem Code herrühren.
Ah, okay, ja es funktioniert.
Danke