Opret relation via SQL

ALTER TABLE Person
ADD FOREIGN KEY (perspostnr)
REFERENCES postnr (postnr)

Never tried it in Access but cant see why it should work.

This isn't any different from my example above, besides - it doesn't work in access.

My example above works, but - I need a little bit more. I need the access' "Cascade Update Related Fields" in the relationships. That is what I hope I can get.

This CASCADE is unique to Access (or was) so it isnt a standard SQL!

huh ! So I have to find a access-vba solution....hmm...
anybody ??

how about the currentdb.tabledefs-object ?

Prøv at søge på CreateRelation i hjælpen til VBA. Der får du et udmærket eksempel, netop med kaskadevis opdatering.

Har du et helt eksempel ?
Det i hjælpen trækker på nogle prævalgte tabledefs m.v.

Prøv med nedenstående kode, men husk at det er DAO, så du skal huske at tilføje DAO3.6 under Tools - References
Og det virker tilsyneladende kun på en lukket database, så koden skal nok køres fra en anden database - det er det jeg selv gør. Og husk at rette databasenavn, tabelnavne, feltnavne og relationsnavn til det du ønsker.


Sub CreateRelationY()
'Jan Kronsell, September 2000
'erklær DAO variablerne
    Dim db1 As Database
    Dim tabel1 As TableDef
    Dim tabel2 As TableDef
    Dim relNew As Relation
 
'Angiv databasen
    Set db1 = OpenDatabase("db1.mdb")

'Angiv de rigtige tabeller
    With db1
        Set tabel1 = .TableDefs!tabel1
        Set tabel2 = .TableDefs!tabel2

'Opret relationen - relationsnavn i parentes må ikke eksistere     
        Set relNew = .CreateRelation("Tabel1Tabel10", _
            tabel2.Name, tabel1.Name, _
            dbRelationUpdateCascade)
 
'Tilføj relationen og felterne til samlingen af relationer   
        relNew.Fields.Append relNew.CreateField("rnr")
        relNew.Fields!rnr.ForeignName = "nytfelt"
        .Relations.Append relNew

    End With

End Sub

Minder umiddelbart meget om den løsning jeg selv kom frem til. min fungerer dog fint på en åben base.

Mange tak for hjælpen.... Det bliver en pointdeling...


Morten


    Dim tdfUserrights As TableDef
    Dim tdfRights As TableDef
    Dim relNew As Relation

    With CurrentDb
        Set tdfUserrights = .TableDefs!tblUserrights
        Set tdfRights = .TableDefs!tblRights

        Set relNew = CurrentDb.CreateRelation("RightsUserrights", _
            tdfRights.Name, tdfUserrights.Name, dbRelationUpdateCascade)

        relNew.Fields.Append relNew.CreateField("RightID")

        relNew.Fields!RightID.ForeignName = "Rights"
        .Relations.Append relNew
End With

Set relNew = Nothing
Set tdfUserrights = Nothing
Set tdfRights = Nothing

Selvfølgelig kan den køre på en åben database, det kan jeg godt se nu. Det har jeg bare ikke selv haft behov for, og derfor ikke testet.

Selv tak