Jak procházet odkazy a zobrazit jejich vlastnosti v Aplikaci Microsoft Access

Původní číslo KB: 209849

Souhrn

Při zobrazení umístění odkazů pomocí dialogového okna Odkazy v nabídce Nástroje může být koncová část názvu cesty zkrácena kvůli omezením dialogového okna. V tomto článku se dozvíte, jak použít proceduru jazyka Visual Basic for Applications k procházení kolekce Odkazy a načtení vlastností jednotlivých odkazů.

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.

Další informace

Pokud chcete procházet kolekci Reference a načíst vlastnosti jednotlivých odkazů, postupujte takto:

1. Vytvořte modul a zadejte následující řádek do oddílu Deklarace , pokud tam ještě není:

   Option Explicit
   

2. Zadejte následující postup:

   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. Chcete-li otestovat tuto funkci, zadejte následující řádek v okně Immediate a stiskněte klávesu ENTER:

   ? ReferenceInfo
   

   Poznámka

   Každý odkaz je uveden v okně Okamžité.

Odkazy

Další informace o kolekci Odkazy získáte v Editor jazyka Visual Basic kliknutím na příkaz Nápověda pro Microsoft Visual Basic v nabídce Nápověda, zadejte objekt odkazu v Pomocníkovi Office nebo v Průvodci odpověďmi a potom kliknutím na tlačítko Hledat zobrazte téma.

Další informace o výčtu prostřednictvím kolekce Odkazy pomocí funkce For Each... Další příkaz v Editor Jazyka Visual Basic v nabídce Nápověda klikněte na Nápověda pro Microsoft Visual Basic, v Pomocníkovi Office nebo v Průvodci odpověďmi zadejte další a potom klikněte na Hledat, aby se zobrazilo téma.