Printing list of table relationships

[hambo12]

I am trying to find the table relationships for a rather complex access database.

I open it up, and can view the table relationships in diagram form. It is a huge mess of tables and relationships. I dont want to go through and move each table to print it in diagram form.

So can I print a test list of table relationships for easy reference??

 

[genomon]

Have you tried Tools|Analyze|Documenter|Current Database|Relationships?

Cogito eggo sum – I think, therefore I am a waffle.

 

[MajP]

Public Function fncDocumentRelations() As String
  Dim strDocument As String
  Dim rel As DAO.Relation
  Dim fld As DAO.Field
  Dim idx As DAO.Index
  Dim prop As DAO.Property
  For Each rel In CurrentDb.Relations
      strDocument = strDocument & vbCrLf & "Name: " & rel.Name & vbCrLf
      strDocument = strDocument & "  " & "Table: " & rel.Table & vbCrLf
      strDocument = strDocument & "  " & "Foreign Table: " & rel.ForeignTable & vbCrLf
      For Each fld In rel.Fields
        strDocument = strDocument & "  PK: " & fld.Name & "   FK:" & fld.ForeignName
        strDocument = strDocument & vbCrLf
      Next fld
  Next rel
  fncDocumentRelations = strDocument
  
End Function

run this and it will return something like this for each relation:

Name: tblRequirementstblProposedRequirement
Table: tblRequirements
Foreign Table: tblProposedRequirement
PK: strNewSR_Number FK:strParentSRNumber