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

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.