Bonjour,
En train de développer une application, je souhaite (pour les tests) modifier les données d'un champ dans une table. Habitué à faire cela, je tombe aujourd'hui sur un os... Le code que j'ai écrit fonctionne parfaitement (j'ai fait du pas à pas et chaque enregistrement est "visité" mais... la valeur du champ de ma table ne se modifie pas.
Si quelqu'un voit un bug ou une commande non adaptée dans mon code... MERCI ! (On a parfois besoin d'un regard externe pour mettre le doigt sur une erreur...)
Pour info:
rst!TVAAchatTaux = Numérique, Réel double
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 Public Function ModifsTblArticles() ' TemporaireDim rst As DAO.Recordset Dim I As Integer Dim Z As Integer Dim Taux As Double I = 1 Set rst = CurrentDb.OpenRecordset("tblArticles") rst.MoveLast rst.MoveFirst For Z = 1 To rst.RecordCount If I = 1 Then Taux = 8 If I = 2 Then Taux = 3.8 If I = 3 Then Taux = 2.5 rst.Edit rst!TVAAchatTaux = Taux rst.Update I = I + 1 If I = 4 Then I = 1 Next Z MsgBox "Terminé" End Function
Partager