Funkcija "FreeFile"

Taikoma
„Access“, skirta „Microsoft 365“ Access 2021 Access 2019 Access 2016

Pastaba

Šioje temoje aprašyta funkcija, metodas, objektas arba ypatybė išjungiama, jei "„Microsoft“ Jet" reiškinių tarnyba veikia smėlio dėžės režimu, kuris neleidžia įvertinti potencialiai nesaugių reiškinių. Daugiau informacijos apie smėlio dėžės režimą ieškokite žinyne "smėlio dėžės režimas".

Pateikia sveikąjį skaičių, nurodantį kitą failo numerį, kurį galima naudoti sakinyje Open .

Sintaksė

FreeFile[(rangenumber)]

Pasirinktinis diapazono skaičiaus argumentas yra variantas, nurodantis diapazoną, iš kurio turi būti grąžintas kitas nemokamas failo numeris. Nurodykite 0 (numatytąjį), kad būtų pateiktas failo numeris nuo 1 iki 255 imtinai. Nurodykite 1, kad būtų pateiktas failo numeris nuo 256 iki 511.

Pastabos

Naudokite "FreeFile", kad pateiktumėte failo numerį, kuris dar nenaudojamas.

Pavyzdys

Pastaba

Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkcija "FreeFile", suteikianti kitą galimą failo numerį. Penki failai atidaromi išvesties cikle ir į kiekvieną įrašomi kai kurie duomenų pavyzdžiai.

Dim MyIndex, FileNumber
For 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 #FileNumber
Next MyIndex