Replace avec boucle

Version imprimable

25/09/2015, 01h31
gagpie

Replace avec boucle

Bonjour,

J'ai une requête qui renvoie une liste avec plusieurs champs. L'un de ces champs contient plusieurs informations sous forme d'abréviations.

J'ai une table de correspondance et j'aimerais utiliser cette table afin de remplacer les abréviations par le champs description contenu dans ma table.

Donc:

Requête avec nom pnom adresse abvr. Le abr contient les abréviations comme : pl1; pl6; ab-ar; ...

Table Abréviation avec abvr et desc -> contient la description. La table contient une trentaine de champs avec la description.

Je suppose qu'avec une boucle, on peut effectuer le changement mais je ne sais pas comment faire ???

Merci pour votre aide.
25/09/2015, 09h24
madefemere

Bonjour,

Il faut effectivement utiliser une requête Mise à Jour (tu ne dis pas quelle version d'Access tu utilises, mais c'est pas grave). Tu peux faire avec l'assistant création de requête d'Access.

Question : Tu veux remplacer les valeurs du champ abr de ta première table par les valeurs Description de la table Abr ou tu veux rajouter un nouveau champ ??

Pour modifier les valeurs de abr :
1- Tu mets ta première table dans la fenêtre requête avec les champs nom; prenoms; adresse ; abr dans la grille d'interrogation.
2- Tu ajoutes la table Abréviation. Normalement, si tes 2 tables sont reliées correctement, la liaison va apparaître. Sinon, tu crées la liaison entre les 2 tables en sélectionnant le champ abr vers le champ abvr de la table Abréviation.
3- Tu ajoutes les 2 champs abvr et Description dans la grille d'interrogation.
4- Affiches ta requête en mode Feuille de données pour vérifier qu'elle renvoie bien tous les enregistrements de la première table. Si NON, tu double-cliques sur la ligne servant de liaison entre les 2 tables et une fenêtre va s'ouvrir qui te permet de définir le type de liaison dont t'as besoin. Re-vérifies en mode feuilles de données le nombre d'enregistrements.
5- Tu transformes ta requête en requête Mise à Jour. UN bouton correspondant à ce type de requête existe dans tes menus ou ruban (C'est pour cela que la version d'Access est important pour te guider).
6- Maintenant tu vas définir le champ à mettre à jour : sur la ligne "Mise à Jour : " du champ abr, tu mets [Description] ou [Abréviation].[Description] pour faire référence au champ de la table Abréviation.
7- Tu lances ta requête avec le point d'exclamation ===> Tes champs abr seront mis à jour !

C'est tout.

Cordialement,
25/09/2015, 16h47
gagpie

Précision

Bonjour,

ma requête contient un champs texte qui contient plusieurs valeurs. Le champs s'appelle remarque.

Le champs remarque possède plusieurs abréviations séparés par des ;.

EX:

IN-RS;PL1-4;PL5;PR.

Donc, le champs remarque peut contenir un ou plusieurs abréviations.

J'ai une table abréviation qui contient les abréviation et la description des abréviations.

Ce que je veux faire est de remplacer les abréviations (abvr) par les descriptions.

EX:

nom pnom ens remarque

Gagnon Pierre Boivert Lucille IN-ABS;PL1-4;PL5;PR.

Gagnon Pierre Luille Boivert fiche inscription absente ; pièce justificative 1 et 4 non valide ; Pièce justificative 5 non valide; profil de formation non reçu

Merci

1 pièce(s) jointe(s)

Bonsoir,

Compris. Je en pense pas que tu puisses faire cela avec une simple requête. Si des virtuoses du SQL passent par ici, ils pourront peut-être nous la faire.
Par contre en VBA, on peut avoir ce code :

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
Public Sub MAJABREVIATION()
Dim rstTablInit As DAO.Recordset
Dim elAbr As Variant
Dim i As Integer
Dim textevar As String
Set rstTablInit = CurrentDb.OpenRecordset("T_Projet", dbOpenDynaset)
'parcourir la table initale
With rstTablInit
    .MoveFirst
    While Not .EOF
        If Not IsNull(![abrv]) Then
            elAbr = Split(![abrv], ";")
            textevar = ""
            For i = 0 To UBound(elAbr)
                'Debug.Print elAbr(i)
                textevar = textevar & ";" & DLookup("[description]", "[Abreviation]", "[abrv]='" & elAbr(i) & "'")
            Next i
            textevar = Left(textevar, Len(textevar) - 1)
            .Edit
            ![textelong] = Right(textevar, Len(textevar) - 1)
            .Update
        End If
    .MoveNext
    Wend
End With
rstTablInit.Close: Set rstTablInit = Nothing
End Sub

où T_Projet est ta table, abrv est le champ d'abréviation.

La base exemple est jointe.

Cordialement,

28/09/2015, 17h03
gagpie

Suite

Merci pour la réponse,

J'ai cependant encore une petit souci.

Mon champ Remarque n'est pas exactement sous la forme:

abvr1;abvr3;abvr3

Il contient plusieurs caractères non voulu; car il n'y a aucun formatage de ce champs.

Il arrive qu'il contient plusieurs erreurs comme:

PJ 6; PR-ABS: ; Fermé le 21-09-15.

Donc, le code regarde la forme abvr1;abvr2;abvr3

Il faudrait que l'on ne regarde que les champs défini dans la table de correspondance des Abvr et laisser les autres caractères ou mots tel quel.

Est-ce qu'on peut adapter le code ?

Bonsoir,

Comme ça ?

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
Public Sub MAJABREVIATION()
Dim rstTablInit As DAO.Recordset
Dim elAbr As Variant
Dim i As Integer
Dim textevar As String
Set rstTablInit = CurrentDb.OpenRecordset("T_Projet", dbOpenDynaset)
'parcourir la table initale
With rstTablInit
    .MoveFirst
    While Not .EOF
        If Not IsNull(![abrv]) Then
            elAbr = Split(![abrv], ";")
            textevar = ""
            For i = 0 To UBound(elAbr)
                'Debug.Print elAbr(i)
                If Not IsNull(DLookup("[description]", "[Abreviation]", "[abrv]='" & elAbr(i) & "'")) Then
                    textevar = textevar & ";" & DLookup("[description]", "[Abreviation]", "[abrv]='" & elAbr(i) & "'")
                Else
                    textevar = textevar & ";" & elAbr(i)
                End If
            Next i
            .Edit
            ![textelong] = Right(textevar, Len(textevar) - 1)
            .Update
        End If
    .MoveNext
    Wend
End With
rstTablInit.Close: Set rstTablInit = Nothing
End Sub

Cordialement,

28/09/2015, 21h58
gagpie

Merci

Mais pas tout à fait.

Pour établir la variable elAbr, on utilise le ";" comme caractère de séparation.

Dans mon cas, j'ai des ponts (.) espace ( ) virgule (,) deux point (:) et autres.

Voici quelques cas du champs remarque:

PJ4-6 IN-ABS; PR-ABS
PJ 1-NV; IN-ABS; PR-ABS
PJ6;IN-ABS,PR-ABSFermé25.08.15
PJ1 -NV
PJ2, IN-ABS; PR-ABS
28/09/2015, 22h17
madefemere

Hum, c'est le vrai bazar quoi !
S'il n'y a aucune limite, cela ne va pas être évident.
Une méthode serait de détecter d'abord dans ton champ les éventuels caractères pouvant servir de délimitateurs et de les remplacer par "|" et ainsi faire le remplacement avec la fonction. Parce que je ne vois pas comment automatiser la fonction pour détecter les caractères servant de délimitateurs (fantômes).

Bonne continuation.