Come scorrere i riferimenti per visualizzarne le proprietà in Microsoft Access

  • Articolo
  • Si applica 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

Numero KB originale: 209849

Riepilogo

Quando si visualizza la posizione dei riferimenti con la finestra di dialogo Riferimenti del menu Strumenti, la parte finale del nome del percorso può essere troncata a causa delle limitazioni della finestra di dialogo. Questo articolo illustra come usare una routine Visual Basic, Applications Edition per scorrere l'insieme References e recuperare le proprietà di ogni riferimento.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare routine, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare routine atte a soddisfare specifiche esigenze.

Ulteriori informazioni

Per scorrere l'insieme References e recuperare le proprietà di ogni riferimento, seguire questa procedura:

  1. Creare un modulo e digitare la riga seguente nella sezione Dichiarazioni se non è già presente:

    Option Explicit

  2. Digitare la procedura seguente:

    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. Per testare questa funzione, digitare la riga seguente nella finestra Immediata e quindi premere INVIO:

    ? ReferenceInfo

    Nota

    Ogni riferimento è elencato nella finestra Immediata.

Riferimenti

Per altre informazioni sull'insieme References, nel Editor di Visual Basic fare clic su Guida di Microsoft Visual Basic nel menu ?, digitare l'oggetto riferimento nell'Assistente di Office o nella Ricerca guidata e quindi fare clic su Cerca per visualizzare l'argomento.

Per altre informazioni sull'enumerazione tramite l'insieme References tramite For Each... Istruzione successiva, nella Editor di Visual Basic, fare clic su Guida di Microsoft Visual Basic nel menu ?, digitare avanti nell'Assistente di Office o nella Creazione guidata risposte e quindi fare clic su Cerca per visualizzare l'argomento.