Applies ToAccess של Microsoft 365 Access 2021 Access 2019 Access 2016

הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול (Sandbox) שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש את "מצב ארגז חול" בעזרה.

החזרת מספר שלם המייצג את מספר קובץ הבא הזמין לשימוש במשפט Open .

תחביר

FreeFile[(rangenumber)]

הארגומנט האופציונלי rangenumber הוא משתנה המציין את הטווח ממנו יוחזר מספר הקובץ הפנוי הבא. ציין 0 (ברירת מחדל) להחזרת מספר קובץ בטווח 1 עד 255, כולל. ציין 1 כדי להחזיר מספר קובץ בטווח 256 - 511.

הערות

השתמש ב- FreeFile כדי לספק מספר קובץ שאינו נמצא כבר בשימוש.

דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

דוגמה זו משתמשת בפונקציה FreeFile כדי להחזיר את מספר הקובץ הזמין הבא. חמישה קבצים נפתחים לפלט בתוך הלולאה, ונתונים לדוגמה מסוימים נכתבים לכל אחד מהם.

Dim MyIndex, FileNumberFor MyIndex = 1 To 5    ' Loop 5 times.    ' Get unused file number.    FileNumber = FreeFile    ' Create file name.    Open "TEST" & MyIndex For Output As #FileNumber    ' Output text.    Write #FileNumber, "This is a sample."    ' Close file.    Close #FileNumberNext MyIndex

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

גלה את יתרונות המנוי, עיין בקורסי הדרכה, למד כיצד לאבטח את המכשיר שלך ועוד.

קהילות עוזרות לך לשאול שאלות ולהשיב עליהן, לתת משוב ולשמוע ממומחים בעלי ידע עשיר.