Applies ToAccess for Microsoft 365 Access 2021 Access 2019 Access 2016

Obs!: Funksjonen, metoden, objektet eller egenskapen som beskrives i dette emnet, er deaktivert hvis Microsoft Jet Expression Service kjører i sandkassemodus, noe som forhindrer evaluering av potensielt usikre uttrykk. Hvis du vil ha mer informasjon om sandkassemodus, kan du søke etter «sandkassemodus» i Hjelp.

Returnerer en lang verdi som angir gjeldende lese-/skriveposisjon i en fil som er åpnet ved hjelp av Open-setningen .

Syntaks

Seek( filenumber )

Den nødvendige filenumber -argument er et heltall som inneholder en gyldig filnummer.

Merknader

Søk returnerer en verdi mellom 1 og 2 147 483 647 (tilsvarende 2^31 – 1), inkludert.

Følgende beskriver returverdiene for hver filtilgangsmodus.

Modus,

Returverdi

Tilfeldig

Antallet av den neste posten som leses eller skrives

Binær,Utdata,Tilføy,Inndata

Byteposisjon der neste operasjon finner sted. Den første byten i en fil er på posisjon 1, den andre byten er i posisjon 2 og så videre.

Eksempel

Obs!: I eksemplene nedenfor vises bruken av denne funksjonen i en VBA-modul (Visual Basic for Applications). Hvis du vil ha mer informasjon om hvordan du arbeider med VBA, velger du Utviklerreferanse fra rullegardinlisten ved siden av Søk og skriver inn ett eller flere søkeord i søkeboksen.

Dette eksemplet bruker Søk-funksjonen til å returnere gjeldende filplassering. Eksemplet forutsetter at TESTFILE er en fil som inneholder poster av den brukerdefinerte typen Record.

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

Søk returnerer antallet neste poster for filer som er åpnet i tilfeldig modus.

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.

For filer som er åpnet i andre moduser enn tilfeldig modus, returnerer Søk byteposisjonen der neste operasjon finner sted. Anta TESTFILE er en fil som inneholder noen få linjer med tekst.

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.

Trenger du mer hjelp?

Vil du ha flere alternativer?

Utforsk abonnementsfordeler, bla gjennom opplæringskurs, finn ut hvordan du sikrer enheten og mer.

Fellesskap hjelper deg med å stille og svare på spørsmål, gi tilbakemelding og høre fra eksperter med stor kunnskap.