Applies ToAccess para Microsoft 365 Access 2024 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 contém o valor booleanoVerdadeiro quando o fim de um ficheiro aberto para EntradaAleatória ou Sequencial foi atingido.

Sintaxe

EOF( número de ficheiro )

O número de ficheiro necessárioargumento é um Número Inteiro que contém qualquer número de ficheiro válido.

Observações

Utilize o EOF para evitar o erro gerado ao tentar obter entradas para além do fim de um ficheiro.

A função EOF devolve Falso até o fim do ficheiro ser atingido. Com os ficheiros abertos para acesso Aleatório ou Binário , o EOF devolve Falso até que a última instrução Get executada não consiga ler um registo inteiro.

Com os ficheiros abertos para acesso binário , uma tentativa de ler o ficheiro através da função Entrada até o EOF devolver Verdadeiro gera um erro. Utilize as funções LOF e Loc em vez de EOF ao ler ficheiros binários com Entrada ou utilize Obter ao utilizar a função EOF . Com os ficheiros abertos para Saída, o EOF devolve sempre Verdadeiro.

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 EOF para detetar o fim de um ficheiro. Este exemplo pressupõe que MYFILE é um ficheiro de texto com algumas linhas de texto.

Dim InputData' Open file for input.Open "MYFILE" For Input As #1' Check for end of file.Do While Not EOF(1)    ' Read line of data.    Line Input #1, InputData      ' Print to the Immediate window.      Debug.Print InputData    Loop' Close file.Close #1    

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.