Dynamisk rapport ved brug af krydstabulering

Du er nødt til at vurdere hvor mange felter, som maksimalt kan være på rapporten (afhængigt af om du benytter Landscape eller Portrait)

Du laver en rapport, hvor du placere en række tekstbokse ved siden af hinanden i detaljesektionen. Labels placeres oven over i sidehovedet.
Alle labels navngives lbl0, lbl1, lbl2.....lbl10,...?
Alle tekstbokse navngives ctrl0, ctrl1, ctrl2,..., ctrl10,...

Herefter placeres nedenstående kode på rapportens VedÅben-hændelse:

Private Sub Report_Open(Cancel As Integer)
    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
    Next n
   
    For n = n To MaxAntalKolonner
        Me("ctrl" & Trim(CStr(n))).Visible = False
        Me("lbl" & Trim(CStr(n))).Visible = False
    Next n
End Sub

NB: Husk at angive konstanten MaxAntalKolonner til antallet af tekstbokse -1 (den tæller jo fra 0). Dvs at hvis der er 10 tekstbokse skal MaxAntalKolonner  sættes til 9.

/Thomas

Tak for hjælpen, Thomas. Det virker !!
I forlængelse af dette har jeg brug for hjælpe til at summe.
Se i øvrigt lige: http://www.eksperten.dk/spm/367766