Applies ToAccess для Microsoft 365 Access 2021 Access 2019 Access 2016

Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

Возвращает значение типа Long, представляющее текущую позицию чтения и записи в открытом файле.

Синтаксис

Loc( номер_файла )

Обязательный аргумент номер_файлааргумент представляет собой любой допустимый номер файла типа Integer.

Примечания

В следующей таблице приведены значения, возвращаемые для каждого из режимов доступа к файлу.

Режим

Возвращаемое значение

Произвольный

Номер последней записи, считанной из файла или записанной в него.

Последовательный

Текущая позиция в байтах в файле, деленная на 128. Значения, возвращаемые функцией Loc для последовательных файлов, не требуются и не используются.

Двоичный

Позиция последнего считанного или записанного байта.

Пример

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В этом примере функцией Loc возвращается текущая позиция чтения и записи в открытом файле. Предполагается, что TESTFILE представляет собой текстовый файл с несколькими строками данных.

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.

Нужна дополнительная помощь?

Нужны дополнительные параметры?

Изучите преимущества подписки, просмотрите учебные курсы, узнайте, как защитить свое устройство и т. д.

В сообществах можно задавать вопросы и отвечать на них, отправлять отзывы и консультироваться с экспертами разных профилей.