Ajuster la taille des champs selon leur contenu

Version imprimable

29/03/2016, 22h42
2ismawan

1 pièce(s) jointe(s)

Ajuster la taille des champs selon leur contenu

salut,

j'ai un formulaire de recherche qui affiche mes résultats de recherche dans une zone de liste,le problème que j'ai qu'il des champs qui contient beaucoup des information qui ne sont pas bien affichée,est ce que c'est possible d'avoir les tailles des champs selon le contenu j’espère que j'ai bien expliquer mon problème?

Ci-dessous, une image qui montre que mon libellé ne s'affiche pas bien
30/03/2016, 11h20
argyronet

Bonjour,

Pour ce type de vue dans un tel formulaire, tu ne peux pas envisager un ajustement car ce serait trop large et finalement pas pratique et peu lisible.
Je suggère plutôt de laisser cette présentation et en plus la tronquer, par exemple :

Un libellé est, depuis le Moyen Âge un terme de droit canon et romain qui désigne...

Celui qui veut la lire clique dessus.

Après quoi, tu peux poser un bouton qui jouxte le ligne (avec un oeil comme image) ou qui est carrément dessus (mais dans ce cas, transparent) et qui permet de lire l'intégralité du contenu.
Tu peux alors t'inspirer du tuto de Claude sur le positionnement d'un formulaire par rapport au contrôle d'un autre formulaire et celui de caféine pour ajuster en hauteur...

Je pense que c'est une bonne solution.

Argy
30/03/2016, 12h53
2ismawan

1 pièce(s) jointe(s)

salut,
Merci pour la réponse,la libellé ne s'affiche pas même si je clique la dessus,c'est une zone de liste
j'ai pas bien compris le bouton jouxte le ligne ou je vais le mettre?
voilà ma base

Oui, si c'est une zone de liste, tu ne pourras pas ajouter de bouton.

Certes, avec un écran en 16/9, tu pourrais jouer sur la propriété Largeurs colonnes mais tu ne pourras pas déterminer de façon simple l'espace requis pour afficher tous les mots.

Bref, tu peux tenter dans un premier temps le DoubleClick :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub lst_resultat_DblClick(Cancel As Integer) Dim lngDIB As Long Dim strLibelle As String With lst_resultat lngDIB = .Column(0) strLibelle = Nz(DLookup("Libelle", "SituationbudgaitaireGT2015", "[DIB]=" & lngDIB), "Aucun libellé") MsgBox strLibelle, , "Libellé" End With End Sub
A toi d'adapter selon la clause WHERE attendue...
Argy

30/03/2016, 14h30
2ismawan

j'ai appliquer le code dans l’événement double clique mais m'affiche un erreur :
erreur d’exécution 13
incompatibilité de type
30/03/2016, 14h34
argyronet

Quand tu écris "appliqué", ça signifie Copié/Collé ou bien...?

Si ce n'est pas le cas, peux-tu montrer le code que tu as écris ?

Argy
30/03/2016, 14h43
2ismawan

oui j'ai fait copié coller dans l’événement double clique
30/03/2016, 16h47
argyronet

J'ai pris ta base et j'ai créé ce bloc sans problème...

Y a t-il quelque chose de différent par rapport à la version initiale ?
30/03/2016, 16h56
2ismawan

vous pouvez m'envoyer la base avec le code que vous avez ajouté?
30/03/2016, 17h06
2ismawan

oui c'est fait avec la base que je t'ai envoyer mais avec la base que j'ai et qui contient mes données ca m'affiche des erreurs,mais le probléme c'est que aprés la rechercher je veux copier tout l'ensemble de ma recherche et avec cette methode je ne peux pas fait le copiage
30/03/2016, 17h45
Malick

2 pièce(s) jointe(s)

:salut:

Citation:

Envoyé par 2ismawan

vous pouvez m'envoyer la base avec le code que vous avez ajouté?

Voici la base avec le code d'Argyronet:hola: qui fonctionne sur double-clic :

Pièce jointe 205405
30/03/2016, 18h04
2ismawan

1 pièce(s) jointe(s)

salut,
merci pour la base,j'ai trouvée ou es l'erreur lorsque je double clique sur un enregistrement qui n'a pas de dib
30/03/2016, 19h02
argyronet

Il fait être plus pointilleux en matière de vérification des données.

Ton mode de recherche doit inclure la non-nullité des champs ou alors, il faut monter une gestion d'erreur musclée.

Argy
30/03/2016, 19h12
2ismawan

j'ai pas bien compris?

Bon... ça va être un peu compliqué.

On va faire plus simple :

déjà, dans ta base, modifie tes requêtes GT et INV et ajoute le champ N° en première colonne ;
ensuite modifie ta zone de liste lst_resultat à 22 colonnes dont la première à 0 ;
enfin modifie le code comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub lst_resultat_DblClick(Cancel As Integer)
Dim lngDIB                                             As Long
Dim strLibelle                                         As String
Dim I                                                  As Long
Dim vntNo                                              As Variant
    With lst_resultat
        For Each vntNo In .ItemsSelected
            lngDIB = .ItemData(.ItemsSelected(I))
            Exit For
        Next vntNo
        strLibelle = Nz(DLookup("Libelle", Me.cbo_table, "[N°]=" & lngDIB), "Aucun libellé")
        MsgBox strLibelle, , "Libellé"
    End With
End Sub

et là, tu n'auras plus d'erreur.

Argy

31/03/2016, 18h02
2ismawan

Merci Pour la solution,j'ai encore une petite question si par exemple je fais la recherche et lorsque je sélectionne ma recherche et je clique droite lorsque je clique sur copier et lorsque je veux coller ma résultat ca ne colle jamais pourqoui?
01/04/2016, 12h45
argyronet

Bonjour,

Souvent, le collage est bloqué par un ¶ (retour à la ligne) ; le collage est effectif mais pas visible.

Que se passe t-il si tu colles dans Notepad ? (juste pour voir ce que tu copies/colles)

Argy