Relationenen setzten in Access mittels VBA (Access)

SteffiB777 @, Dienstag, 03.12.2019, 14:50 (vor 3 Tagen) @ Martin Asal

Hey Martin,

ich hab den Code nochmal angepasst, jedoch bekomme ich immer noch den Fehler. So langsam weis echt nicht mehr weiter...

Liebe Grüße,
Steffi

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim rsY As DAO.Recordset
Dim fldY As DAO.Field
Dim relNew As DAO.Relation

Set db = CurrentDb 'DB definieren
Set tdf = db.TableDefs("Anfertigungsteil")

'Beziehung zwischen Anfertigungsteile und yprst setzten
Set relNew = db.CreateRelation("yprstAnfertigungsteil")
relNew.Table = "Anfertigungsteil"
relNew.ForeignTable = "yprst"
relNew.Attributes = dbRelationUpdateCascade
'zwischen welche Spalten die Relation erstellt werden soll
Set fld = relNew.CreateField("Material")
fld.ForeignName = "Material"
'Setzen der Relation
relNew.Fields.Append fld
db.Relations.Append relNew
db.Relations.Refresh
db.Close


dbY.Relations.Refresh
Set relNew = Nothing
Set db = Nothing
Set tdf = Nothing
Set fld = Nothing


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum