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

Hinweis: Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.

Gibt eine Zahl vom Typ "Long" zurück, mit der die aktuelle Lese-/Schreibposition innerhalb einer geöffneten Datei angegeben wird.

Syntax

Loc( Dateinummer )

Das erforderliche Argument Dateinummer ist eine Dateinummer aus einer beliebigen gültigen ganzen Zahl.

Anmerkungen

Im Folgenden wird der Rückgabewert für jeden Dateizugriffsmodus beschrieben:

Modus

Rückgabewert

Random

Nummer des letzten Datensatzes, der aus der Datei gelesen oder in die Datei geschrieben wurde

Sequential

Aktuelle Byteposition in der Datei, dividiert durch 128. Allerdings werden die durch Loc für sequenzielle Dateien zurückgegebenen Informationen weder verwendet noch benötigt.

Binary

Position des letzten gelesenen oder geschriebenen Bytes

Beispiel

Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

In diesem Beispiel wird die Funktion Loc verwendet, um die aktuelle Lese-/Schreibposition in einer geöffneten Datei zurückzugeben. Dabei wird vorausgesetzt, dass TESTFILE eine Textdatei mit ein paar Zeilen Beispieldaten ist.

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.

Benötigen Sie weitere Hilfe?

Möchten Sie weitere Optionen?

Erkunden Sie die Abonnementvorteile, durchsuchen Sie Trainingskurse, erfahren Sie, wie Sie Ihr Gerät schützen und vieles mehr.

In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören.