Discussion :

[bailamos]

salut,
j'essay de remplacer 12- par 10- dans le fields(1) de tous les enregistrement de la table mais ca marche pas

Code :

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

1
2
3
4
5
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
Data1.Recordset.Fields(1).Value = Replace(Data1.Recordset.Fields(1).Value, "12-", "10-")
Data1.Recordset.MoveNext
Loop

merci

[OhMonBato]

Il manque peut etre le passage du recordset en mode Edit puis un petit update.

Code :

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

1
2
3
4
 
Data1.Recordset.Edit
Data1.Recordset.Fields(1).Value = Replace(Data1.Recordset.Fields(1).Value, "12-", "10-")
Data1.Recordset.Update