Change detail height is not completely clear for me

[gerard1979]

I'll try to change my detailheight based on a field (vervallen). It's a boolean, if true then detailheight = 800 else detailheight = 430.
What happened? The detailheigth 'walked' one record to late and reset each new page to 430.
So it doesn't represent what I want in the right way.

Hope someone can help me..

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

If Nz(Me.vervallen, 0) = -1 Then
Me.projectnaam1 = CutTextOff(Nz(Me.projectnaam, "&quot, 44)
Me.offerteomschrijving1 = CutTextOff(Nz(Me.offerteomschrijving, "&quot, 38)
Me.bedrijfsnaam1 = CutTextOff(Nz(Me.bedrijfsnaam, "&quot, 39)
Me.projectnaam1.FontBold = True
Me.bedrijfsnaam1.FontBold = True
Me.offerteomschrijving1.FontBold = True
Me.werknummer.FontBold = True
Me.gevolgd_door.FontBold = True
Me.lblMarker.Visible = True
Me.Details.Height = 800
Else
Me.projectnaam1.FontBold = False
Me.bedrijfsnaam1.FontBold = False
Me.offerteomschrijving1.FontBold = False
Me.werknummer.FontBold = False
Me.gevolgd_door.FontBold = False
Me.projectnaam1 = CutTextOff(Nz(Me.projectnaam, "&quot, 47)
Me.offerteomschrijving1 = CutTextOff(Nz(Me.offerteomschrijving, "&quot, 42)
Me.bedrijfsnaam1 = CutTextOff(Nz(Me.bedrijfsnaam, "&quot, 43)
Me.lblMarker.Visible = False
Me.Details.Height = 440
End If
End Sub

 

[HomeALone]

I thing it is the if statement doesn't logically work the way you want, try changing the if statement to just test Me.vervalen is false

If Me.vervallen = False Then

Let me know if this does anything!