Applies ToAccess per Microsoft 365 Access 2021 Access 2019 Access 2016

Nota: La funzione, il metodo, la proprietà o l'oggetto descritto in questo argomento è disabilitato se Microsoft Jet Expression Service è in esecuzione in modalità sandbox, che impedisce la valutazione delle espressioni potenzialmente pericolose. Per altre informazioni sulla modalità sandbox, cercare "modalità sandbox" nella Guida.

Restituisce un valore Integer che rappresenta la numero di file successiva disponibile per l'uso da parte dell'istruzione Open .

Sintassi

FreeFile[(num_intervallo)]

L'argomento intervallo facoltativo num_intervallo è un valore Variant che specifica l'intervallo da cui deve essere restituito il successivo numero di file libero. Specificare uno 0 (impostazione predefinita) per restituire un numero di file compreso tra 1 e 255 inclusi. Specificare 1 per restituire un numero di file nell'intervallo 256-511.

Osservazioni

Usare FreeFile per specificare un numero di file non già in uso.

Esempio

Nota: Gli esempi seguenti illustrano l'uso di questa funzione in un modulo di Visual Basic, Applications Edition (VBA). Per altre informazioni sull'uso di VBA, selezionare Riferimenti per sviluppatori nell'elenco a discesa accanto a Cerca e immettere uno o più termini nella casella di ricerca.

Questo esempio usa la funzione FreeFile per restituire il successivo numero di file disponibile. Cinque file vengono aperti per l'output all'interno del ciclo e alcuni dati di esempio vengono scritti in ognuno.

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

Serve aiuto?

Vuoi altre opzioni?

Esplorare i vantaggi dell'abbonamento e i corsi di formazione, scoprire come proteggere il dispositivo e molto altro ancora.

Le community aiutano a porre e a rispondere alle domande, a fornire feedback e ad ascoltare gli esperti con approfondite conoscenze.