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 Valor Longo especificando a posição de leitura/escrita atual num ficheiro aberto.

Sintaxe

Loc( filenumber )

O número de ficheiro necessárioargumento é qualquer número inteiro válido número de ficheiro.

Observações

O seguinte descreve o valor devolvido para cada modo de acesso a ficheiros:

Moda

Valor Devolvido

Aleatório

Número do último registo lido ou escrito no ficheiro.

Sequencial

Posição de byte atual no ficheiro dividido por 128. No entanto, as informações devolvidas pelo Loc para ficheiros sequenciais não são utilizadas nem necessárias.

Binário

Posição do último byte lido ou escrito.

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 Loc para devolver a posição de leitura/escrita atual num ficheiro aberto. Este exemplo pressupõe que TESTFILE é um ficheiro de texto com algumas linhas de dados de exemplo.

Dim MyLocation, MyLine' Open file just created.Open "TESTFILE" For Binary As #1' Loop until end of file.Do While MyLocation < LOF(1)        ' Read character into variable.    MyLine = MyLine & Input(1, #1)        ' Get current position within file.    MyLocation = Loc(1)        ' Print to the Immediate window.    Debug.Print MyLine; Tab; MyLocationLoopClose #1    ' Close file.

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.