Så här går du igenom referenserna för att visa deras egenskaper i Microsoft Access

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Ursprungligt KB-nummer:   209849

Sammanfattning

När du visar platsen för referenser med dialogrutan Referenser på Verktyg-menyn kan den avslutande delen av sökvägens namn kortas av på grund av dialogrutans begränsningar. Den här artikeln visar hur du använder en Visual Basic for Applications procedur för att stega igenom samlingen References och hämta egenskaperna för varje referens.

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov.

Mer information

Om du vill gå igenom samlingen References och hämta egenskaperna för varje referens gör du så här:

  1. Skapa en modul och skriv in följande rad i avsnittet Deklarationer om den inte redan finns där:

    Option Explicit
    
  2. Skriv in följande procedur:

    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. Om du vill testa den här funktionen skriver du följande rad i direktfönstret och trycker sedan på RETUR:

    ? ReferenceInfo
    

    Anteckning

    Varje referens visas i direktfönstret.

Referenser

Om du vill ha mer information om samlingen References går du till Visual Basic Editor och klickar på Microsoft Visual Basic-hjälpen på Hjälp-menyn, skriver referensobjekt i Office-assistenten eller Svarsguiden och klickar sedan på Sök för att visa avsnittet.

Mer information om hur du räknar upp via samlingen References med hjälp av fliken För varje ... Nästa programsats i Visual Basic Editor klickar du på Microsoft Visual Basic-hjälpen på Hjälp-menyn, skriver nästa i Office-assistenten eller Svarsguiden och klickar sedan på Sök för att visa avsnittet.