Applies ToAccess for Microsoft 365 Access 2021 Access 2019 Access 2016

Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.

Palauttaa pitkän kokonaisluvun, joka määrittää nykyisen luku-/kirjoituskohdan Open-lauseella avatussa tiedostossa.

Syntaksi

Seek( tiedostonumero )

Pakollinen tiedostonumeroargumentti on kokonaisluku, jossa on kelvollinen tiedoston numero.

Huomautuksia

Seek palauttaa arvon väliltä 1–2 147 483 647 (vastaa 2^31 – 1).

Seuraavassa kuvataan kunkin tiedoston käyttötilan palautusarvot.

Tila

Palautusarvo

Satunnainen

Seuraavan luetun tai kirjoitetun tietueen numero

Binaari,Tulos,Liitä,Syöttö

Tavusijainti, jossa seuraava toiminto tapahtuu. Tiedoston ensimmäinen tavu on kohdassa 1, toinen tavu on kohdassa 2 ja niin edelleen.

Esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä Seek-funktion avulla palautetaan tiedoston nykyinen sijainti. Esimerkissä oletetaan, että TESTFILE on tiedosto, joka sisältää käyttäjän määrittämän tyypin Record tietueita.

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

Satunnaistilassa avatuissa tiedostoissa Seek palauttaa seuraavan tietueen numeron.

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.

Muussa kuin satunnaistilassa avatuissa tiedostoissa Seek palauttaa tavusijainnin, jossa seuraava toiminto tapahtuu. Oletetaan, että TESTFILE on muutaman tekstirivin sisältävä tiedosto.

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.

Tarvitsetko lisäohjeita?

Haluatko lisää vaihtoehtoja?

Tutustu tilausetuihin, selaa harjoituskursseja, opi suojaamaan laitteesi ja paljon muuta.

Osallistumalla yhteisöihin voit kysyä kysymyksiä ja vastata niihin, antaa palautetta sekä kuulla lisää asiantuntijoilta, joilla on runsaasti tietoa.