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 öppen fil.

Syntax

Loc( filenumber )

Den obligatoriska filenumberargument är ett giltigt Heltal filnummer.

Kommentarer

Följande beskriver returvärdet för varje filåtkomstläge:

Läge

Returvärde

Slumpmässigt

Numret på den sista posten som lästs från eller skrivits till filen.

Sekventiella

Aktuell byteposition i filen dividerad med 128. Men information som returneras av Loc för sekventiella filer används varken eller krävs.

Binärt

Positionen för den sista byte som lästs eller skrivits.

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 Loc för att returnera den aktuella positionen för läsning/skrivning i en öppen fil. I det här exemplet förutsätts att TESTFILE är en textfil med några rader med exempeldata.

Dim MyLocation, MyLine' Open file just created.Open "TESTFILE" For Binary As #1' Loop until end of file.Do While MyLocation < LOF(1)        ' Read character into variable.    MyLine = MyLine & Input(1, #1)        ' Get current position within file.    MyLocation = Loc(1)        ' Print to the Immediate window.    Debug.Print MyLine; Tab; MyLocationLoopClose #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.