Undlade at slette hvis overførsel fejler

I en stump VBA kode, se nedenfor, overføres der data fra den aktuelle database til en anden database, hvor efter data i den oprindelige database slettes.

Der er dog det problem at hvis der opstår en fejl i INSERT-forespørgslen, så som hvis data ikke kan indsættes pga. nøglefejl, og brugeren ikke når at læse beskeden på skærmen, springes der videre til DELETE-forespørgslen og så slettes data (men eksisterer heller ikke i den anden database)!

  strSQLTransfer = "INSERT INTO [" & strTableName & "] IN '" & strSearchPath & "\" & strDatabaseName & "' SELECT [" & strTableName & "].* FROM [" & strTableName & "]"
  strSQLDelete = "DELETE * FROM [" & strTableName & "]"
 
  BeginTrans
    DoCmd.RunSQL strSQLTransfer
    DoCmd.RunSQL strSQLDelete
  CommitTrans