Applies ToMicrosoft 365 için Access Access 2021 Access 2019 Access 2016

Not: Microsoft Jet İfade Hizmeti korumalı alan modunda çalışıyorsa, bu konuda açıklanan işlev, yöntem, nesne veya özellik devre dışı bırakılır ve bu da güvenli olabilecek ifadelerin değerlendirilmesini engeller. Korumalı alan modu hakkında daha fazla bilgi için Yardım'da "korumalı alan modu" araması yapın.

Open deyimi tarafından kullanılabilen sonraki dosya numarası temsil eden bir Tamsayı döndürür.

Söz dizimi

FreeFile[(rangenumber)]

İsteğe bağlı aralıksayısı bağımsız değişkeni, bir sonraki boş dosya numarasının döndürülacağı aralığı belirten bir Değişkendir. 1 – 255 aralığında (dahil) bir dosya numarası döndürmek için 0 (varsayılan) belirtin. 256 – 511 aralığında bir dosya numarası döndürmek için 1 belirtin.

Açıklamalar

Henüz kullanımda olmayan bir dosya numarası sağlamak için FreeFile kullanın.

Örnek

Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.

Bu örnek, bir sonraki kullanılabilir dosya numarasını döndürmek için FreeFile işlevini kullanır. Döngü içinde çıkış için beş dosya açılır ve her birine bazı örnek veriler yazılır.

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

Daha fazla yardıma mı ihtiyacınız var?

Daha fazla seçenek mi istiyorsunuz?

Abonelik avantajlarını keşfedin, eğitim kurslarına göz atın, cihazınızın güvenliğini nasıl sağlayacağınızı öğrenin ve daha fazlasını yapın.

Topluluklar, soru sormanıza ve soruları yanıtlamanıza, geri bildirimde bulunmanıza ve zengin bilgiye sahip uzmanlardan bilgi almanıza yardımcı olur.