Applies ToAccess za Microsoft 365 Access 2024 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 sadrži Bulov vrednost True kada se dostigne kraj datoteke otvorene za Nasumični ili sekvencijalni unos.

Sintaksa

EOF(broj datoteke )

Potrebni broj datotekeargument je ceo broj koji sadrži bilo koju važeću broj datoteke.

Napomene

Koristite EOF da biste izbegli grešku generisanu tako što ćete pokušati da umetnete nešto posle kraja datoteke.

Funkcija EOF vraća vrednost Netačno dok se ne dođe do kraja datoteke. Kada su datoteke otvorene za nasumični ili binarni pristup, EOF vraća vrednost " False " sve dok poslednji izvršeni izraz " Get " ne bude mogao da pročita ceo zapis.

Kada su datoteke otvorene za binarni pristup, pokušaj čitanja datoteke pomoću funkcije unosa dok EOF ne vrati vrednost True generiše grešku. Koristite funkcije LOF i Loc umesto EOF prilikom čitanja binarnih datoteka sa unosom ili koristite funkciju Get prilikom korišćenja funkcije EOF. Kada su datoteke otvorene za izlaz, EOF uvek vraća vrednost "Tačno".

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 EOF za otkrivanje kraja datoteke. Ovaj primer pretpostavlja MYFILE predstavlja tekstualnu datoteku sa nekoliko redova teksta.

Dim InputData' Open file for input.Open "MYFILE" For Input As #1' Check for end of file.Do While Not EOF(1)    ' Read line of data.    Line Input #1, InputData      ' Print to the Immediate window.      Debug.Print InputData    Loop' Close file.Close #1    

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.