Como percorrer as referências para ver as respetivas propriedades no Microsoft Access

  • Artigo
  • Aplica-se a:
    Access for Microsoft 365, Access 2019, Access 2016, Access 2013, Access 2010, Microsoft Office Access 2007, Microsoft Office Access 2003, Microsoft Office Access 2000

Número original da BDC: 209849

Resumo

Quando vê a localização 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-lhe como utilizar um procedimento Visual Basic for Applications para percorrer a coleção Referências e obter as propriedades de cada referência.

A Microsoft fornece exemplos de programação apenas a título informativo, sem qualquer garantia expressa ou implícita, incluindo, sem limitações, as garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que o utilizador está familiarizado com a linguagem de programação demonstrada e as ferramentas utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às suas necessidades específicas.

Mais informações

Para percorrer a coleção Referências e obter as propriedades de cada referência, siga estes passos:

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

    Option Explicit

  2. Escreva 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 esta função, escreva a seguinte linha na janela Imediato e, em seguida, prima ENTER:

    ? ReferenceInfo

    Nota

    Cada referência é listada na janela Imediato.

Referências

Para obter mais informações sobre a coleção Referências, no Visual Basic Revisor, clique em Ajuda do Microsoft Visual Basic no menu Ajuda, escreva objeto de referência no Assistente do Office ou no Assistente de Respostas e, em seguida, clique em Procurar para ver o tópico.

Para obter mais informações sobre a enumeração através da coleção Referências, utilize a opção Para Cada... Na instrução seguinte, no Visual Basic Revisor, clique em Ajuda do Microsoft Visual Basic no menu Ajuda, escreva seguinte no Assistente do Office ou no Assistente de Respostas e, em seguida, clique em Procurar para ver o tópico.