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 |
Partager