hvorfor virker den ikke i runtime

Prøv at lave den i ADO i stedet for DAO.
Forinden skal du lige huske at sætte en reference til ADOX (Microsoft ADO Ext. 2.5 for DDL and security)

  Dim cat As New ADOX.Catalog
  Dim tbl As ADOX.Table
  cat.ActiveConnection = \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
  \"Data Source=C:\\xxxx.mdb;\"
  Set tbl = cat.Tables(\"TA_Uddannelsesniveau\")
  tbl.Keys.Delete \"TA_UddannelsesniveauTA_Testpersoner Stamdata\"


TA_Uddannelsesniveau skal muligvis byttes ud med \"TA_Testpersoner Stamdata\" afhængigt af hvilken der er foreign key til hvilken.

Hvis relationen ligger i den aktueller database, behøver du heller ikke lave den lave connectionstring, men blot lave 3. linie om til
cat.ActiveConnection = currentproject.connection

/Thomas

PS: Lad nu være med at acceptere mit svar før du mener det ;o)

I\'m a little confused!
A runtime will normally have extension .mde and not .mdb

The purpose of having a runtime is to stop users modifying the dB. So it sounds right that your not allowed to doesnt it?

Hi Terry,

A runtime is a limited version of Access where you have no design-mode. The databases, you run, is the same as usual. It can be a .mdb or .mde (or .mda).
Therefore you can do the same things in VBA as you would in the normal version of Access.
A .mde is a semi-runtime access-file. In a .mde you also have limited access to design-mode, but this is controlled by the database and not by Access.

Do you see the difference?

The purpose of using a Runtime is to let users run an Access-application without having to install Microsoft Office and without having any licens at all. You are free to distibute Access-runtimes without any licens...all you need is \"Microsoft Office Developers Edition\" to create the runtime. It costs approximatly 6-7.000 Dkr.

/Thomas

JEg fandt en løsning til at gøre ved hjælp af nummret på forspg.. istedet det virkede  men vi lavede det i VB...

Dim db As DAO.Database
Dim rel As DAO.Relation
Dim fld As DAO.Field
Dim Database As String

Database = sti

Set db = OpenDatabase(Database)
   
    Dim X As Integer                                    \'Dette er luxuskode forfattet af Jakob
    Dim tal, tabel As String
    tal = 0
    If db.Relations.Count > 0 Then
    For X = 0 To db.Relations.Count - 1
     
      tabel = db.Relations(tal).Table
     
      If tabel = \"TA_Uddannelsesniveau\" Then
      db.Relations.Delete db.Relations(tal).Name
      db.Close
      Exit For
      End If
     
      tal = tal + 1
    Next
   
    MsgBox \"Opdateringen fuldført\"
    End
    End If                                             
   

JEg fandt en løsning til at gøre ved hjælp af nummret på forspg.. istedet det virkede  men vi lavede det i VB...

Dim db As DAO.Database
Dim rel As DAO.Relation
Dim fld As DAO.Field
Dim Database As String

Database = sti

Set db = OpenDatabase(Database)
   
    Dim X As Integer                                    \'Dette er luxuskode forfattet af Jakob
    Dim tal, tabel As String
    tal = 0
    If db.Relations.Count > 0 Then
    For X = 0 To db.Relations.Count - 1
     
      tabel = db.Relations(tal).Table
     
      If tabel = \"TA_Uddannelsesniveau\" Then
      db.Relations.Delete db.Relations(tal).Name
      db.Close
      Exit For
      End If
     
      tal = tal + 1
    Next
   
    MsgBox \"Opdateringen fuldført\"
    End
    End If                                             
   

nu kom jeg til det igen ...........
din kode virkede ikke.....