nwa - 17.07.14 14:53
Ich habe das Problem mit folgender Prozedur gelöst:

Sub Beziehungen_herstellen()
Dim dbs As DAO.Database
Dim relBez As DAO.Relation
Dim tdf_pers As DAO.TableDef
Dim tdf_note As DAO.TableDef

Set dbs = CurrentDb

Set tdf_pers = dbs.TableDefs("Persdaten")
Set tdf_note = dbs.TableDefs("Noten")

Set relBez = dbs.CreateRelation("Bez1", tdf_pers.Name, tdf_note.Name, DB_RELATIONUPDATECASCADE + DB_RELATIONUNIQUE + DB_RELATIONDELETECASCADE)

relBez.Fields.Append relBez.CreateField("S_Nr")
relBez.Fields![S_Nr].ForeignName = "S_nr"
dbs.Relations.Append relBez

...


Bisher habe ich mit Access 2003 Beziehungen zwischen Tabellen "Persdaten" und "Noten" folgendermaßen herstellen können:

Function Beziehungen_herstellen()

Dim DB As Database
Dim Feld As Field
Dim Bez As Relation
Set DB = DBEngine.Workspaces(0).Databases(0)

Set Bez = DB.CreateRelation("Bez1")

Bez.Table = "Persdaten"
Bez.ForeignTable = "Noten"

Set Feld = Bez.CreateField("S_Nr")
Feld.ForeignName = "S_Nr"
Bez.Attributes = DB_RELATIONUPDATECASCADE + DB_RELATIONUNIQUE + DB_RELATIONDELETECASCADE

Bez.Fields.Append Feld
DB.Relations.Append Bez


Set Bez = DB.CreateRelation("Bez2")
...

Seit der Konvertierung von Access2003 in Access2010 Format kommt eine Typen Fehlermeldung bei ("S_Nr") (Zeile: "Set Feld = Bez.CreateField("S_Nr"))


Muss bei der Umwandlung von Access2003 nach Access2010 in VBA ein weiterer Verweis aktiviert werden?


Was muss ich ändern?
Vielen Dank