Save Relationships Layout
acCmdRelationships, acCmdSave
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 ********************