Database relations : TableDefs « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. TableDefs

Database relations

 

Public Sub ShowRelations()
    Dim db        As Database      
    Dim relR        As Relation    

    Set db = CurrentDb()
    For Each relR In db.Relations
        Debug.Print relR.Table & " is related to " & relR.ForeignTable
    Next
End Sub








Related examples in the same category

1.Reference column name from TableDefs
2.Add new property to TableDef
3.List table properties
4.Create a relation
5.Create an index
6.Create new field with validation rule