Sécurité lors de l'enchainement de 2 requêtes

[Claire07]

Bonjour,

Je voudrais savoir comment on fait pour mettre une sécurité lors de l'enchainement de deux requêtes.

En fait j'ai une requête ajout qui ajoute des personnes à une Base Archive et une requête supression qui suprime les personnes qui ont été ajoutés dans archive.

ce que je voudrais faire c'est faire un programme visual Basic pour que les fichiers ne soient pas supprimés en cas de problème lors de l'ajout.

Pour l'instant je n'ai que ce programme qui ajoute et qui suprime les enregistrements:

Code :

1
2
3
4
Private Sub Commande1_Click()
DoCmd.RunSQL "INSERT INTO Contracte IN 'C:\Documents and Settings\Administrateur.BEARN-SOL\Bureau\NouvelleBDD\Archive.mdb' SELECT Contracte.* FROM Contracte WHERE ((YEAR((Contracte.Date_Sortie))< YEAR(Now())));"
DoCmd.RunSQL "DELETE FROM Contracte WHERE (((Year([Date_Sortie])) < Year(Now()))) ;"
End Sub

Merci et bonne journée

[random]

pour la suppression fait une laison entre tes deux tables
ainsi seuls les champs présents dans archive seront supprimés dans contrat
nb cela n'empêche pas un back up préliminaire qui accompagne normalement tout archivage

[Claire07]

Il n'y a pas une autre solution par exemple mettre un
" if ajout marche pas ne pas faire supression"

[Tofalu]

Si en utilisant une transaction avec DAO. Regarde dans l'aide rollback et committrans sont bien expliqués