requete ajout caractere sur tous les champs d'une table [Résolu]

[lorenzo74]

Bonjour,

j ai une table access dont l entete de la premiere colonne s appelle Nom avec des donnees.

Nom

Philippe
Paul
Henri
Sophie

Je voudrais inserer un x devant tous ces noms aux moyens d une requete, non
pas en sql mais en access et en une seule fois est ce possible svp.

je vous en remercie.

slts

[ft035580]

Salut,

Tu peux essayer un truc du genre:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Rst As DAO.Recordset
Dim Bds As DAO.Database
Set Bds = CurrentDb
Set Rst = Bds.OpenRecordset("TaTable", dbOpenTable)
While Not Rst.EOF
Rst.Edit
Rst.Fields("Nom").Value = "X" & Rst.Fields("Nom").Value
Rst.Update
Rst.MoveNext
Wend
Rst.Close
Bds.Close
Set Rst = Nothing
Set Bds = Nothing

[Tofalu]

Euh tu as testé l'impacte d'un tel code ? Pourquoi utiliser VBA quand une requête SQL suffit

Ton code va être plus de 10 fois plus lent qu'une simple requête, sans compter la nécessiter de mettre en place une IHM dédiée pour le lancer

Il ne faut pas penser que VBA est plus rapide que le reste et savoir utiliser Access c'est avant tout savoir choisir la meilleure des solutions face à une problématique données.

Ici, l'auteur un x devant tous ces noms :

La requête sera :

UPDATE MaTable SET ChampNom="x" & ChampNom

[ft035580]

[lorenzo74]

je vais tester vos manip, encore merci pour les reponses