....måske problem med transaction :[

remove
On Error Resume Next
from your error routine or you will never get here!

Susanne isnt there something wrong here?
her ryddes op
  On Error Resume Next 'You will NOT get to the next line!
    Set db = Nothing
   
        ' Foretag Rollback hvis transaction er aktiv
        If bInTrans Then
            ws.Rollback
      End If
       
    Set ws = Nothing

alter your code to
Exit_OK:
    Set db = Nothing
    Set ws = Nothing

  Exit Sub
   
Exit_Err_Handler:
   
        ' Foretag Rollback hvis transaction er aktiv
        If bInTrans Then
            ws.Rollback
      End If
      Goto Exit_OK
       
    Set ws = Nothing

>>terry am happy you spend so much time on E ;)

have altered the code - but doesnt help

same problem - if I close the dB + Access, start it again - everything works -seriously strange

??? have made a compact and repair
apparently it did the trick - what the *** is happening

am rather worried about this code - would like to be able know that it ALWAYS works .P

by the by what is the proper syntax

vbCrLf
or vbLf ??

vbCrLf

if you can send me the dB then I will take a look

You are most welcome to se if you can find the problem - if any .... sometimes it works and sometimes it doesn´t. Hate those kind of errors :[

have send you the annoying dB

Hi Susanne, I have made a number of changes and it should now work. I should have seen the problem earlier, but better late than never.
Here is one problem.

If intSvar = vbOK Then
        ws.CommitTrans
        bInTrans = False
    End If

You are commiting the transaction BEFORE you have even done anything. The commit is used at the end of the changes to tell Access you want to KEEP the changes.

Hi Terry
....and there I was so very sure Access was the stupid one ;)
You have made a number of alterations, but not so many that I am totally lost :))
One of the more "amusing" and essential is the Exit Sub I´ve forgotten if the user presses Cancel

Thnx a bundle Terry. By the by have You considered establishing a course teaching the stupid how to find their way in the jungle called "The world of Access". If so count me in LOL

The code that works:

Private Sub cmdArkiverPC_Click()
' arkiver data på PC - er en god ide fx pga historikken
'  sletter bruger i tblBrugere og overfører data til tblOphørteBrugere

On Error GoTo Err_Handler
' Hvis sletning/arkivering ikke er mulig. Vis Access fejlmeddelelse

    Dim ws As DAO.Workspace  'Nuværende arbejdsområde der kræver transaction
    Dim db As DAO.Database    'Inde i transaction.
   
    Dim intSvar As Integer
    Dim sSQL As String
    Dim s1SQL As String
    Dim s2SQL As String
    Dim s3SQL As String
    Dim s4SQL As String
    Dim s5SQL As String
    Dim sSQLfjern As String      ' bruges til at slette evt. gl. record inden ny sættes ind i arkiv tabel
   
   
    ' spørg bruger om record skal slettes
    intSvar = MsgBox("Er du sikker på at du vil arkivere data på PCén" & vbCrLf & Me.PCnavn & " ?" & vbCrLf & vbCrLf & "Du skal kun vælge at arkivere data, hvis PCén f.eks. ikke længere er " + vbLf + "oprettet i ODK´s netværk, eller hvis den får et andet navn." + vbLf + vbLf + "Data på PCén vil blive slettet fra denne formular!" + vbLf + vbLf + "OBS husk at overføre evt. special licenser til formularen Licenoversigt !!", vbOKCancel + vbExclamation, "Bekræft arkivereing af PCdata!")
   
    If intSvar = vbOK Then
    'Now we can start the transaction
        Set ws = DBEngine(0)
        ws.BeginTrans
        Set db = CurrentDb
    Else
'************  I am sure you dont want to continue if you choose Cancel *******
        Exit Sub
    End If


  '*****Sletter evt. gammel record i tblPCInfoARKIV, da dubletter ikke er tilladt
    sSQLfjern = "DELETE * FROM tblPCinfoARKIV WHERE PCnavn = '" & PCnavn & "'"

    'her koden der sletter den aktuelle post og de tilhørende underposter
    '***********
    sSQL = "DELETE * FROM tblPCinfo WHERE PCnavn =  '" & PCnavn & "'"
    s1SQL = "DELETE * FROM tblOversigt WHERE PCnavnRef = '" & PCnavn & "'"
    s2SQL = "INSERT INTO tblPCinfoARKIV SELECT* FROM tblPCinfo WHERE PCnavn= '" & PCnavn & "'"
   
    'Sletter evt. registreringer i licens tabellen
    s3SQL = "DELETE * FROM tblPClicenser WHERE PCnavnRef = '" & PCnavn & "'"
   
    '*******Sletter evt. registreringer i reetableringstabellen **********
    s4SQL = "DELETE * FROM tblPCReetablering WHERE PCnavnRef = '" & PCnavn & "'"
   
    ' ******* overfører først PCéns data fra tblPCinfo til tblPCinfoARKIV ******
    ' så slettes PC og evt tilknyttede brugere i i tblOversigt og i tblPClicenser
    ' dernæst slettes PCén fra tblPCinfo - - - til sidst slettes evt. reg. i tblPCReetablering
       
    CurrentDb.Execute sSQLfjern, dbFailOnError    ' slet evt. gl. record
    CurrentDb.Execute s2SQL, dbFailOnError        ' indsæt ny record i tblPCinfoARKIV
    CurrentDb.Execute s1SQL, dbFailOnError        ' slet record fra tblOversigt
    CurrentDb.Execute s3SQL, dbFailOnError        ' slet record fra tblPClicenser
    CurrentDb.Execute s4SQL, dbFailOnError        ' slet record fra tblPCReetablering
    CurrentDb.Execute sSQL, dbFailOnError        ' slet record fra tblPCinfo

    'sørg for at formularen viser de nye informationer, og dermed fjerner den slettede
    Me.Requery
   
    'If we get here then we can now save (commit)
    ws.CommitTrans
   
       
Exit_OK:
    Set db = Nothing
    Set ws = Nothing

    Exit Sub
   
Err_Handler:
' hvis arkivering ikke er mulig vis fejlmeddelelse
    MsgBox Err.Description, vbExclamation, "Arkivering ikke mulig: Fejl " & Err.Number
   
    ' Foretag Rollback hvis transaction er aktiv
    ws.Rollback
     
    GoTo Exit_OK
   
End Sub


diverse vbLf er ikke erstattet med vbCrLf endnu :)

Thanks for the points Susanne.
Concerning the course, well you may see/hear more in that area, hopefully in the near future :o)

:) looking forward to it