Applies ToAccess za Microsoft 365 Access 2021 Access 2019 Access 2016

Napomena: Funkcija, metoda, objekt ili svojstvo opisano u ovoj temi onemogućeno je ako je Microsoft Jet Expression Service pokrenut u načinu rada sigurnosne ograde, što onemogućuje procjenu potencijalno nesigurnih izraza. Dodatne informacije o načinu rada sigurnosne ograde potražite u pomoći u odjeljku "način rada s memorijom za testiranje".

Vraća cijeli broj koji predstavlja sljedeći broj datoteke koji je dostupan za korištenje pomoću naredbe Otvori.

Sintaksa

FreeFile[(brojraspona)]

Neobavezni argument rangenumber je Variant koji određuje raspon iz kojeg će se vratiti sljedeći besplatni broj datoteke. Navedite 0 (zadano) da biste vratili broj datoteke u rasponu od 1 do 255, uključujući obje vrijednosti. Navedite 1 da biste vratili broj datoteke u rasponu od 256 do 511.

Napomene

Pomoću datoteke FreeFile navedite broj datoteke koji se još ne koristi.

Primjer

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru koristi funkcija FreeFile za vraćanje sljedećeg dostupnog broja datoteke. Pet datoteka otvorit će se za izlaz u petlji, a neki se ogledni podaci zapisi u svaku od njih.

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

Potrebna vam je dodatna pomoć?

Želite dodatne mogućnosti?

Istražite pogodnosti pretplate, pregledajte tečajeve za obuku, saznajte kako zaštititi uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na njih, pošaljete povratne informacije i čujete se sa stručnjacima s bogatim znanjem.