See if changing to this works better:
Code:
Option Compare Database
Private Sub GroupHeader2_Format(Cancel As Integer, FormatCount As Integer)
Me.GroupHeader2.Visible = (Not IsNull(Me.Division_Supergroup))
End Sub
Private Sub GroupHeader3_Format(Cancel As Integer, FormatCount As Integer)
Me.GroupHeader3.Visible = (Not IsNull(Me.AccessTotalsBalance__Deficit__End1))
End Sub
Private Sub GroupHeader4_Format(Cancel As Integer, FormatCount As Integer)
Me.GroupHeader4.Visible = (Not IsNull(Me.AccessTotalsBalance__Deficit__End))
End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.Detail.Visible = (Abs(Me.[Balance (Deficit) End]) >= 1)
End Sub