I tried creating a means for a user to look at the database relationships using

Private Sub cmdShowRelationships_Click()
DoCmd.RunCommand acCmdShowAllRelationships
End Sub

I get runtime error 2046: "The command or action ShowAllRelationships isn't available now."

I'd appreciate tips on how to make it possible to open relationships from a command button.

Relationship menu commands only work when in the relationships window so you have to open that first if it isn't:
---------------------------------------------------
  DoCmd.RunCommand acCmdRelationships
  DoCmd.RunCommand acCmdShowAllRelationships
---------------------------------------------------

Hopefully this will eliminate the error.
-AL