CreateRelation to Other Tables file, throws 3409 error

[brandonjelinek]

The following code throws a 3409 Error when i run it from my Development
database. When i run the code with set dbs = currentdb and run it within the
Tables_Main database.. it works.. but when i try to open a workspace and open
it remotely and add the relationship. It fails to work. Is there some trick
to adding a relationship to a remote access 2007 table?

Function NewRelation()
Dim dbs As Database, rel As Relation, fld As Field, wrkplace As Workspace

Set wrkplace = DBEngine.Workspaces(0)
Set dbs = wrkplace.OpenDatabase("Tables_Main.accdb")
Set rel = dbs.CreateRelation ("Main_People_Famlies", "Main_Families",
"Main_People")
rel.Attributes = dbRelationUpdateCascade And dbRelationDeleteCascade
Set fld = rel.CreateField("ID_Main_Famlies")
fld.ForeignName = "ID_Main_Famlies"
rel.Fields.Append fld
dbs.Relations.Append rel
dbs.Relations.Refresh
Set dbs = Nothing
End Function

sorry i accidentally posted this in general...

 

[david]

Sometimes a user error. Check spelling of "Main_People_Famlies",
"Main_Families", "Main_People", "ID_Main_Famlies" (I notice
two different spellings of "Families" there), and check that the
relation and indexes do not already exist.

(david)

 

[brandonjelinek]

i am going to go cry in a corner

Sometimes a user error. Check spelling of "Main_People_Famlies",
"Main_Families", "Main_People", "ID_Main_Famlies" (I notice
two different spellings of "Families" there), and check that the
relation and indexes do not already exist.

(david)

 

[david]

:~)

(david)

i am going to go cry in a corner

 

[Tony Toews [MVP]]

i am going to go cry in a corner

Been there, done that, gone for a beer.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/