|
Member
Beiträge: 6
| Bisher habe ich mit Access 2003 Beziehungen zwischen Tabellen 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 in Access2010 format kommt eine Typen Fehlermeldung bei ("S_Nr")
Was muss ich ändern?
Vielen Dank | |
|