Applies ToAccess til Microsoft 365 Access 2021 Access 2019 Access 2016

Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.

Returnerer et Heltal, der repræsenterer den næste filnummer , der er tilgængelig til brug af Open-sætningen .

Syntaks

FreeFile[(områdenummer)]

Argumentet valgfrit områdenummer er en variant, der angiver det område, hvorfra det næste gratis filnummer skal returneres. Angiv et 0 (standard) for at returnere et filnummer i området 1-255, begge inklusive. Angiv et 1 for at returnere et filnummer i området 256-511.

Bemærkninger

Brug FreeFile til at angive et filnummer, der ikke allerede er i brug.

Eksempel

Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

I dette eksempel bruges funktionen FreeFile til at returnere det næste tilgængelige filnummer. Fem filer åbnes til output i løkken, og nogle eksempeldata skrives til hver.

Dim MyIndex, FileNumberFor MyIndex = 1 To 5    ' Loop 5 times.    ' Get unused file number.    FileNumber = FreeFile    ' Create file name.    Open "TEST" & MyIndex For Output As #FileNumber    ' Output text.    Write #FileNumber, "This is a sample."    ' Close file.    Close #FileNumberNext MyIndex

Har du brug for mere hjælp?

Vil du have flere indstillinger?

Udforsk abonnementsfordele, gennemse kurser, få mere at vide om, hvordan du sikrer din enhed og meget mere.

Communities hjælper dig med at stille og besvare spørgsmål, give feedback og høre fra eksperter med omfattende viden.