Beziehungen herstellen
nwa
Gesendet: 17.07.14 14:53
Betreff: Beziehungen herstellen


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
Top of the page Bottom of the page