Discussion :

[christophe31]

Bonjour,

J'ai un problème, je n'arrive pas à modifier des valeurs dans la base de données selon une condition.

En faite, dans une table test2 lorsque dans la colonne A il y a la valeur "coco", la valeur se trouvant dans la colonne B est mis à jour (date d'aujourd'hui)

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim rec As Recordset
 
Set rec = CurrentDb.OpenRecordset("test2", dbOpenSnapshot)
 
'Parcourir la table
Do While Not rec.EOF
        If rec.Fields(5) = "coco" Then
            str_sql2 = "update test2 set " & rec.Fields(6) & " = " & Date
            CurrentDb.Execute (str_sql2)
        End If
    rec.MoveNext
Loop

Merci par avance

[tarnx]

Je n'utilise pas la propriété fields habituellement mais en terme de SQL il suffit de faire ça à la place de ta boucle :

Code :

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

1
2
 
str_sql2 = " UPDATE test2 SET "  &  rec.Fields(6) & " = " & Date & " WHERE " &  rec.Fields(5)  & " = 'coco' "

Si tu connais le nom des colonnes autant les mettre directement dans la requêtes pour éviter les problèmes en cas de modification de la table

Code :

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

1
2
 
str_sql2 = " UPDATE test2 SET Colonne1 = " & Date & " WHERE Colonne2 = 'coco' "

[christophe31]

Merci tarnx, pour ton aide et tes conseils. C'est bon.

J'avais mis des fields() un peu partout, au cas où on modifie le nom dse colonnes dans la table.
Mais c'est vrai que si l'on modifie la table (ajout ou suppression d'une colonne ) ce sera moche pou la suite.

[christophe31]

J'ai un autre problème :

En faite, je voudrais qu'a une date précise (27/09/2004) la colonneA se met à jour. Sachant que la colonneB est de type Texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim rec As Recordset
 
Set rec = CurrentDb.OpenRecordset("test2", dbOpenSnapshot)
 
Do While Not rec.EOF
 
        str_sql2 = "UPDATE test2 SET colonneA = 'toto' WHERE colonneB > 27/09/2004"
        CurrentDb.Execute (str_sql2)
    'End If
 
    rec.MoveNext
Loop

J'ai essayé de convertir la colonneB en date genre :

Code :

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

cdate(colonneB)

mais ça ne fonctionne pas

Merci par avance

[christophe31]

voici la soluce :

Finallement, j'ai changé le type de la colonneB en date dans la base de donnée et j'ai mis ce code :

Code :

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

        str_sql2 = "UPDATE test2 SET colonneA = 'toto' WHERE colonneB <  #27/09/2004#"