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 |