Discussion :

[YOP33]

Bonjours à tous

Voilà le soucis qui m'amene

Dans un formulaire j'ai 5 champs, je souhaite les concatener dans un 6eme champs par ordre alphabetique.
Les 5 champs ne sont pas nécéssairement tous remplis, par contre si le 4 et 5 sont vide le 1,2 et 3 sont remplis.
Dans la concatenation entre chaque mot j'ajoute un " - " je suis donc contraint de ne concatener que les champs remplis
et là ça coince!

Y à t-il une solution à ce problème

[gberthier]

Salut

Tu peux écrire un truc du genre: =VraiFaux([Champ1]<>0;[Champ1]&" - "&[Champ2]&...);VraiFaux([Champ2]<>0;[Champ2]&" - "&[Champ3]&...);VraiFaux...

[YOP33]

Merci

J'ai essayer de saisir un truc du genre dans source controle, mais malheureusement çà ne reste pas ?

[gberthier]

Dans source contrôle?

Ce genre de truc, moi je le met soit dans une zone de texte, soit dans le critère d'une requete mise à jour...

[YOP33]

Bonjour

Oui dans une Zone de Texte, Proprietés, Données, et Source controle et là c'est la misère
quelque chose m'échappe!
J'ai aussi essayé avec les boucles IF THEN ; ElseIF, End If, mais je sèche

[gberthier]

Salut,
Envoie ton code qui ne marche pas, on sais jamais, c'est peut être une histoire de syntaxe...

[YOP33]

Bonjour
C'est peut etre plus je débute alors pitier un peu d'indulgence

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
Private Sub Visualise_Commande102_Click()
'affiche le champ ouvrage et bouton enregistre
Me![Ouvrage_Texte100].Visible = True
Me![Enregistre_Commande14].Visible = True
Me![Indice_Étiquette84].Visible = True
Me![Indice_Texte83].Visible = True
 
'Concatener
a = Me![Extrémité_1_Texte73] '1er champ
b = Me![Extrémité_2_Texte75] '2eme champ
c = Me![Extrémité_3_Texte77] '3eme champ
d = Me![Extrémité_4_Texte79] '4eme champ
e = Me![Extrémité_5_Texte81] '5eme champ
'2Extrélité
If b > 0 Or a > b Then 'Verifie le nombre de champs renseignés et 1er champ >au 2eme
Me![Ouvrage_Texte100] = b + " - " + a 'alors
ElseIf b > 0 Or a < b Then
Me![Ouvrage_Texte100] = a + " - " + b
End If
'3Extrémité cas 1
If c > 0 Or a > b Then
Me![Ouvrage_Texte100] = b + " - " + a + " -" + c
ElseIf c > 0 Or a < b Then
Me![Ouvrage_Texte100] = a + " - " + b + " -" + c
End If
If c > 0 Or b > a Then
Me![Ouvrage_Texte100] = b + " - " + a + " -" + c
End If

Alors c'est grave!