Applies ToAccess pentru Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013

Notă: Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.

Returnează o valoare Lung reprezentând modul de fișier pentru fișierele deschise utilizând instrucțiunea Deschidere .

Sintaxă

FileAttr ( număr fișier , tip return)

Sintaxa funcției FileAttr are următoarele argumente:

Argument

Descriere

număr fișier

Obligatoriu. Întreg. Orice număr fișier valid .

tip returnare

Obligatoriu. Număr întreg. Număr care indică tipul de informații de returnat. Specificați 1 pentru a returna o valoare care indică modul fișier. Doar pe sistemele pe 16 biți, specificați 2 pentru a regăsi un handle de fișier al sistemului de operare. returntype 2 nu este acceptat în sistemele pe 32 de biți și provoacă o eroare.

Valori returnate

Atunci cândargumenttip returnat este 1, următoarele valori returnate indică modul de acces la fișier:

Mod

Valoare

Intrare

1

Rezultat

2

Aleator

4

Adăugare

8

Binar

32

Exemplu

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția FileAttr pentru a returna modul de fișier și handle-ul de fișier al unui fișier deschis. Handle-ul de fișier este returnat doar pe sisteme pe 16 biți; pe sistemele pe 32 de biți, trecerea lui 2 ca argument secundar generează o eroare.

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.

Aveți nevoie de ajutor suplimentar?

Doriți mai multe opțiuni?

Explorați avantajele abonamentului, navigați prin cursurile de instruire, aflați cum să vă securizați dispozitivul și multe altele.

Comunitățile vă ajută să adresați întrebări și să răspundeți la întrebări, să oferiți feedback și să primiți feedback de la experți cu cunoștințe bogate.