Discussion :

[xtof79]

Bonjour,
mon problème se situe au niveau de l'import des données d'une table temporaire à un autre, via une procédure INSERT INTO.
Je fusionne les données de 3 champs dans un autre, en les séparant par des tirets.
Certains de ces 3 champs (voire tous) pouvant être vides, je me retrouve donc avec des séries de tirets en début et en fin de chaîne, que j'aimerais supprimer.
J'ai pensé un moment incorporer des IIF (ou CASE) dans la procédure INSERT TO , pour ne pas ajouter de tirets en trop, mais l'imbrication s'avère très compliquée.
Je cherche donc plutôt à utiliser un UPDATE qui supprimerais tous les signets en début et fin de chaîne, mais pas quand il est placé entre 2 mots.
J'ai bien vu cette piste-là (c'est sur EXCEL) puisqu’il faudra bien j'imagine identifier la première et/ou dernière lettre de ma chaîne, mais ça me parait assez insurmontable de l'adapter...
Merci d'avance pour vos lumières !

[hyperion13]

Salut
Avec une requête de sélection, des fct Iif() imbriquées de l'ordre de 7 (2³ - 1 = 7 permutations possibles), vous testez les valeurs respectives de vos 3 champs et vous calculez le résultat attendu.

Code :

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

VraiFaux([varF1] Est Null Et [varF2] Est Null Et [varF3] Est Null;"";...

[micniv]

en complément de la solution d'hyperion, une petite fonction publique qui peut être utilisée dans une requete :

Code :

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

1
2
3
4
5
6
7
8
9
10
public function concat3col( varF1 as string, varF2 as string , varF3 as string) as string
dim s1 as string
s1=""
if len(nz(varF1)) > 0 then s1 = s1 & varF1 & "-"
if len(nz(varF2)) > 0 then s1 = s1 & varF2 & "-" 
if len(nz(varF3)) > 0 then s1 = s1 & varF3 & "-"
' on retire le dernier "-"
if len(s1) > 0 then s1 = left(s1 , len(s1) -1)
concat3col= s1
end function

[xtof79]

merci hyperion13, effectivement je m'y prenais mal avec les imbrications, en suivant ta logique, et en testant sur une requête sélection j'entrevois le résultat attendu... Je creuse le sillon, à moins d'avoir une proposition côté UPDATE...?

[tee_grandbois]

bonjour,
autre solution (qui fonctionne aussi avec INSERT):

Code :

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

1
2
SELECT Replace(Trim([varf1] & Space(1) & [varf2] & IIf(IsNull([varf2]),"",Space(1)) & [varf3]),Space(1),"-") AS ConcatF1F2F3
FROM MaTable;

avec éventuellement:

Code :

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

WHERE [varF1]&[varf2]&[varf3] Is Not Null

pour omettre les valeurs nulles

[xtof79]

merci pour vos propositions, je suis arrivé à mes fins avec la solution d'hyperion, le code est pas si imbuvable au final (chacun jugera) :

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
20
21
insertcle = "INSERT INTO T04_Cles ( Nom_Cle, Type_Cle, Code_Grave, Stock, [Enfant de], Serrure_Ouverte, Bâtiment, Etage, Domaine, [Usage] ) " & _
         "SELECT T042_Saisie_Cles.Nom_Cle,T042_Saisie_Cles.Type_Cle,T042_Saisie_Cles.Code_Grave,T042_Saisie_Cles.Stock,T042_Saisie_Cles.[Enfant de], T042_Saisie_Cles.Serrure_Ouverte,T042_Saisie_Cles.Bâtiment,T042_Saisie_Cles.Etage,T042_Saisie_Cles.Domaine " & _
         ",IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Null" & _
         " ,''," & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Not Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Null" & _
         ",[T042_saisie_cles].[Bâtiment], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Not Null AND [T042_Saisie_Cles].[Etage] Is Not Null AND [T042_Saisie_Cles].[Domaine] Is Null" & _
         ",[T042_Saisie_Cles].[Bâtiment] + ' - ' + [T042_Saisie_Cles].[Etage], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Not Null AND [T042_Saisie_Cles].[Domaine] Is Null " & _
         ",[T042_Saisie_Cles].[Etage], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Not Null AND [T042_Saisie_Cles].[Domaine] Is Not Null " & _
         ",[T042_Saisie_Cles].[Etage] + ' - ' + [T042_Saisie_Cles].[Domaine], " & _
          "IIf([T042_Saisie_Cles].[Bâtiment] Is Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Not Null " & _
         ",[T042_Saisie_Cles].[Domaine], " & _
         "IIf([T042_Saisie_Cles].[Bâtiment] Is Not Null AND [T042_Saisie_Cles].[Etage] Is Null AND [T042_Saisie_Cles].[Domaine] Is Not Null " & _
         ",[T042_Saisie_Cles].[Bâtiment] + ' - ' + [T042_Saisie_Cles].[Domaine] " & _
         ", [T042_Saisie_Cles].[Bâtiment] + ' - ' + [T042_Saisie_Cles].[Etage] + ' - ' + [T042_Saisie_Cles].[Domaine]))))))) " & _
         "AS [Usage] " & _
         "FROM T042_Saisie_Cles"
 
         DoCmd.RunSQL insertcle

Pas assez habile pour manier la fonction publique de micniv, mais j'y reviendrai peut-être...
Merci aux contributeurs ! (je clos le sujet)

[tee_grandbois]

je suis arrivé à mes fins avec la solution d'hyperion, le code est pas si imbuvable au final (chacun jugera) :

c'est sûr qu'à côté, la simplicité de ma proposition fait tâche

Code :

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

"Replace(Trim([T042_Saisie_Cles].[Bâtiment] & Space(1) & [T042_Saisie_Cles].[Etage] & IIf(IsNull([T042_Saisie_Cles].[Etage]),"",Space(1)) & [T042_Saisie_Cles].[Domaine]),Space(1)," - ") AS [Usage] "

[xtof79]

désolé tee_grandbois, j'ai exploité la solution que j'appréhendais le mieux (et accessoirement la 1ère proposée), et vu mon niveau, c'est plutôt de bon augure pour la qualité de ton code
Mais maintenant que tu m'as mâché le travail...
merci à toi !

[hyperion13]

Pensez à faire le ménage dans les lignes d'écriture !

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
insertcle = "INSERT INTO T04_Cles ( Nom_Cle, Type_Cle, Code_Grave, Stock, [Enfant de], Serrure_Ouverte, Bâtiment, Etage, Domaine, [Usage] ) " & _
         "SELECT Nom_Cle,Type_Cle,Code_Grave,Stock,[Enfant de], Serrure_Ouverte,Bâtiment,Etage,Domaine " & _
         ",IIf([Bâtiment] Is Null AND [Etage] Is Null AND [Domaine] Is Null" & _
         " ,''," & _
         "IIf([Bâtiment] Is Not Null AND [Etage] Is Null AND [Domaine] Is Null" & _
         ",[T042_saisie_cles].[Bâtiment], " & _
         "IIf([Bâtiment] Is Not Null AND [Etage] Is Not Null AND [Domaine] Is Null" & _
         ",[Bâtiment] + ' - ' + [Etage], " & _
         "IIf([Bâtiment] Is Null AND [Etage] Is Not Null AND [Domaine] Is Null " & _
         ",[Etage], " & _
         "IIf([Bâtiment] Is Null AND [Etage] Is Not Null AND [Domaine] Is Not Null " & _
         ",[Etage] + ' - ' + [Domaine], " & _
          "IIf([Bâtiment] Is Null AND [Etage] Is Null AND [Domaine] Is Not Null " & _
         ",[Domaine], " & _
         "IIf([Bâtiment] Is Not Null AND [Etage] Is Null AND [Domaine] Is Not Null " & _
         ",[Bâtiment] + ' - ' + [Domaine] " & _
         ", [Bâtiment] + ' - ' + [Etage] + ' - ' + [Domaine]))))))) " & _
         "AS [Usage] " & _
         "FROM T042_Saisie_Cles"

Pas eu le temps de regarder ce qui cloche dans vos codes respectifs.

[tee_grandbois]

salut hyperion,
je n'ai pas l'erreur sur mon jeu de test (bravocharlie = blanc-rouge chez moi):

Code :

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

1
2
3
4
SELECT [Matable].ID, [Matable].varF1, [Matable].varF2, [Matable].varF3, Replace(Trim([varf1] & Space(1) & [varf2] & IIf(IsNull([varf2]),"",Space(1)) & [varf3]),Space(1)," - ") AS ConcatF1F2F3
FROM MaTable
WHERE ((([varF1] & [varf2] & [varf3]) Is Not Null))
ORDER BY [Matable].varF1 DESC , [Matable].varF2 DESC , [Matable].varF3 DESC;

tes valeurs vides contiennent-elles nul ou "" ?

[hyperion13]

@tee_grand
m'a trompé C'est OK

[tee_grandbois]

Pas eu le temps de regarder ce qui cloche dans vos codes respectifs.

pour le code de micniv, il faut remplacer String par Variant ou rien du tout (car Variant est le type par défaut) dans les paramètres de la fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function concat3col(varF1, varF2, varF3) As String
Dim s1 As String
s1 = ""
If Len(Nz(varF1)) > 0 Then s1 = s1 & varF1 & " - "
If Len(Nz(varF2)) > 0 Then s1 = s1 & varF2 & " - "
If Len(Nz(varF3)) > 0 Then s1 = s1 & varF3 & " - "
' on retire le dernier " -"
If Len(s1) > 0 Then s1 = Left(Trim(s1), Len(s1) - 2)
concat3col = s1
End Function

[xtof79]

Salut,
je me suis replongé sur mon code, suite à vos discussions, et parce que j'ai voulu intégrer un 4e champ. L'empilement des iif étant devenu ingérable, j'ai opté pour la solution "tee_grandbois", mais dans mon cas elle m'ajoute des tirets en milieu de chaîne quand les données d'origine ont des espaces... argh !
J'ai fini par dompter la technique micniv, et ça donne ça :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
' procédure préalable à la concaténation des colonnes Serrures, bâtiment, étage, domaine dans Usage
Dim VarF1 As String
Dim VarF2 As String
Dim VarF3 As String
Dim VarF4 As String
VarF1 = Nz(Me.[Serrure_ouverte])
VarF2 = Nz(Me.[Bâtiment])
VarF3 = Nz(Me.[Etage])
VarF4 = Nz(Me.[Domaine])
Dim usg As String
usg = ""
If Len(VarF1) > 0 Then usg = usg & VarF1 & " - "
If Len(VarF2) > 0 Then usg = usg & VarF2 & " - "
If Len(VarF3) > 0 Then usg = usg & VarF3 & " - "
If Len(VarF4) > 0 Then usg = usg & VarF4 & " - "
' on retire le dernier " -"
If Len(usg) > 0 Then usg = Left(Trim(usg), Len(usg) - 2)
 
 
 ' procédure d'insertion des clés dans la table T04
 
Dim insertcle As String
 
insertcle = "INSERT INTO T04_Cles ( Nom_Cle, Type_Cle, Code_Grave, Stock, [Enfant de], Serrure_Ouverte, Bâtiment, Etage, Domaine, Usage ) " & _
         "VALUES (T042_Saisie_Cles.Nom_Cle " & _
         ",T042_Saisie_Cles.Type_Cle " & _
         ",T042_Saisie_Cles.Code_Grave " & _
         ",T042_Saisie_Cles.Stock " & _
         ",T042_Saisie_Cles.[Enfant de] " & _
         ",T042_Saisie_Cles.Serrure_Ouverte " & _
         ",T042_Saisie_Cles.Bâtiment " & _
         ",T042_Saisie_Cles.Etage " & _
         ",T042_Saisie_Cles.Domaine " & _
         ",'" & usg & "')"
         DoCmd.RunSQL insertcle

ça paraît tellement simple après coup !
En tous cas ça marche nickel, encore merci à tous les 3 !

[tee_grandbois]

bonsoir,

j'ai opté pour la solution "tee_grandbois", mais dans mon cas elle m'ajoute des tirets en milieu de chaîne quand les données d'origine ont des espaces... argh !

pour mon code, le principe aurait été le même, sauf qu'il fallait mettre 3 espaces entre chaque valeur non vide et si il n'y a que des espaces sans autre caractère significatif (étrange car Access supprime les espaces par défaut en fin de chaiîne), on utilise Trim() :

Code SQL :

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

select Replace(Trim(Trim([varf1]) & IIf(IsNull(Trim([varf2])),"",Space(3)) & Trim([varf2]) & IIf(IsNull(trim([varf3])),"",Space(3)) & trim([varf3]) & IIf(IsNull(trim([varf4])),"",Space(3)) & trim([varf4])),Space(3)," - ") AS [ConcatF1-4] FROM MATABLE;

sinon, c'est vrai que le code de micniv fait très bien le travail

[User]

Bonjour,

J'arrive un peu tard

A noter que dans ce type de problème, quand le nombre de champs varFi augnente, il peut être intéressant d'utiliser un tableau de paramètres :

https://learn.microsoft.com/fr-fr/of...rameter-arrays

A passer comme argument vars() dans une fonction concatener :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function concatener(ParamArray vars() As Variant)
    Dim i As Long
 
    For i = 0 To UBound(vars)
        If Nz(vars(i)) <> "" Then
            concatener = concatener & vars(i) & " - "
        End If
    Next i
 
    If Len(concatener) > 2 Then
        concatener = Left(concatener, Len(concatener) - 3)
    End If
 
End Function

Ensuite, on appel la fonction dans la requête comme ceci pour 4 champs :

concatF1-4: concatener([varF1];[varF2];[varF3];[varF4])

Cdlt,