Save Relationships Layout

This example opens the Relationships Window and saves the layout of the window

'***************** Code Start *******************
'Code by Terry Wickenden

Sub SaveRelate()
   DoCmd.RunCommand acCmdRelationships
   DoCmd.RunCommand acCmdSave
End Sub

'****************** Code End ********************

Return to Example List