Hallo zusammen,
ich habe einen Seitenumbruch eingefügt (VBA), der immer dann auftreten soll, wenn in dem Feld Seitenwechsel die Nummer 1 steht.
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.
Hallo,
versuch mal ...
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)
Schade... hat leider nichts verändert.
Versuch's mal hiermit: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.
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.) :D
Habe die Tabelle jetzt umformatiert und eine andere Lösung gefunden.