Applies ToAccess til Microsoft 365 Access 2021 Access 2019 Access 2016

Bemærk!: Funktionen, metoden, objektet eller egenskaben, der er beskrevet i dette emne, deaktiveres, hvis Microsoft Jet Expression Service kører i sandkassetilstand, hvilket forhindrer evalueringen af potentielt usikre udtryk. Søg efter "sandkassetilstand" i Hjælp, hvis du vil have mere at vide om sandkassetilstand.

Returnerer en Lang, der angiver den aktuelle læse-/skriveposition i en åben fil.

Syntaks

Loc( filnummer )

Den påkrævede argument filnummer er et gyldigt Heltal filnummer.

Bemærkninger

I følgende beskrives returværdien for hver filadgangstilstand:

Tilstand,

Returværdi

Tilfældig

Nummeret på den sidste post, der er læst fra eller skrevet til filen.

Sekventiel

Nuværende byteposition i filen divideret med 128. Men oplysninger, der returneres af Loc for sekventielle filer, bruges eller kræves ikke.

Binær

Positionen af den sidste byte læst eller skrevet.

Eksempel

Bemærk!: Følgende eksempler demonstrerer brugen af denne funktion i et VBA-modul (Visual Basic for Applications). Hvis du vil have mere at vide om at arbejde med VBA, skal du vælge Udviklerreference på rullelisten ud for Søg og skrive ét eller flere ord i søgefeltet.

I dette eksempel bruges funktionen Loc til at returnere den aktuelle læse-/skriveposition i en åben fil. I dette eksempel antages det, at TESTFILE er en tekstfil med nogle få linjer med eksempeldata.

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.

Har du brug for mere hjælp?

Vil du have flere indstillinger?

Udforsk abonnementsfordele, gennemse kurser, få mere at vide om, hvordan du sikrer din enhed og meget mere.

Communities hjælper dig med at stille og besvare spørgsmål, give feedback og høre fra eksperter med omfattende viden.