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

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

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

Синтаксис

FileAttr ( номер_файла , возвращаемый_тип )

Функция FileAttr имеет следующие аргументы:

Аргумент

Описание

номер_файла

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

возвращаемый_тип

Обязательный. Целое число. Число, указывающее тип возвращаемых сведений. Укажите значение 1, чтобы вернуть значение, указывающее режим файла. Только в 16-разрядных системах укажите значение 2, чтобы получить дескриптор файла операционной системы. returntype 2 не поддерживается в 32-разрядных системах и вызывает ошибку.

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

Если значение аргумента возвращаемый_типаргумент равно 1, возвращаются следующие значения, обозначающие режим доступа к файлу:

Режим

Значение

Ввод

1

Вывод

2

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

4

Добавление

8

Двоичный

32

Пример

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

В этом примере функция FileAttr используется для возврата режима файла и дескриптора открытого файла. Дескриптор файла возвращается только в 16-разрядных системах; в 32-разрядных системах передача 2 в качестве второго аргумента приводит к ошибке.

Dim FileNum, Mode, HandleFileNum = 1    ' Assign file number.Open "TESTFILE" For Append As FileNum    ' Open file.Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).Handle = FileAttr(FileNum, 2) ' Returns file handle.Close FileNum    ' Close file.

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

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

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

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