Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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