Til Juks

tak skal du ha \'\'\' jeg har løst problemet med relationen det er meget simpelt ... man skal bare tage tabelnavn1tabelnavn2
men jeg kan ikke rigtigt få din kode til at spille..


  Dim db As DAO.Database
  Dim rel As DAO.Relation

  \' Open the database
  Set db = DBEngine.OpenDatabase(\"C:\\BTB30c.mdb\")
  db.Relations.delete \"TA_UddannelsesniveauTA_Stillingskategori\"

\' Specify cascading updates and deletes rel.Attributes = dbRelationUpdateCascade Or dbRelationDeleteCascade

mvh
jonas