Como fazer loop através das referências para exibir suas propriedades no Microsoft Access

Número de KB original: 209849

Resumo

Ao exibir o local das referências com a caixa de diálogo Referências no menu Ferramentas, a parte à direita do nome do caminho pode ser truncada devido às limitações da caixa de diálogo. Este artigo mostra como usar um procedimento Visual Basic for Applications para fazer loop pela coleção References e recuperar as propriedades de cada referência.

A Microsoft oferece exemplos de programação somente para ilustração, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a, as garantias implícitas de qualidade comercial ou conformidade para uma determinada finalidade. Este artigo supõe que você conhece a linguagem de programação que está sendo demonstrada e as ferramentas usadas nos processos de criação e depuração. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.

Mais informações

Para fazer loop pela coleção Referências e recuperar as propriedades de cada referência, siga estas etapas:

1. Crie um módulo e digite a seguinte linha na seção Declarações se ela ainda não estiver lá:

   Option Explicit
   

2. Digite o seguinte procedimento:

   Function ReferenceInfo()
   
       Dim strMessage  As String
       Dim strTitle    As String
       Dim refItem     As Reference
   
       On Error Resume Next
   
       For Each refItem In References
           If refItem.IsBroken Then
               strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
           Else
               strMessage = "Reference: " & refItem.Name & vbCrLf _
                          & "Location: " & refItem.FullPath & vbCrLf
           End If
           Debug.Print strMessage
       Next refItem
   
   End Function
   

3. Para testar essa função, digite a seguinte linha na janela Imediato e pressione ENTER:

   ? ReferenceInfo
   

   Observação

   Cada referência é listada na janela Imediata.

Referências

Para obter mais informações sobre a coleção Referências, no Visual Basic Editor, clique em Ajuda do Microsoft Visual Basic no menu Ajuda, digite objeto de referência no Assistente do Office ou no Assistente de Resposta e clique em Pesquisar para exibir o tópico.

Para obter mais informações sobre como enumerar por meio da coleção Referências usando o For Each... Na próxima instrução, no Visual Basic Editor, clique em Ajuda do Microsoft Visual Basic no menu Ajuda, digite a seguir no Assistente do Office ou no Assistente de Resposta e clique em Pesquisar para exibir o tópico.