bonjour,

Je n'arrive pas à utiliser les transactions et je remarque qu'il n'y a pas beaucoup d'aide à ce sujet
Voila comment je procede
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
 
Private Sub BtnRAZ_Click()
On Error GoTo Exit_BtnMouvement_Click
DoCmd.OpenForm "Mot de passe", acNormal, , , , acDialog
If Not blnPasswordOK Then
    Exit Sub
End If
DoCmd.OpenForm "ChoixMoisAnnée", acNormal, , , , acDialog
Cancel = Not ChoixHistoOK
BeginTrans
DoCmd.RunSQL ("requete SQL")
DoCmd.RunSQL ("requete SQL")
DoCmd.RunSQL ("requete SQL")
DoCmd.RunSQL ("requete SQL")
DoCmd.RunSQL ("requete SQL")
MsgBox "Mise à jour effectué", vbInformation
 
Exit_BtnMouvement_Click:
    MsgBox "Il y à eu un problème, la mise à jour a échouée", vbCritical
    Rollback
    Exit Sub
end sub
De plus je ne comprend pas pourquoi le messagebox en cas d'erreur s'execute alor qu'il n'y as pas d'erreur

Bref si quelqu'un peut m'aider, j'en serait bien content
Merci d'avance