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

  • Okumak için 2 dakika
  • Şunlara uygulanır:
    Access for Office 365, Access 2019, Access 2016, Access 2013, Access 2010, Microsoft Office Access 2007, Microsoft Office Access 2003, Microsoft Office Access 2000

Not

Office 365 ProPlus, Microsoft 365 Kurumsal Uygulamaları olarak yeniden adlandırılıyor. Bu değişiklik hakkında daha fazla bilgi için, bu blog yazısını okuyun.

Özgün KB numarası:   209849

Özet

Başvurular iletişim kutusuyla birlikte başvuruların konumunu Araçlar menüsünde 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 dolaşmak ve her başvurunun özelliklerini almak için 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 derlemesinde döngü yapmak ve her başvurunun özelliklerini almak için şu adımları izleyin:

  1. Modül oluşturun ve henüz yoksa tanımlamalar 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 sınamak için, hemen penceresinde aşağıdaki satırı yazın ve ENTER tuşuna basın:

    ? ReferenceInfo

    Not

    Her başvuru hemen penceresinde listelenir.

Başvurular

Başvurular koleksiyonu hakkında daha fazla bilgi için, Visual Basic Düzenleyicisi 'nde, 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 sonra da ara 'ya tıklayarak konuyu görüntüleyin.

Başvurular koleksiyonunu her biri Için kullanarak numaralandırma hakkında daha fazla bilgi için... Sonraki bildirim, Visual Basic Düzenleyicisi 'nde, Yardım menüsünde Microsoft Visual Basic Yardımı 'Na tıklayın, Office Yardımcısı 'na veya Yanıt Sihirbazı 'na tıklayın ve sonra da Ara 'ya tıklayarak konuyu görüntüleyin.