Fortløbende formularer: VIs filer i mappe

fil-indholdet = filerne

Nedenstående funktion indlæser filnavnene i tabellen "tblFilNavne" (som ud selv lige må oprette). Jeg går ud fra, at du herefter selv kan vise resultatet i en formular.

Function HentFilListe(FilMappe As String)
Dim db As Database
Dim rsFilNavne As Recordset
Dim FilNavn As String

    Set db = CurrentDb()
    Set rsFilNavne = db.OpenRecordset("tblFilNavne")
    FilNavn = Dir(FilMappe & "*.*")  ' Hent det første filnavn.
    Do While FilNavn <> ""
        With rsFilNavne
            .AddNew
            !FilNavn = FilNavn
            .Update
        End With
        FilNavn = Dir      ' Hent næste datafilnavn.
    Loop

End Function

Ovenstående bliver ved med at tilføje navne til listen. For at slette den gamle liste skal nedenstående tilføjes før "set" sætningerne.

    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE tblFilNavne.* FROM tblFilNavne;"
    DoCmd.SetWarnings True

Virker fint, tak for det

Lyder godt. Tak for point.