Sletning af record - hvis ikke mulig vis Access standard msgbox

Har set mig blind på et problem.
Har dB hvor bruger har mulighed for at arkivere data på diverse pc info.
Fungerer sådan set fint BORTSET fra at i meget sjældne tilfælde er arkivering af data ikke mulig da der eksisterer data i en anden tabel.
Ved godt jeg bare kan vælge at udbygge min kode så disse data slettes fra den pgl. tabel...

Det der undrer mig er at jeg ikke får en fejl fra Access når bruger forsøger at arkivere data. Der sker nada - recorden slettes jo af gode grunde ikke af den pgl tabel pga den referentielle integritet.

Min kode er som følger:

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 intSvar As Integer
    Dim sSQL As String
    Dim s1SQL As String
    Dim s2SQL As String
    Dim s3SQL As String
   
    ' spørg bruger om record skal slettes
    intSvar = MsgBox("Er du sikker på at du vil arkivere data på PCén" + vbLf + Me.PCnavn + " ?" + vbLf + vbLf + "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!", vbYesNo + vbExclamation, "Bekræft arkivereing af PCdata!")
   
    If intSvar = vbNo Then Exit Sub

    '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 & "'"
   
    ' ******* 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
    CurrentDb.Execute s2SQL
    CurrentDb.Execute s1SQL
    CurrentDb.Execute s3SQL
    CurrentDb.Execute sSQL

    'sørg for at formularen viser de nye informationer, og dermed fjerner den slettede
    Me.Requery
 
    Exit Sub
   
Err_Handler:
 
    MsgBox "ERROR:" & Err.Description
End Sub


Det er garanteret en total logisk ting jeg har overset. Men kan pokkerme ikke lige finde ud af hvad.....