Amélioration d'une requête

Version imprimable

Bonjour,
J'ai créer une requête qui fonctionne, mais j'ai l'impression de ne pas l'avoir bien formulée :

Code:

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

La ligne 8 me semble un complément de la ligne 6. Peut-on améliorer cela ?
D'autre part, pourriez-vous me présenter la même macro sous forme de Sql ?
Merci de votre aide.

bonjour,

Citation:

La ligne 8 me semble un complément de la ligne 6. Peut-on améliorer cela ?

pire, elle "écrase" l'affectation du RecordSet faite par la ligne 6
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub ReplaceMot() Dim oRst As DAO.Recordset Dim oDb As DAO.Database Set oDb = CurrentDb Set oRst = oDb.OpenRecordset("SELECT PayementFK FROM t_PEL where PayementFK = 18") ' autant sélectionner ici l'enregistrement à mettre à jour if not orst.Eof then oRst.Edit Debug.Print oRst.Fields(0).Value oRst.Fields(0).Value = 10 oRst.Update End If oRst.Close oDb.Close Set oRst = Nothing Set oDb = Nothing End Sub
Citation:

D'autre part, pourriez-vous me présenter la même macro sous forme de Sql ?

d'après ce que j'en ai compris ton code veut remplacer la clé 18 par 10 ?

Code:

Update t_PEL set PayementFK = 10 where PayementFK = 18;

dans l'hypothèse évidente que ce n'est pas un numéro auto

Merci beaucoup tee_grandbois, toujours aussi réactif.
2 petits codes que je me garde sous le coude, s'il y a encore des améliorations n'hésite pas j'aime bien apprendre.

Code:

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
26
27
28
29
30
Sub ReplaceMot1()
   Dim strBase As String
   Dim strChamps As String
   Dim AncienMot As String
   Dim NouveauMot As String
   Dim Compte As Long
   Dim oRst As DAO.Recordset
   Dim oDb As DAO.Database
   Set oDb = CurrentDb
   strBase = "t_PEL"
   strChamps = "PayementFK"
   AncienMot = 44
   NouveauMot = 10
   Compte = DCount("*", strBase)
   ' Autant sélectionner ici l'enregistrement à mettre à jour
   Set oRst = oDb.OpenRecordset("SELECT " & strChamps & " FROM " & strBase & " where " & strChamps & " = " & AncienMot)
   If Not oRst.EOF Then
        For Boucle = 1 To Compte
            oRst.Edit
            Debug.Print oRst.Fields(0).Value
            oRst.Fields(0).Value = NouveauMot
            oRst.Update
            oRst.MoveNext
        Next
   End If
   oRst.Close
   oDb.Close
   Set oRst = Nothing
   Set oDb = Nothing
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ReplaceMot2()
   Dim sSql As String
   Dim strChamps As String
   Dim AncienMot As String
   Dim NouveauMot As String
   strBase = "t_PEL"
   strChamps = "PayementFK"
   AncienMot = 44
   NouveauMot = 10
   sSql = "Update " & strBase & " set " & strChamps & " = " & NouveauMot & " where " & strChamps & " = " & AncienMot & ";"
   DoCmd.SetWarnings False: DoCmd.RunSQL sSql: DoCmd.SetWarnings True
End Sub

bonjour,
la boucle For ... To Compte peut être remplacée par une boucle Do Until ... Loop jusqu'à fin de fichier (EOF) plus "moderne"
Code:

1 2 3 4 5 6 7 8 9 Do Until oRst.EOF oRst.Edit Debug.Print oRst.Fields(0).Value oRst.Fields(0).Value = NouveauMot oRst.Update oRst.MoveNext Loop