Discussion :

[choubak]

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

[DMboup]

De plus je ne comprend pas pourquoi le messagebox en cas d'erreur s'execute alor qu'il n'y as pas d'erreur

Par ce que tu le lui demande en quittant

Code :

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

1
2
3
 
Exit_BtnMouvement_Click:
    MsgBox "Il y à eu un problème, la mise à jour a échouée", vbCritical

Je crois que ce ira mieux comme ca

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
25
26
 
Private Sub BtnRAZ_Click()
On Error GoTo Err_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
CommitTrans 'C'est ici que la validation est faite
 
Exit_BtnMouvement_Click:
    Exit Sub
 
Err_BtnMouvement_Click:
    MsgBox "Il y à eu un problème, la mise à jour a échouée", vbCritical
    Rollback
    Goto Exit_BtnMouvement_Click
end sub

[Oleff]

Bonjour,

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 Sub
Exit_BtnMouvement_Click:
    MsgBox "Il y à eu un problème, la mise à jour a échouée", vbCritical
    Rollback
    
end sub

[choubak]

Merci avous d'avoir répondu

J'ai fait selon la solution de dmboup, le probleme est le suivant désormais

J'ai provoqué une erreur volontaire dans une requete SQL, je ne comprend pas le message "mise à jour effectuée s'affiche" puis ensuite "La mise a jour a échouée" et enfin le code plante en me disant que je fait un rollback alors que je n'est pas de transaction

étrange non?

[DMboup]

Normal je dirais

Il faut mettre cette ligne

Code :

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

1
2
 
MsgBox "Mise à jour effectué", vbInformation

dans la partie Exit ...
Mais il faut aussi tester s'il n'ya pas eu d'erreur avant de l'afficher.
Pour cela crée une variable ErrTrouve (Integer) ...
Voila comment faire

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
25
26
27
28
29
30
31
 
Private Sub BtnRAZ_Click()
Dim ErrTrouve As Integer
On Error GoTo Err_BtnMouvement_Click
DoCmd.OpenForm "Mot de passe", acNormal, , , , acDialog
If Not blnPasswordOK Then
    Exit Sub
End If
ErrTrouve=0
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")
CommitTrans
 
Exit_BtnMouvement_Click:
    If ErrTrouve=0 then
          MsgBox "Mise à jour effectué", vbInformation
    End If
    Exit sub
 
Err_BtnMouvement_Click:
    MsgBox "Il y à eu un problème, la mise à jour a échouée", vbCritical
    Rollback
    ErrTrouve=1
    Goto Exit_BtnMouvement_Click:
end sub

[choubak]

Bon en combinant vos 2 solutions et en ajoutant quelquechose que j'ai trouvé sur internet, j'ai fait ceci. Par contre mon rollback ne marche pas du tout

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
25
26
27
28
29
30
31
32
Private Sub BtnRAZ_Click()
On Error GoTo Err_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 ("INSERT INTO [historique Décor] ( [Nom client], [Code P2000], [Mots clef], [Ref seau], Support, Fournisseur, Mois, Année, Commentaire ) SELECT Décor.[Nom client], Décor.[Code P2000], Décor.[Mots clef], Décor.[Ref seau], Décor.Support, Décor.Fournisseur, '" & Mois & "' AS Expr1, " & Année & " AS Expr2, Décor.Commentaire FROM Décor;")
    DoCmd.RunSQL ("INSERT INTO [historique mouvement] ( [Code P2K], [Date], Récéption, [Quantité entrée], [Quantié sortie], Quantité, [Quantité restante], Rack, Mois, Année )SELECT Mouvement.[Code P2K], Mouvement.Date, Mouvement.Récéption, Mouvement.[Quantité entrée], Mouvement.[Quantié sortie], Mouvement.Quantité, Mouvement.[Quantité restante], Mouvement.Rack, '" & Mois & "' AS Expr1, " & Année & " AS Expr2 FROM Mouvement;")
    DoCmd.RunSQL ("INSERT INTO temp ( [Quantité restante], [Code P2K], rack ) SELECT Last(Mouvement.[Quantité restante]) AS [DernierDeQuantité restante], Mouvement.[Code P2K], First(Mouvement.Rack) AS PremierDeRack FROM Mouvement GROUP BY Mouvement.[Code P2K];")
    DoCmd.RunSQL ("DELETE Mouvement.[Code P2K], Mouvement.Date, Mouvement.Récéption, Mouvement.[Quantité entrée], Mouvement.[Quantié sortie], Mouvement.Quantité, Mouvement.[Quantité restante], Mouvement.Rack FROM Mouvement;")
    DateMaj = CDate("01" & " " & Format(Mois, "m") & "/" & Format(Date, "yyyy"))
    SQL = "INSERT INTO Mouvement ( [Code P2K], [Date], Quantité, [Quantité restante], Rack ) SELECT temp.[Code P2K], #" & DateMaj & "#, temp.[Quantité restante], temp.[Quantité restante], temp.rack FROM temp;"
    DoCmd.RunSQL SQL
    DoCmd.RunSQL ("DELETE temp.[Code P2K], temp.[Quantité restante]FROM temp;")
    MsgBox "Mise à jour effectué", vbInformation
    If MsgBox(Prompt:="Commit Transaction?", Buttons:=vbYesNo) = vbYes Then
        CommitTrans
    Else
        Rollback
    End If
Exit Sub
 
Err_BtnMouvement_Click:
    MsgBox "Il y à eu un problème, la mise à jour a échouée", vbCritical
    GoTo Exit_BtnMouvement_Click
 
Exit_BtnMouvement_Click:
    Exit Sub
End Sub

Ce serait plus pratique si je pouvais tester si la transaction s'est executer entierement
Avis aux amateurs