Private Sub StoreViewPKs()



    Dim TD As TableDef

    Dim idx As index

    Dim FD As Field

    Dim RS As Recordset

    Dim S As String



    ' DB is a global Database object, set to CurrentDB

    DB.Execute "Delete * From t_LinkedViewPK"

    Set RS = DB.OpenRecordset("t_LinkedViewPK")



    For Each TD In DB.TableDefs

        If TD.Name Like "v_*" Then

            ' Views must have exactly one index. If not: panic!

            If TD.Indexes.Count <> 1 Then

                MsgBox "View " & TD.Name & " has " & TD.Indexes.Count & " Indizes.", vbCritical

                Stop

            End If



            Set idx = TD.Indexes(0)

            ' Build field list (the index may contain multiple fields)

            S = ""

            For Each FD In idx.Fields

                If S <> "" Then S = S & ", "

                S = S & FD.Name

            Next FD



            RS.AddNew

            RS!ViewName = TD.Name

            RS!IndexFields = S

            RS.Update

        End If

    Next TD



    RS.Close



End Sub