כיצד לעבור בין ההפניות בלולאה כדי להציג את המאפיינים שלהן ב- Microsoft Access

  • מאמר
  • חל על:
    Access for Microsoft 365, Access 2019, Access 2016, Access 2013, Access 2010, Microsoft Office Access 2007, Microsoft Office Access 2003, Microsoft Office Access 2000

מספר KB מקורי: 209849

סיכום

בעת הצגת מיקום ההפניות עם תיבת הדו-שיח הפניות בתפריט כלים, ייתכן שה חלק נגרר של שם הנתיב ייחתך עקב המגבלות של תיבת הדו-שיח. מאמר זה מראה לך כיצד להשתמש בהליך של Visual Basic for Applications כדי לעבור בלולאה באוסף הפניות ולאחזר את המאפיינים של כל הפניה.

מיקרוסופט מספקת דוגמאות תכנות להמחשה בלבד, מבלי שהאחריות מתבטאת או משתמעת. זה כולל, אך אינו מוגבל, לאחריות המשתמעת של סחירות או כושרו למטרה מסוימת. מאמר זה נכתב בהנחה שאתם מכירים את שפת התכנות המודגמת ואת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של פרוצדורה מסוימת, אך הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או לבנות פרוצדורות שיענו על צרכיך הספציפיים.

מידע נוסף

כדי לעבור בלולאה באוסף הפניות ולאחזר את המאפיינים של כל הפניה, בצע שלבים אלה:

  1. צור מודול והקלד את השורה הבאה במקטע הצהרות אם הוא עדיין לא נמצא שם:

    Option Explicit

  2. הקלד את ההליך הבא:

    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. כדי לבדוק פונקציה זו, הקלד את השורה הבאה בחלון Immediate ולאחר מכן הקש ENTER:

    ? ReferenceInfo

    הערה

    כל הפניה מופיעה בחלון Immediate.

הפניות

לקבלת מידע נוסף אודות האוסף 'הפניות', ב- Visual Basic עורך, לחץ על עזרה של Microsoft Visual Basic בתפריט עזרה, הקלד אובייקט הפניה במסייע של Office או באשף התשובות ולאחר מכן לחץ על חיפוש כדי להציג את הנושא.

לקבלת מידע נוסף אודות ספירת ההפניות באוסף באמצעות האפשרות עבור כל... המשפט הבא, בתפריט Visual Basic עורך, לחץ על עזרה של Microsoft Visual Basic בתפריט עזרה, הקלד הבא במסייע של Office או באשף התשובות ולאחר מכן לחץ על חיפוש כדי להציג את הנושא.