Applies ToAccess para Microsoft 365 Access 2021 Access 2019 Access 2016

Nota: A função, método, objeto ou propriedade descrita neste tópico está desativada se o Serviço Microsoft Jet Expression estiver em execução no modo sandbox, o que impede a avaliação de expressões potencialmente inseguras. Para obter mais informações sobre o modo sandbox, procure "modo sandbox" na Ajuda.

Devolve um Número Inteiro que representa o número de ficheiro seguinte disponível para utilização pela instrução Open .

Sintaxe

FreeFile[(rangenumber)]

O argumento rangenumber opcional é uma Variante que especifica o intervalo a partir do qual o próximo número de ficheiro gratuito será devolvido. Especifique um 0 (predefinição) para devolver um número de ficheiro no intervalo 1 a 255, inclusive. Especifique um 1 para devolver um número de ficheiro no intervalo 256 – 511.

Observações

Utilize FreeFile para fornecer um número de ficheiro que ainda não esteja a ser utilizado.

Exemplo

Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.

Este exemplo utiliza a função FreeFile para devolver o número de ficheiro disponível seguinte. São abertos cinco ficheiros para saída dentro do ciclo e alguns dados de exemplo são escritos em cada um.

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

Precisa de mais ajuda?

Quer mais opções?

Explore os benefícios da subscrição, navegue em cursos de formação, saiba como proteger o seu dispositivo e muito mais.

As comunidades ajudam-no a colocar e a responder perguntas, a dar feedback e a ouvir especialistas com conhecimentos abrangentes.