Applies ToAccess za Microsoft 365 Access 2021 Access 2019 Access 2016

Napomena: Funkcija, metod, objekat ili svojstvo opisano u ovoj temi onemogućena je ako je usluga Microsoft Jet Expression pokrenuta u režimu sandbox, što sprečava procenu potencijalno nebezbednih izraza. Više informacija o režimu "sandbox" potražite u odeljku "režim sandbox" u pomoći.

Vraća ceo broj koji predstavlja sledeći broj datoteke koji je dostupan za korišćenje izrazom Open .

Sintaksa

FreeFile[(brojopsega)]

Opcionalni argument rangenumber je varijanta koja navodi opseg iz kojeg će biti vraćen sledeći besplatni broj datoteke. Navedite 0 (podrazumevano) da biste vratili broj datoteke u opsegu od 1 do 255, uklјučeno. Navedite broj 1 da biste vratili broj datoteke u opsegu od 256 do 511.

Napomene

Koristite FreeFile da biste obezbedili broj datoteke koji nije već u upotrebi.

Primer

Napomena: Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

Ovaj primer koristi funkciju FreeFile za vraćanje sledećeg dostupnog broja datoteke. Pet datoteka je otvoreno za izlaz u okviru petlje i neki probni podaci su napisani u svakoj 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

Da li vam je potrebna dodatna pomoć?

Želite još opcija?

Istražite pogodnosti pretplate, pregledajte kurseve za obuku, saznajte kako da obezbedite uređaj i još mnogo toga.

Zajednice vam pomažu da postavljate pitanja i odgovarate na pitanja, dajete povratne informacije i čujete mišljenje od stručnjaka sa bogatim znanjem.