VBA to check referential integrity?

Topic

New Reply

How would I check referential integrity using VBA?

I have a massive number of tables and relationships in this database and need to check that referential integrity is turned on for each relationship.

Checking this stuff manually in the relationship window would be a nightmare.

Thanks in advance.

Reply | Quote

Replies

Hi Stephan,

Try this code:

Function PrintRelationships()
    Dim dbs As DAO.Database
    Dim rln As DAO.Relation
        
    Set dbs = CurrentDb()
    For Each rln In dbs.Relations
        Debug.Print "Name: " & rln.Name & vbCrLf _
        & "Table: " & rln.Table & vbCrLf _
        & "Foreign Table: " & rln.ForeignTable & vbCrLf _
        & "Attributes: " & rln.Attributes & vbCrLf
    Next 'rln
End Function

You’ll have to look in the object browser (DAO.RelationAttributeEnum) for the definitions of the Long codes. You can also consult the Access helpfile under Relationship Attributes.

HTH

Reply | Quote