Microsoft Access'te özelliklerini görüntülemek için başvurular arasında döngü oluşturma

  • Makale
  • Şunlara uygulanır:
    Access for Microsoft 365, Access 2019, Access 2016, Access 2013, Access 2010, Microsoft Office Access 2007, Microsoft Office Access 2003, Microsoft Office Access 2000

Özgün KB numarası: 209849

Özet

Araçlar menüsünde Başvurular iletişim kutusuyla başvuruların konumunu görüntülediğinizde, iletişim kutusunun sınırlamaları nedeniyle yol adının sondaki bölümü kesilebilir. Bu makalede, Başvurular koleksiyonunda döngü yapmak ve her başvurunun özelliklerini almak için bir Visual Basic for Applications yordamının nasıl kullanılacağı gösterilmektedir.

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna zımni garantiler, satılabilirlik veya belirli bir amaca uygunluk da dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Daha fazla bilgi

References koleksiyonunda döngü yapmak ve her başvurunun özelliklerini almak için şu adımları izleyin:

  1. Henüz orada değilse bir modül oluşturun ve Bildirimler bölümüne aşağıdaki satırı yazın:

    Option Explicit

  2. Aşağıdaki yordamı yazın:

    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. Bu işlevi test etmek için, Anlık penceresine aşağıdaki satırı yazın ve ENTER tuşuna basın:

    ? ReferenceInfo

    Not

    Her başvuru Anında penceresinde listelenir.

Başvurular

Başvurular koleksiyonu hakkında daha fazla bilgi için, Visual Basic Düzenleyici Yardım menüsünde Microsoft Visual Basic Yardımı'na tıklayın, Office Yardımcısı'na veya Yanıt Sihirbazı'na başvuru nesnesi yazın ve ardından konuyu görüntülemek için Ara'ya tıklayın.

For Each... komutunu kullanarak References koleksiyonunda numaralandırma hakkında daha fazla bilgi için... Sonraki deyim, Visual Basic Düzenleyici Yardım menüsünde Microsoft Visual Basic Yardımı'na tıklayın, Office Yardımcısı'na veya Yanıt Sihirbazı'na bir sonraki yazın ve ardından konuyu görüntülemek için Ara'ya tıklayın.