Discussion :

[marsupilami34]

Bonjour à tous,

J'ai créé un sous formualaire dans un formulaire qui m'affiche le résultat d'une requete.
Le truc c'est que dans ce résultat, j'ai un champ de type mémo avec des retour chariot.
J'aimerai pouvoir ajuster mes hauteurs de ligne ou alors leur donner une valeur par défaut. Cela est-il possible ?

Merci d'avance.

Marsup

[tee_grandbois]

Bonsoir,
Une suggestion avec ce code qui ajuste la hauteur du champ mémo par rapport à son nombre de caractères ou du nombre de retour chariot trouvés.
On divise le nombre de caractères du champ par un nombre supposé de caractères par lignes (70 dans ce code) multiplié par la hauteur d'une ligne (180 twips, soit un peu plus de 3mm).
A toi d'ajuster les paramètres en fonction de ton besoin:

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
Private Sub Form_Current()
Dim lgnbRC As Long  ' nombre de retours chariot
' (Taille du champ mémo / nombre de caractères par lignes) * hauteur de ligne en twips (~ 56.7 twips pour 1 mm)
If Len(Me.Memo) > 0 Then
    Me.Memo.Height = (Len(Me.Memo) / 70) * 180 '(un peu plus de 3 mm de hauteur de ligne avec Police Tahoma 8)
End If
 
' On compte le nombre de retours chariot
If Not IsNull(Me.Memo) Then
    lgnbRC = Len(Me.Memo) - Len(Replace(Me.Memo, Chr(13), "")) / Len(Chr(13))
    If lgnbRC <> 0 Then
        Me.Memo.Height = 56.7 * lgnbRC
    End If
End If
 
' Hauteur mini et par défaut
If Me.Memo.Height < 567 Or IsNull(Len(Me.Memo)) Then
    Me.Memo.Height = 567
End If
 
' Hauteur maxi = Hauteur maxi du SF dans le formulaire parent
If Me.Memo.Height > 4500 Then Parent.Form.SF1.Height
' On adapte la hauteur de la ligne détail selon la taille du champ mémo + la hauteur non occupée par le champ mémo
Me.Détail.Height = Me.Memo.Height + 567
 
End Sub

Le résultat n'est pas très précis mais cela fonctionne. De plus, en mode continu, la hauteur de ligne de l'enregistrement en cours est appliquée à tous les autres.

[marsupilami34]

Bonjour et merci pour la réponse.

Je pense que vais adapter le code et je pense que ca va pas mal m'aider.
J'ai néanmoins une autre question. Dans ce sous formulaire, il s'agit du résultat d'une requête. Quelle modification dois-je faire au code pour regarder uniquement le champ 3 de ma requête. Autrement dit, comment remplacer le Me.Memo par Me.fields("Champ_Memo") par exemple ?

Merci d'avance.

Marsup

[marsupilami34]

Re-Bonjour,

Mon code ne reconnait pas la propriété

Code :

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

Me.Détail.Height

.

Est-ce normal ?

Merci.
Marsup

[Edit]
En fait si, la proprété Détail est connu mais qu'au niveau du formulaire, pas du sous formulaire

[robyseb]

Pour cibler ton sous-formulaire tu doit préciser ceci

Code :

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

Forms!Nom_du_formulaire_Principal!Nom_du_Sousformulaire.forms.détail.height

[marsupilami34]

Code :

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

Forms!Nom_du_formulaire_Principal!Nom_du_Sousformulaire.forms.détail.height

J'ai une erreur sur le .forms :
Membre de méthode ou de données introuvable

[tee_grandbois]

Bonsoir,
As-tu bien placé le code dans le sous-formulaire sur l'évènement "Sur activation" ?

[marsupilami34]

Bonsoir,
As-tu bien placé le code dans le sous-formulaire sur l'évènement "Sur activation" ?

Bonjour,

Et bien non car lors de l'ouverture du formulaire principal, une initialisation se fait. Ensuite, l'utilisateur saisi des données et c'est après un événement click que le sous forlulaire doit se mettre à jour. Et j'ai placé le code dans un module.

Et puis je n'ai pas l'éveement "activation" sur mon formulaire.
J'ai mis en pièce jointe une copie écran

Merci d'avance de votre aide.
Marsup

[tee_grandbois]

Bonjour,
Tu dois mettre le code dans le sous-formulaire.
D'après la copie d'écran, ton sous-formulaire est ouvert en création en même temps que ton formulaire principal.
Soit tu ouvres ton formulaire principal en mode création et, pour accéder aux propriétés du sous-formulaire, tu cliques d'abord sur l'objet sous-formulaire et ensuite sur le carré en haut à gauche de ton sous-formulaire, soit tu ouvres directement ton sous-formulaire pour y acccéder.

[robyseb]

Erreur de frappe ....

Code :

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

.form

donc pas de S

Et tu te retrouve sans l'évènement puisque ton formulairen'est pas présent ... surement parce que tu l'avait déja ouvert en création ou en mode normal avant l'ouverture de ton formulaire principal....

donc solution ferme tes 2 formulaires puis ré-ouvre ton formulaire principale il va s'afficher correctement et non pas seulement un rectangle vide