Discussion :

[ver_for2]

Bonjour,
J'ai une série de champs décrivant l'adresse d'une personne et je souhaite les afficher sur un état, avec une liste d'étiquettes et de text bx
J'ai donc ceci par exemple

Adresse1 : 15 Rue des roseaux
Adresse2 : Batiment B
Adresse3 : Escalier 4
Code postal: 75001
Ville: Paris

Si certains champs ne sont pas renseignés j'ai des lignes vides, par exemple

Adresse1 : 13 place des lilas
Adresse2 :
Adresse3 :
Code postal: 75001
Ville: Paris

Alors que je souhaiterais avoir ceci

Adresse1 : 13 place des lilas
Code postal: 75001
Ville: Paris

Je ne souhaite donc pas cacher les lignes vides mais dans un cas où une ligne est vide déplacer la suivante vers le haut.

Comment puis-je faire?

Merci pour vos réponses.

[tee_grandbois]

bonjour,

Je ne souhaite donc pas cacher les lignes vides mais dans un cas où une ligne est vide déplacer la suivante vers le haut.

Comment puis-je faire?

c'est possible mais tout dépend de ce que souhaites faire des champs vides restants, les réduire, les rendre invisible, les utiliser aussi ... ?

[ver_for2]

Merci pur cette réponse rapide

bonjour,

c'est possible mais tout dépend de ce que souhaites faire des champs vides restants, les réduire, les rendre invisible, les utiliser aussi ... ?

Sur l'état je ne souhaite afficher que les champs renssignés mais sans laisser de ligne vide.
Autrement dit si un champ est vide, le suivant est "remonté"

Au lieu d'avoir

Adresse1 : 13 place des lilas
Adresse2 :
Adresse3 :
Code postal: 75001
Ville: Paris
je souhaiterais avoir ceci

Adresse1 : 13 place des lilas
Code postal: 75001
Ville: Paris

[tee_grandbois]

Sur l'état je ne souhaite afficher que les champs renssignés mais sans laisser de ligne vide.
Autrement dit si un champ est vide, le suivant est "remonté"

j'avais compris la première, mais il reste à savoir ce qui se passe pour les champs après l'adresse:

si tout est renseigné
ligne 1: Adresse1 : 13 place des lilas
ligne 2: Adresse2 : Bâtiment B
ligne 3: Adresse3 : Escalier 4
ligne 4: Code postal: 75001
ligne 5: Ville: Paris
ligne 6: autres données ...

si tout n'est pas renseigné
ligne 1: Adresse1 : 13 place des lilas
ligne 2: Code postal: 75001
ligne 3: Ville: Paris
ligne 4: qu'est-ce qu'on en fait ?
ligne 5: qu'est-ce qu'on en fait ?
ligne 6: autre donnée

[ver_for2]

j'avais compris la première, mais il reste à savoir ce qui se passe pour les champs après l'adresse:

si tout est renseigné
ligne 1: Adresse1 : 13 place des lilas
ligne 2: Adresse2 : Bâtiment B
ligne 3: Adresse3 : Escalier 4
ligne 4: Code postal: 75001
ligne 5: Ville: Paris
ligne 6: autres données ...

si tout n'est pas renseigné
ligne 1: Adresse1 : 13 place des lilas
ligne 2: Code postal: 75001
ligne 3: Ville: Paris
ligne 4: qu'est-ce qu'on en fait ?
ligne 5: qu'est-ce qu'on en fait ?

L'idée est que la ligne 3 et la ligne 6 soient "Collées"

ligne 6: autre donnée

[tee_grandbois]

bonjour,
je pars du principe que l'adresse 1 est toujours renseignée.
L'idée est de rendre les contrôles et la section Détail auto-réductibles et par conséquent de remplacer les étiquettes par des champs de texte car les étiquettes n'ont pas cette propriété.
Dans la requête on type les cas rencontrés (adresse2 vide, adresse3 vide) et on leur attribue une valeur.

Code :

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

Cas: VraiFaux([Adresse2] & ""="";2;0) + VraiFaux([Adresse3] & ""="";4;0)

on aura donc:
- 0 aucune adresse vide
- 2 adresse 2 vide
- 4 adresse 3 vide
- 6 adresse2 et adresse 3 vides

Il ne reste plus qu'à remplir les champs en fonction des cas, par exemple pour l'adresse 2:

Code :

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

=PremVrai([cas]=0 Ou [cas]=4;[Adresse2];[cas]=2;[Adresse3];[cas]=6;[codpos])

et pour l'"étiquette" adresse 2 :

Code :

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

=PremVrai([cas]=0 Ou [cas]=4 Ou [cas]=2;"Adresse2: ";[cas]=6;"Code postal: ")

tout est dans la base de test
DecalerAdresse.zip

[Tortille]

Bonjour VerFor2,

Pour imprimer les adresses, je passe par une requête qui combine l'adresse en colonne à l'aide d'une fonction, après je mets le champ dans l'état et ça ce fait tout seul.

La fonction qui combine en colonne : (elle n'est pas de moi, je ne sais plus où je l'ai trouvé.)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function CombineEnColonne(ParamArray arrLines())
    ' La fonction combine les lignes
    'Par exemple : strAdresseCombinee = CombineEnColonne(Nom, Adresse, Adresse2, CodePostal, Ville, Pays)
Dim X As Integer, strLine As String
    For X = 0 To UBound(arrLines)
        If Nz(arrLines(X), vbNullString) <> vbNullString And arrLines(X) <> " " Then
            strLine = strLine & arrLines(X) & vbCrLf
        End If
    Next
    CombineEnColonne = strLine
End Function

et dans la requête, le champ :

Code :

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

AdresseClientColonne: CombineEnColonne([Adresse];([CodePostal] & " " & Majuscule([Ville]));(VraiFaux(Majuscule([IdPay])=68;"";[PaysMaj])))

Code :

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

VraiFaux(Majuscule([IdPay])=68;"";[PaysMaj])

68 est le code du pays "France" dans ma base, donc si c'est 68, je n'ajoute pas le pays.

Personnellement, je saisis les adresses dans un contrôle qui a 3 lignes, donc mon champ adresse peut être sur 1, 2 ou 3 lignes.
Mais d'après la fonction tu peux séparer les lignes en adresse1, adresse2... comme tu fais.

Bien cordialement