Discussion :

[stefoy]

J'ai un état qui est alimenté par une requête.

Comment puis-je ajuster la LARGEUR des zones de texte selon le contenu??

ex : dans mon état, j'ai 3 zones de texte : civilité, nom et prénom

mon problème c'est que si je mets une zone de texte petite pour le nom et bien les noms composés ne rentreront pas.

J'ai regardé dans les propriétés, je n'ai rien vu.

Quelqu'un connaîtrait-il une procédure ou une fonction?

Merci

[lucienkany]

Bonjour et bienvenu sur le forum!

Et si tu commençais par faire deux ou trois champs dans ta table, 1 Nom , 2 Prenom 3 postnom (à toi de voir dans quel ordre) tu pourras créer une zone de texte pour chaque champ, et les aligner à ta guise.

Courage.

[totofe]

interresse toi à la propriété auto extensible

[FreeAccess]

interresse toi à la propriété auto extensible

Sauf erreur, cette propriété ne "fonctionne" que sur la hauteur....pas la largeur.....

[stefoy]

Pour répondre à LuncienKany, j'ai déja ces 3 champs distincts dans ma table.

Ensuite je me suis intéressé à AutoExtensible et AutoReductible, mais en effet ça ne fonctionne que pour la hauteur.

En fait je crois, qu'il faudrait écrire une fonction qui compte le nombre de caractères et ensuite qui ajuste la largeur de la zone de texte en rapport avec le nombre de caractères trouvé. Mais je ne sais pas l'écrire.

Si quelqu'un sait?

[Invité]

Bonjour

Dans ce tuto de Caféine il y'a une explication sur les API pour récupérer des caractéristiques sur du texte. Cela peut peut-être t'aider.

Starec

[stefoy]

Ok Starec je vais regarder

[stefoy]

J'ai trouvé une procédure qui compte le nombre de lettres dans une zone de texte et qui renvoie par une boite de message ce nombre. La voici :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Report_Activate()
 
Dim ZoneTexteNom As String
 
ZoneTexteNom = Nom.Value
 
MsgBox Len(ZoneTexteNom)
 
End Sub

Maintenant, je voudrai ne pas afficher le nombre mais le récupère afin d'ajuster la largeur de la zone de saisie. Comment faire ?

[totofe]

j'ai longuement cherché à modifier le taille d'un champ dans un état à partir du VBA mais sans résultat. j'ai pourtant tout essayer, donc si quelqu'un sait comment faire qu'il le dise ^^

[Renardo]

A tu pensé a concatener ? sa peut etre une solution

[totofe]

A tu pensé a concatener ? sa peut etre une solution

je vois pas trop comment faire!!

[Renardo]

Un exemple rapide

[stefoy]

J'ai trouvé une solution.

Au départ j'ai 3 trois champs différents : nom de jeune fille, nom marital et prénom. Si je laisse tel quel dans mon état, je suis obligée d'agrandir au plus long de chacun la zone de texte afin que les noms les plus longs puissent apparaître. Le problème, c'est que quand les noms sont moins longs ça créé de grand vide.

Solution :

1- je concatène les 3 champs
2- je supprimer les espaces vides

J'applique cettre procédure sur l'activation de l'état.

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
Private Sub Form_Current()
'déclaration des variables
Dim NJF As String
Dim N As String
Dim P As String
Dim G As String
 
'initialisation des variables
NJF = NomJF.Value
N = Nom.Value
P = Prenom.Value
 
'remplacement des espaces vides par rien du nomJF et du nom 
NJF = Replace$(NJF, " ", "")
N = Replace$(N, " ", "")
 
'je mets la 1° lettre du prénom en majuscule et le reste en minuscule
P = UCase(Mid([P], 1, 1)) & LCase(Right([P], Len([P]) - 1))
 
'je remplace les espaces vides par rien
P = Replace$(P, " ", "")
 
'si le nom de jeune fille est égal au nom marital alors le nom de jeune fille est égal à 1 espca, sinon le nom de jeune de fille est égal au nom de jeune fille + épouse
If NJF = N Then
        NJF = " "
        Else
            NJF = NJF & "  épouse"
End If
 
 
'resultat : nom de jeune fille + nom marital + prénom
NomJFepouseNomPrenomConcatener = NJF & "  " & N & "  " & P

Ca fonctionnne bien. Le résultat est mis dans une zone de saisie que j'ai nommé NomJFepouseNomPrenomConcatener.

Par contre, j'ai un souci dans le cas des NOMS composés, car s'ils ont un espace entre eux il est supprimé, et du coup mes 2 noms sont acollés. Idem pour les prénoms composés. Aussi pour les prénoms composés, comment mettre la 1°lettre du 2°prénom en majuscule?