Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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