Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gilles MOUGNOZ
Bonsoir à toutes et à tous, J'ai, dans une requètes les champs Fourn_1, Fourn_2,......, Fourn_10. Je désire concatener ces champs les uns sous les autres : fournisseurs: [Fourn_1] & Car(13) & Car(10) & [Fourn_2] & Car(13) & Car(10) & [Fourn_3] & Car(13) & Car(10) ... mais je veux éviter les lignes blanches, comment faire ? Remerciements anticipés, JPB
Les "Iif" seront automatiquement transformés en "VraiFaux" mais c'est normal. Si tu écris directement en SQL, remplace les points-virgules ( ; ) par des virgules ( , ).
Bonne continuation
Bonsoir à toutes et à tous,
J'ai, dans une requètes les champs Fourn_1, Fourn_2,......, Fourn_10.
Je désire concatener ces champs les uns sous les autres :
fournisseurs: [Fourn_1] & Car(13) & Car(10) & [Fourn_2] & Car(13) &
Car(10) & [Fourn_3] & Car(13) & Car(10) ...
mais je veux éviter les lignes blanches, comment faire ?
Remerciements anticipés,
JPB
Les "Iif" seront automatiquement transformés en "VraiFaux" mais c'est
normal.
Si tu écris directement en SQL, remplace les points-virgules ( ; ) par des
virgules ( , ).
Bonsoir à toutes et à tous, J'ai, dans une requètes les champs Fourn_1, Fourn_2,......, Fourn_10. Je désire concatener ces champs les uns sous les autres : fournisseurs: [Fourn_1] & Car(13) & Car(10) & [Fourn_2] & Car(13) & Car(10) & [Fourn_3] & Car(13) & Car(10) ... mais je veux éviter les lignes blanches, comment faire ? Remerciements anticipés, JPB
Les "Iif" seront automatiquement transformés en "VraiFaux" mais c'est normal. Si tu écris directement en SQL, remplace les points-virgules ( ; ) par des virgules ( , ).
[Fourn_1] & IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10)) & [Fourn_2] & IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10)) & .........
Ce qui n'est pas non plus bien léger surtout avec 8 fournisseurs ; qui fait mieux et comment ?
[Fourn_1] &
IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10))
&
[Fourn_2] &
IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10))
&
.........
Ce qui n'est pas non plus bien léger surtout avec 8 fournisseurs ;
qui fait mieux et comment ?
[Fourn_1] & IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10)) & [Fourn_2] & IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10)) & .........
Ce qui n'est pas non plus bien léger surtout avec 8 fournisseurs ; qui fait mieux et comment ?
JPB
jean-paul.bataille
La nuit portant conseil, j'avais trouvé :
[Fourn_1] & IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10)) & [Fourn_2] & IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10)) & .........
Mais qui présente le défaut majeur suivant :
s'il y a un Fourn a Null il n'y a pas de saut de ligne.
JPB
La nuit portant conseil, j'avais trouvé :
[Fourn_1] &
IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10))
&
[Fourn_2] &
IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10))
&
.........
Mais qui présente le défaut majeur suivant :
s'il y a un Fourn a Null il n'y a pas de saut de ligne.
[Fourn_1] & IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10)) & [Fourn_2] & IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10)) & .........
Mais qui présente le défaut majeur suivant :
s'il y a un Fourn a Null il n'y a pas de saut de ligne.
JPB
Gilles MOUGNOZ
La nuit portant conseil, j'avais trouvé : [Fourn_1] & IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10)) & [Fourn_2] & IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10)) & ......... Mais qui présente le défaut majeur suivant : s'il y a un Fourn a Null il n'y a pas de saut de ligne. JPB
Bonjour, Jean-Paul
Une autre solution consisterait à créer une fonction VBA qui renverrait la chaîne correctement formatée.
Public Function FournisseursFormates(Fo1 as Variant, Fo2 as Variant, ...) as String FournisseursFormates = "" If Nz(Fo1,"")<>"" Then FournisseursFormates = FournisseursFormates & Fo1 & vbNewLine If Nz(Fo2,"")<>"" Then FournisseursFormates = FournisseursFormates & Fo2 & vbNewLine ... End Function
Dans la requête, tu remplaces alors par:
FournisseursFormates([Fourn_1],[Fourn_2],....)
Bonne continuation
La nuit portant conseil, j'avais trouvé :
[Fourn_1] &
IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10))
&
[Fourn_2] &
IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10))
&
.........
Mais qui présente le défaut majeur suivant :
s'il y a un Fourn a Null il n'y a pas de saut de ligne.
JPB
Bonjour, Jean-Paul
Une autre solution consisterait à créer une fonction VBA qui renverrait la
chaîne correctement formatée.
Public Function FournisseursFormates(Fo1 as Variant, Fo2 as Variant, ...) as
String
FournisseursFormates = ""
If Nz(Fo1,"")<>"" Then FournisseursFormates = FournisseursFormates & Fo1
& vbNewLine
If Nz(Fo2,"")<>"" Then FournisseursFormates = FournisseursFormates & Fo2
& vbNewLine
...
End Function
La nuit portant conseil, j'avais trouvé : [Fourn_1] & IIf([Fourn_1] Is Not Null And [Fourn_2] Is Not Null,Chr(13) & Chr(10)) & [Fourn_2] & IIf([Fourn_2] Is Not Null And [Fourn_3] Is Not Null,Chr(13) & Chr(10)) & ......... Mais qui présente le défaut majeur suivant : s'il y a un Fourn a Null il n'y a pas de saut de ligne. JPB
Bonjour, Jean-Paul
Une autre solution consisterait à créer une fonction VBA qui renverrait la chaîne correctement formatée.
Public Function FournisseursFormates(Fo1 as Variant, Fo2 as Variant, ...) as String FournisseursFormates = "" If Nz(Fo1,"")<>"" Then FournisseursFormates = FournisseursFormates & Fo1 & vbNewLine If Nz(Fo2,"")<>"" Then FournisseursFormates = FournisseursFormates & Fo2 & vbNewLine ... End Function
