Sum af felter i dynamisk rapport

Du skal lave en ekstra række tekstbokse i RAPPORTFODEN (ikke sidefoden), som du navngiver Sum0, Sum1....Sum10...

Herefter skifter du koden ud med denne:
Private Sub Report_Open(Cancel As Integer)
    On Error Resume Next
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim n As Integer
    Dim AntalKolonner As Integer
    Const MaxAntalKolonner = 14
   
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    rs.Open Me.RecordSource, cn, adOpenStatic
   
    AntalKolonner = rs.Fields.Count - 1
    If AntalKolonner > MaxAntalKolonner Then
        AntalKolonner = MaxAntalKolonner
    End If
   
    For n = 0 To AntalKolonner
        Me("ctrl" & Trim(CStr(n))).ControlSource = rs(n).Name
        Me("lbl" & Trim(CStr(n))).Caption = rs(n).Name
        If IsNumeric(rs(n)) Then
            Me("Sum" & Trim(CStr(n))).ControlSource = "=Sum([" & rs(n).Name & "])"
        End If
    Next n
   
    For n = n To MaxAntalKolonner
        Me("ctrl" & Trim(CStr(n))).Visible = False
        Me("lbl" & Trim(CStr(n))).Visible = False
        Me("Sum" & Trim(CStr(n))).Visible = False
    Next n
End Sub