UFO mit immer dem höchsten Filterkriterium öffnen

[Carl]

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:

Code [Auswählen] Erweitern


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?

[Lachtaube]

Code [Auswählen] Erweitern

Private Sub Form_Load()
   With Me.frmTeilnehmerzuordnungUFO2.Form
      .Filter = "massnahmeDurchgang = " & DMax("ID", "abfmassnahmedurchgaenge")
      .FilterOn = True
   End With
End Sub

[Carl]

Beim Laden vom Hauptformular?

Da wird der gesamte Code rot.

[Lachtaube]

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.

[Carl]

Ah, okay, ja es funktioniert.

Danke