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 dugu vrijednost koja određuje trenutni položaj čitanja/pisanja unutar datoteke otvorene pomoću naredbe Otvori.

Sintaksa

Seek( broj datoteke )

Potrebni brojdatotekaargument cijeli broj koji sadrži valjani broj broj datoteke.

Napomene

Funkcija Seek vraća vrijednost između 1 i 2 147 483 647 (što odgovara 2^31 – 1), uključujući obje vrijednosti.

U nastavku su opisane povratne vrijednosti za svaki način pristupa datotekama.

Mod

Vraćena vrijednost

Slučajno

Broj sljedećeg zapisa koji je pročitano ili napisano

Binarni,Izlazni,Dodaj,Unos

Položaj bajta na kojem se odvija sljedeća operacija. Prvi bajt u datoteci nalazi se na položaju 1, drugi bajt je na 2. mjestu i tako dalje.

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 funkcija Seek koristi za vraćanje trenutnog položaja datoteke. U primjeru se TESTFILE je datoteka koja sadrži zapise korisnički definirane vrste Record.

Type Record    ' Define user-defined type.    ID As Integer    Name As String * 20End Type

Za datoteke otvorene u nasumičnom načinu , Seek vraća broj sljedećeg zapisa.

Dim MyRecord As Record    ' Declare variable.Open "TESTFILE" For Random As #1 Len = Len(MyRecord)Do While Not EOF(1)    ' Loop until end of file.    Get #1, , MyRecord    ' Read next record.    ' Print record number to the Immediate window.    Debug.Print Seek(1)    LoopClose #1    ' Close file.

Za datoteke otvorene u načinima rada koji nisu Slučajni način rada, Seek vraća položaj bajta na kojem se odvija sljedeća operacija. Pretpostavimo TESTFILE je datoteka koja sadrži nekoliko redaka teksta.

Dim MyCharOpen "TESTFILE" For Input As #1 ' Open file for reading.Do While Not EOF(1) ' Loop until end of file.    MyChar = Input(1, #1) ' Read next character of data.    ' Print byte position to the Immediate window.     Debug.Print Seek(1) LoopClose #1    ' Close file.

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.