Discussion :

[Ethancarter]

Bonjour,

Je suis débutant en access. Dans le cadre de mon travail, j'ai récupéré une base de donnée access (15 000 lignes !) que je cherche à moderniser. Il s'agit d'une base d'adresse postale avec des champs écrits plus ou moins n'importe comment au fil du temps. Par exemple "Boulevard de la République" est écrit parfois avec un accent, parfois sans, parfois avec une faute, parfois avec un espace parasite ou des mots collés... Alors qu'il devrait être écrit sous une forme officielle "REPUBLIQUE, BD DE LA".
Aucun traitement automatisé n'est possible, il va falloir tout refaire manuellement.

Dans un premier temps, je vais appliquer un filtre sur le champ "adresse", de façon à ce que toutes les adresses d'une voie en particulier s'affichent.

J'ai créé un nouveau champ "adresse 2" dans lequel je vais écrire manuellement le nom de la voie tel qu'il aurait toujours du être écrit.

Jusque là c'est simple. Mais je voudrais ne pas retaper le nom plusieurs fois. Exemple, je fais un filtre sur le champs "adresse" en utilisant "république", j'ai environ 300 lignes qui s'affichent, car il y a 300 adresses au boulevard de la république. Comment dire à Access de remplir tous les champs "adresse 2" par "REPUBLIQUE, BD DE LA" sans me taper 299 copier/coller ?

J'ai cherché longtemps sur Internet, j'ai trouvé un script VBA sur un forum anglais (http://www.utteraccess.com/forum/ind...wtopic=1210991) qui fonctionne - mais il remplit TOUS les champs "adresse 2" de la table, pas uniquement ceux qui sont affichés à l'écran avec le filtre !

Avez-vous une idée ?

Comment "coller" un contenu à toute une colonne affichée à l'écran ?

Merci beaucoup !

PS : il ne s'agit pas d'une base commerciale, je travaille dans une mairie ;-)

[loufab]

Bonjour,

Les traitements par lots (ou de masse) se font à 99% avec des requêtes. L'utilisation de VBA pour ce genre de manip s'applique à des cas très spécifiques. Le tien ne semble pas en faire parti.

Dans un premier temps commence par une requête de sélection affichant le champ à traiter.

Pour filtrer les enregistrements concernés utilises l'opérateur Like, tu remarqueras qu'avec quelques jokers tu récupèreras l'ensemble de enregistrement à traiter. (cf mon tuto sur Like).

Tu peux ajouter plusieurs filtres dans la même requête en les plaçant dans la colonne du champ à traiter.

Une fois que tu as l'ensemble des enregistrements concernés affichés, transforme ta requête en Requête Mise à jour (un simple clic dans le ruban suffit).

Un nouvelle ligne s'affiche, indiques-y le texte de remplacement. Tu n'as plus qu'à cliquer sur le point d'exclamation rouge.

Pour traiter un autre jeu tu modifies simplement les filtres et le texte de remplacement.

Cordialement,

[Ethancarter]

Merci pour cette réponse rapide.

Like, je suppose que c'est du VBA ?

Sinon, le soucis de ce genre de requête, c'est que plus une sorte de "rechercher/remplacer", ça ne copie pas les données dans un nouveau champ.
Je suppose que je peux tout simplement copier/coller mes données un une fois (du champs adresse vers adresse2) puis travailler sur la colonne copiée.

J'essayerai demain au bureau.
Merci !

[loufab]

Si a chaque occurrence de bld, boulevard, bd trouvé dans un champ tu veux renseigner un autre champ c'est le même type de requête qu'il faut utiliser.

Like, je suppose que c'est du VBA ?

Toi tu n'as pas regardé/lu/parcouru le tuto.

C'est un opérateur commun SQL et VBA comme l'ensemble des autres opérateurs.

Une requête fait le traitement que tu lui demande, si tu veux qu'elle fasse de l'insertion, du copier/coller, du recherche/remplace elle le fera.

A noter que l'algo que tu a posté fait la même chose qu'une requête Update mais en plus lent.

[Ethancarter]

Bonjour,

J'ai essayé au bureau, mais je n'ai pas réussi.

J'ai essayé de créer une requête mise à jour, en utilisant comme critère comme "*xxxxx*" sur le champs adresse1.
Je peux mettre à jour le champs adresse1 en remplissant "mise à jour", mais ce que je veux, c'est mettre à jour le champ "adresse 2" qui lui, est vide.

Je précise que je ne peux pas copier le champs adresse 1 de adresse 2 car adresse 2 est une liste de choix et non un texte court et donc un copier/coller plante (logique)...

Désolé si je parais un peut lourd. En principe, je m'y connais bien en informatique : avec Excel, j'ai réussi à faire du VBA en quelques heures, mais avec access j'ai beaucoup plus de mal !!

Il n'y a pas un moyen plus simple ??



Merci par avance,

[loufab]

c'est mettre à jour le champ "adresse 2" qui lui, est vide.

Je précise que je ne peux pas copier le champs adresse 1 de adresse 2 car adresse 2 est une liste de choix et non un texte court et donc un copier/coller plante (logique)...

tu peux me la refaire parce que j'ai relu 3 fois la phrase sans comprendre.

[Ethancarter]

Bonjour Loufab,

Dans mon précédent post, je te disais que pour résoudre une partie de mon problème, j'allais copier le contenu du champ "adresse" (la colonne entière) dans la colonne "adresse 2", par un simple copier/coller. Je pouvais directement "travailler" sur adresse2, qui actuellement est vide.
C'était plus simple pour moi, car je ne maitrise pas trop les requêtes.
Or, cela est impossible car le champs adresse2 est une liste de choix et le copier/coller ne fonctionne pas.

Récapitulons mon problème :
- j'ai un champs "adresse" (il s'appelle "adresse du terrain" en vrai, cf photo d'écran), c'est un "texte court" rempli de données écrites un peu n'importe comment

- un champs "adresse2" (il s'appelle "NOM_VOIE" en vrai, cf ma photo d'écran) qui est une liste de choix. La liste de choix comprend la liste, avec le formatage officiel, de toutes les voies de ma commune. Mais ce champs est vide. Je viens de le créer, personne n'a saisi de données.

- je mets un filtre sur "adresse" de manière à afficher une liste d'adresse correspondant à une voie.



- dans le champs "adresse2" (actuellement vide) de la première ligne, je sélectionne manuellement le nom de la voie correspondante dans la liste




- pour éviter de recommencer l'opération pour chaque ligne (qui correspondent à chaque numéro d'une voie), comment faire ?
Ici, je peux faire un copier/coller, c'est possible... Mais parfois je peux avoir 300-500 copier/coller à faire !



Si vous avez une idée, je suis preneur !

Merci !

[loufab]

Bonjour,
Je n'utilise que très rarement les listes dans les tables, leur utilisation pose trop de contraintes et casses-tête techniques dans la suite d'un développement.

Ta liste est issue d'une autre table ?

Dans ce cas supprime la liaison de la table. Tu pourras ainsi utiliser cette table annexe soit directement avec la valeur détectée (détection/copie de valeur d'une table à l'autre), soit plus simplement en créant une relation classique à base de clefs numérique.

Voici un code qui copie une valeur d'une table dans le champ1 d'une autre si une valeur est trouvée dans le champ2.

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
Function recopie()
Dim db As DAO.Database
Dim rstS As DAO.Recordset
 
Set db = CurrentDb
Set rstS = db.OpenRecordset("SELECT * FROM TableRef", dbOpenSnapshot)  'ta table contenant les valeur de référence à copier
 
While Not rstS.EOF  'on la parcours enrg. par enrg.
 
'A chaque enregistrement 
'on cherche la correspondance dans la table à traiter et on traite tous les champs
db.Execute "UPDATE tclient SET nouveauChampVide = """ & rstS.Fields("champRef").Value & """ WHERE ancienneChampRenseigné like ""*" & rstS.Fields("champRef").Value & "*"" ;"
 
'on passe à la référence suivante
rstS.MoveNext
 
Wend
 
End Function

Ta liste n'est pas issue d'un table. là c'est le casse-tête.

Cordialement,

[Ethancarter]

Bonjour,
Merci pour le code. Je n'ai pas vraiment compris à quoi il servait, mais je l'ai essayé.

J'ai supprimé la liaison avec la table "voies", puisque bien entendu le contenu de la liste de choix provient bien d'une autre table.

J'ai recopié le code en tant que module VBA, modifié TableRef et ChampRef (2x), mais j'ai une erreur d'exécution 3265 (élément non trouvé dans cette collection). Le debug surligne cette ligne :

Code :

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

db.Execute "UPDATE tclient SET nouveauChampVide = """ & rstS.Fields("NOM_VOIE").Value & """ WHERE ancienneChampRenseigné like ""*" & rstS.Fields("NOM_VOIE").Value & "*"" ;"

Ai-je fait une erreur ?

Merci à toi

[loufab]

nouveauchampvide et ancienchamprenseigné sont des champs de ta table.

tclient est la table dans laquelle tu opères.
nouveauchampvide est le champ dans lequel tu veux écrire.
ancienchamprenseigné est le champ qui contient ce que tu dois rechercher.