Bonjour,
J'ai créer une requête qui fonctionne, mais j'ai l'impression de ne pas l'avoir bien formulée :
La ligne 8 me semble un complément de la ligne 6. Peut-on améliorer cela ?
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 Sub ReplaceMot() Dim oRst As DAO.Recordset Dim oDb As DAO.Database Dim Compte As Long Set oDb = CurrentDb Set oRst = oDb.OpenRecordset("t_PEL", dbOpenTable) Compte = oRst.RecordCount Set oRst = oDb.OpenRecordset("SELECT PayementFK FROM t_PEL") If oRst.EOF = True Then oRst.MoveFirst For Boucle = 1 To Compte oRst.Edit Debug.Print oRst.Fields(0).Value If oRst.Fields(0).Value = 18 Then oRst.Fields(0).Value = 10 End If oRst.Update oRst.MoveNext Next oRst.Close oDb.Close Set oRst = Nothing Set oDb = Nothing End Sub
D'autre part, pourriez-vous me présenter la même macro sous forme de Sql ?
Merci de votre aide.
Partager