Copying relationships window from one db to the next

[Tom van Stiphout]

I have written some code to export all objects to text files, and to
import those files back into a new database. Hopefully this will
eliminate some forms of corruption.
The icing on the cake would be to copy the relationships window as
well.
So far, I was trying this code below, but it doesn't work. First off,
I'm surprised that on several MDBs the count of objects is 2. I was
expecting 1 because an MDB can have only 1 relationship window. I can
live with that. But the SaveAsText line fails with error 2001 - You
canceled the previous operation. Bogus, of course, but there you have
it.
Any suggestions on how to copy the relationships window? Some MSysXxx
tables perhaps?

Set cnt = db.Containers("Relationships")
For Each doc In cnt.Documents
appData.SaveAsText acDiagram, doc.Name, cnt.Name & "_" &
doc.Name & ".txt"
Next doc

PS: I am not talking about copying the relationships between the
tables. I got that covered. I'm only talking about the Relationships
window, where my tables may be laid out in a nice format.

-Tom.

[pietlinden]

<putting on "I know what I'm doing mask"... or should I preface this
with "Pay no attention to the man behind the curtain..."?)

You might have a look at MichKa's app that does that for v9. You could
send him a note and see what he knows or if he's done a version for
v10/XP.

[Allen Browne]

Tom, take a look at what Stephen Lebans has done here:
http://www.lebans.com/saverelationshipview.htm

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Tom van Stiphout" <no*************@cox.net> wrote in message
news:68********************************@4ax.com...

I have written some code to export all objects to text files, and to
import those files back into a new database. Hopefully this will
eliminate some forms of corruption.
The icing on the cake would be to copy the relationships window as
well.
So far, I was trying this code below, but it doesn't work. First off,
I'm surprised that on several MDBs the count of objects is 2. I was
expecting 1 because an MDB can have only 1 relationship window. I can
live with that. But the SaveAsText line fails with error 2001 - You
canceled the previous operation. Bogus, of course, but there you have
it.
Any suggestions on how to copy the relationships window? Some MSysXxx
tables perhaps?

Set cnt = db.Containers("Relationships")
For Each doc In cnt.Documents
appData.SaveAsText acDiagram, doc.Name, cnt.Name & "_" &
doc.Name & ".txt"
Next doc

PS: I am not talking about copying the relationships between the
tables. I got that covered. I'm only talking about the Relationships
window, where my tables may be laid out in a nice format.

[Tom van Stiphout]

On Thu, 17 Mar 2005 19:57:45 +0800, "Allen Browne"
<Al*********@SeeSig.Invalid> wrote:

Looks very promising. Thanks for the link.
-Tom.

Tom, take a look at what Stephen Lebans has done here:
http://www.lebans.com/saverelationshipview.htm