Udfyldning af underformular i access

Hej CodeMiss

For det første skal du huske at underformularen skal være bundet til en tabel eller forespørgsel

Du skal nu i koden til hovedformularen indsætte følgende procedure som du kan kan efter opdatering på datofelterne

Private Sub OpdaterUnderForm()
Dim d1 as date
Dim d2 as date
dim TabelIUnderFormular as recordset
    d1=me!FraDato  'Fra dato feltet
    d2=me!TilDato  'Til dato feltet
    Set TabelIUnderFormular = CurrentDb().OpenRecordset("TABEL")

    'Indsæt datoer i tabel
    Do While DateDiff("d",d1,d2)>=0
        TabelIUnderFormular.AddNew
            TabelIUnderFormular!Dato=d1
        TabelIUnderFormular.Update
        d1=d1+1
    Loop
    'Opdater formular
    me!d1.setfocus
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    End Sub

God fornøjelse

Tak for hjælpen! Det ser ud til at virke! :-D

Codemiss