Discussion :

[nawakbling]

Bonjour

Quand je lance une fonction qui ajoute des lignes dans 3 tables en appelant tour à tour d'autres fonctions.

En cas de bug (ex. les données à importer sont absentes), la fonction est stoppée par un message d'erreur. Il faut corriger l'erreur et relancer la fonction.

Problème : Lorsque la fonction est relancée, elle ajoute les bons enregistrements. Mais on retrouve aussi les enregistrements de la précédente exécution.

Comment faire pour que les enregistrements ajoutés lors du bug soient supprimés ? C'est à dire que l'exécution qui n'a pas aboutie soit neutre sur mes tables ?

Merci de votre aide

[marot_r]

il faut utilser une transaction dans une transaction ou toute les données sont traitées ou aucune n'est traitée.

Inspiré de l'aide de Access sur le sujet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
private Sub Test_Trans()
 
Dim wrkDefault As Workspace : set wrkDefault=DBEngine.Workspaces(0)
 
  wrkDefault.begintrans
 
  on error goto Err_Trans
 
  '
  'mettre ici le code de mise à jour
  '
 
  wrkDefault.CommitTrans : 'Ok tout s'est bien passé on peut confirmer les modifs
 
Exit_Trans :
  exit sub
 
Err_Trans :
  msgbox Err.description
  wrkDefault.Rollback : 'On a eu un problème, annule les modifs et remet les données dans l'état où elles étaient au moment du .BeginTrans
 
  resume Exit_trans
 
End sub

A+

[nawakbling]

Merci de votre aide

J'essaye d'implémenter dans mon code