Hallo,
ich habe folgenden (leicht gekürzten) Code, der mir bei jedem Wechsel in der Gruppe bei Sortwert1 einen Seitenumbruch macht (das ist richtig, das soll er machen). Bei einem Wechsel in der Gruppe von Sortwert2 macht er ebenfalls einen Seitenumbruch (was er nicht machen soll). Das ...ForceNewPage = 0 scheint er zu ignorieren.
Select Case Sortwert1
Case 3
Me.GroupLevel(0).ControlSource = "Gerätegruppen.Bezeichnung"
Me.KopfBez.Visible = True
SortierW1 = "Gerätetyp"
Me.Section(8).ForceNewPage = 2
Case 4
Me.GroupLevel(0).ControlSource = "Abteilungen.Ort"
Me.KopfOrt.Visible = True
SortierW1 = "Standort"
Me.Section(10).ForceNewPage = 2
End Select
Sort1 = Me.GroupLevel(0).ControlSource
If Sortwert1 <> Sortwert2 Then
Select Case Sortwert2
Case 3
Me.GroupLevel(1).ControlSource = "Gerätegruppen.Bezeichnung"
SortierW2 = "Gerätetyp"
Me.Section(8).ForceNewPage = 0
Case 4
Me.GroupLevel(1).ControlSource = "Abteilungen.Ort"
SortierW2 = "Standort"
Me.Section(10).ForceNewPage = 0
End Select
Sort2 = Me.GroupLevel(1).ControlSource
Else
Sort2 = Sort1
SortierW2 = SortierW1
End IF
Was kann ich tun, um den zweiten Seitenumbruch rauszukriegen?
Vielen Dank im Voraus
Beate1953