Kein Seitenumbruch, wenn die letzte Seite leer ist

[KeinPlan0815]

Hallo zusammen,

ich habe einen Seitenumbruch eingefügt (VBA), der immer dann auftreten soll, wenn in dem Feld Seitenwechsel die Nummer 1 steht.

Code [Auswählen] Erweitern

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

Me!Umbruch.Visible = False
If Me!Seitenwechsel = "1" Then
Me!Umbruch.Visible = True
End If

End Sub

Funktioniert.
Leider macht er den Umbruch auch dann, wenn der Datensatz (Feld Seitenwechsel) am Ende der Abfrage steht, so dass immer noch ein leeres Blatt zum Schluss angefügt wird.
Kann man dem Umbruch einen Befehl geben, der ihm sagt:
"Wenn die nächste Seite leer ist, dann mache keinen Umbruch" ?

Danke für Eure Zeit.

[database]

Hallo,

versuch mal ...

Code (vb) [Auswählen] Erweitern



Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

    Me!Umbruch.Visible = False
If Me!Seitenwechsel = "1" Then
    Me!Umbruch.Visible = (Me.CurrentRecord > 1)
End If

End Sub



Damit sollte der Seitenumbruch nur angezeigt werden solange noch Daten abzuarbeiten sind (ungetestet)

[KeinPlan0815]

Schade... hat leider nichts verändert.

[MaggieMay]

Versuch's mal hiermit:

Code [Auswählen] Erweitern

Me!Umbruch.Visible = Not (Me.Page = Me.Pages)
als Ersatz für die Sache mit CurrentRecord.

Damit das funktioniert, muss der Bericht aber einen Seitenzähler enthalten.

[KeinPlan0815]

Danke nochmal für deine Hilfe.
Der Code funktioniert leider auch nicht. Liegt wohl daran, dass er die Seite 2/2 erst dann erstellt, wenn der Umbruch überhaupt erst zu Stande kommt.
(Das klassische Paradoxon wie mit dem Ei und der Henne.) 

Habe die Tabelle jetzt umformatiert und eine andere Lösung gefunden.