nwa - 17.07.14 14:53

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"))

Was muss ich ändern?
Vielen Dank