Applies ToAccess for Microsoft 365 Access 2021 Access 2019 Access 2016

Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.

Returnerer et heltall som representerer neste filnummer tilgjengelig for bruk av Open-setningen .

Syntaks

FreeFile[(områdenummer)]

Det valgfrie områdenummerargumentet er en variant som angir området der det neste ledige filnummeret skal returneres. Angi 0 (standard) for å returnere et filnummer i området 1–255. Angi en 1 for å returnere et filnummer i området 256–511.

Merknader

Bruk FreeFile til å angi et filnummer som ikke allerede er i bruk.

Eksempel

Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.

Dette eksemplet bruker FreeFile-funksjonen til å returnere det neste tilgjengelige filnummeret. Fem filer åpnes for utdata i løkken, og noen eksempeldata skrives til hver av dem.

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

Trenger du mer hjelp?

Vil du ha flere alternativer?

Utforsk abonnementsfordeler, bla gjennom opplæringskurs, finn ut hvordan du sikrer enheten og mer.

Fellesskap hjelper deg med å stille og svare på spørsmål, gi tilbakemelding og høre fra eksperter med stor kunnskap.