Applies ToAccess für Microsoft 365 Access 2021 Access 2019 Access 2016

Hinweis: Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.

Gibt einen Integer-Wert zurück, der die nächste Dateinummer darstellt, die von der Open-Anweisung verwendet werden kann.

Syntax

FreeFile[(Rangenumber)]

Das optionale Argument rangenumber ist ein Variant-Wert, der den Bereich angibt, aus dem die nächste freie Dateinummer zurückgegeben werden soll. Geben Sie 0 (Standard) an, um eine Dateinummer im Bereich 1 bis einschließlich 255 zurückzugeben. Geben Sie eine 1 an, um eine Dateinummer im Bereich 256 – 511 zurückzugeben.

Hinweise

Verwenden Sie FreeFile , um eine Dateinummer anzugeben, die noch nicht verwendet wird.

Beispiel

Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.

In diesem Beispiel wird die FreeFile-Funktion verwendet, um die nächste verfügbare Dateinummer zurückzugeben. Fünf Dateien werden für die Ausgabe innerhalb der Schleife geöffnet, und einige Beispieldaten werden in jede datei geschrieben.

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

Benötigen Sie weitere Hilfe?

Möchten Sie weitere Optionen?

Erkunden Sie die Abonnementvorteile, durchsuchen Sie Trainingskurse, erfahren Sie, wie Sie Ihr Gerät schützen und vieles mehr.

In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören.