Applies ToAccess untuk Microsoft 365 Access 2021 Access 2019 Access 2016

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan Ekspresi Microsoft Jet berjalan dalam mode kotak pasir, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, cari "mode kotak pasir" di Bantuan.

Mengembalikan Bilangan Bulat yang mewakili nomor file berikutnya yang tersedia untuk digunakan oleh pernyataan Buka .

Sintaks

FreeFile[(rangenumber)]

Argumen rangenumber opsional adalah Varian yang menentukan rentang dari mana angka file gratis berikutnya akan dikembalikan. Tentukan 0 (default) untuk mengembalikan nomor file dalam rentang 1 – 255, inklusif. Tentukan 1 untuk mengembalikan nomor file dalam rentang 256 – 511.

Keterangan

Gunakan FreeFile untuk memasukkan nomor file yang belum digunakan.

Contoh

Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.

Contoh ini menggunakan fungsi FreeFile untuk mengembalikan nomor file berikutnya yang tersedia. Lima file dibuka untuk output dalam pengulangan, dan beberapa data sampel ditulis untuk masing-masing file.

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

Perlu bantuan lainnya?

Ingin opsi lainnya?

Jelajahi manfaat langganan, telusuri kursus pelatihan, pelajari cara mengamankan perangkat Anda, dan banyak lagi.

Komunitas membantu Anda bertanya dan menjawab pertanyaan, memberikan umpan balik, dan mendengar dari para ahli yang memiliki pengetahuan yang luas.