Bonjour à tous,

Voilà, j'ai un mini problème à résoudre, logiquement il ne se mettra pas longtemps à résoudre.

J'ai une requête de mises à jours :

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
Private Sub Commande21_Click() 'valider la modification
Dim rst As Recordset
Dim db As Database
Set db = CurrentDb
 If MsgBox("Voulez-vous confirmer la modification", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
 
    Me.Undo
   DoCmd.Close
   DoCmd.OpenForm "signataires_tableau"
Else
 
If Me.Dirty Then
    DoCmd.RunCommand acCmdSaveRecord
        End If
'If Me.liste01.Value <> "" And Me.liste02.Value <> "" And Me.liste3.Value Then
db.Execute "update chemin_du_workflow set Nom_circuit='" & Nom_circuit & "',Service='" & Me.liste01.Column(1) & "',Initiale='" & Me.liste02.Column(1) & "',Plan_compte=" & Me.liste3.Column(0) & ",groupe_de_plan_comptes='" & Me.liste4.Column(0) & "',fournisseurs='" & Me.liste5.Column(0) & "',société='" & Me.liste6.Column(0) & "',enseigne= '" & Me.liste7.Column(0) & "',etablissement='" & Me.liste9.Column(0) & "' where N°circuit=" & N°circuit
'Else
'CurrentDb.Execute "update chemin_du_workflow set Nom_circuit='" & Nom_circuit & "',Service=null,Initiale='" & Me.liste02.Column(1) & "',Plan_compte=" & Me.liste3.Column(0) & ",groupe_de_plan_comptes='" & Me.liste4.Column(0) & "',fournisseurs='" & Me.liste5.Column(0) & "',société='" & Me.liste6.Column(0) & "',enseigne= '" & Me.liste7.Column(0) & "',etablissement='" & Me.liste9.Column(0) & "' where N°circuit=" & N°circuit
'End If
 
DoCmd.Close
DoCmd.OpenForm "chemin_workflow"
Forms![chemin_workflow]![liste1].Requery
End If
End Sub
le soucis, c'est qu'elle ne remplit pas completement ses fonctions, lorsque je clique pour valider mon update, elle ne me met pas tout à jour..elle me met des valeurs null, quand je modifie d'autres valeurs, enfin le vrai foutoir quoi!!!!

Code : Sélectionner tout - Visualiser dans une fenêtre à part
db.Execute "update chemin_du_workflow set Nom_circuit='" & Nom_circuit & "',Service='" & Me.liste01.Column(1) & "',Initiale='" & Me.liste02.Column(1) & "',Plan_compte=" & Me.liste3.Column(0) & ",groupe_de_plan_comptes='" & Me.liste4.Column(0) & "',fournisseurs='" & Me.liste5.Column(0) & "',société='" & Me.liste6.Column(0) & "',enseigne= '" & Me.liste7.Column(0) & "',etablissement='" & Me.liste9.Column(0) & "' where N°circuit=" & N°circuit
merci

J'ai oublier de préciser que lorsque je l'execute en appuyant sur la touche F8, elle marche parfaitement bien... c'est tout de même bizzard...