Applies ToAccess för Microsoft 365 Access 2021 Access 2019 Access 2016

Obs!: Funktionen, metoden, objektet eller egenskapen som beskrivs i det här avsnittet inaktiveras om Microsoft Jet Expression Service körs i begränsat läge, vilket förhindrar utvärderingen av potentiellt osäkra uttryck. Om du vill ha mer information om begränsat läge söker du efter "begränsat läge" i hjälpen.

Returnerar long som anger den aktuella positionen för läsning/skrivning i en fil som öppnas med hjälp av open-instruktionen.

Syntax

Seek( filumber )

Den obligatoriska filenumberargument är ett heltal som innehåller ett giltigt filnummer.

Kommentarer

Sök returnerar ett värde mellan 1 och 2 147 483 647 (motsvarande 2^31 –1).

Nedan beskrivs returvärdena för varje filåtkomstläge.

Läge

Returvärde

Slumpmässigt

Numret på nästa post läst eller skriven

Binary,Output,Append,Input

Byteposition där nästa åtgärd utförs. Den första byte i en fil är på position 1, den andra byte är på position 2 och så vidare.

Exempel

Obs!: I exemplen nedan visar vi hur du använder den här funktionen i en Visual Basic for Applications-modul (VBA). Om du vill läsa mer om hur man använder VBA, kan du välja Info för utvecklare i listrutan bredvid Sök och sedan skriva en eller flera söktermer i sökrutan.

I det här exemplet används funktionen Sök för att returnera den aktuella filpositionen. I exemplet förutsätts TESTFILE är en fil som innehåller poster av den användardefinierade typen Record.

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

För filer som öppnas i slumpmässigt läge returnerar Sök antalet nästa post.

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.

För filer som öppnas i andra lägen än slumpmässigt läge returnerar Sök bytepositionen där nästa åtgärd utförs. Anta att TESTFILE är en fil som innehåller några rader med text.

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.

Behöver du mer hjälp?

Vill du ha fler alternativ?

Utforska prenumerationsförmåner, bläddra bland utbildningskurser, lär dig hur du skyddar din enhet med mera.

Communities hjälper dig att ställa och svara på frågor, ge feedback och få råd från experter med rika kunskaper.