Applies ToAccess pakalpojumam Microsoft 365 Access 2021 Access 2019 Access 2016

Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" sadaļā Palīdzība.

Atgriež Integer, kas attēlo nākamo faila numurs, kuru var izmantot priekšrakstā Open .

Sintakse

FreeFile[(diapazona_numurs)]

Neobligātā diapazona numerācijas arguments ir Variant, kas norāda diapazonu, no kura tiks atgriezts nākamais brīvais faila numurs. Norādiet 0 (noklusējums), lai atgrieztu faila numuru diapazonā no 1 līdz 255 (ieskaitot). Norādiet vērtību 1, kas atgriež faila numuru diapazonā no 256 līdz 511.

Piezīmes

Izmantojiet FreeFile , lai nodrošinātu faila numuru, kas vēl netiek lietots.

Piemērs

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā tiek izmantota funkcija FreeFile , lai atgrieztu nākamo pieejamo faila numuru. Tiek atvērti pieci faili izvadei cilpā, un katrā no tiem tiek ierakstīti daži parauga dati.

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

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Izpētiet abonementa priekšrocības, pārlūkojiet apmācības kursus, uzziniet, kā aizsargāt ierīci un veikt citas darbības.

Kopienas palīdz uzdot jautājumus un atbildēt uz tiem, sniegt atsauksmes, kā arī saņemt informāciju no ekspertiem ar bagātīgām zināšanām.