Discussion :

[loutsky]

Bonjour,

Ce code me permet de tracer des traits à gauche de chaque zone de texte de la section détail :

Code :

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

1
2
3
4
 
For Each MonControl In Détail.Controls
        X1 = [MonControl].Left
        Me.Line (X1, 0)-(X1, Détail.Height)

La partie suivante me permet de tracer un trait plus grand pour toutes les zones de texte de la ligne au cas ou une zone de texte serait plus grand que le détail (mes zones de texte et le détail sont autoextensibles)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        If ZoneDeTexte1.Height > Détail.Height Then
              Me.Line (X1, 0)-(X1, ZoneDeTexte1.Height)
        End If
        If ZoneDeTexte2.Height > ZoneDeTexte1.Height Then
              Me.Line (X1, 0)-(X1, ZoneDeTexte2.Height)
        End If
        If ZoneDeTexte3.Height > ZoneDeTexte2.Height Then
              Me.Line (X1, 0)-(X1, ZoneDeTexte3.Height)
        End If
        'etc avec toutes les autres zones de texte
Next

Ce que je voudrais, c'est pouvoir mettre ce code dans tous mes états et donc faire une boucle sur toutes mes zones de textes pour trouver la plus grande...
Quand je prends MonControl.height, il me donne la hauteur du contrôle mais pas sa valeur quand celui-ci est plus grand que prévu (autoextensible)
J'espère avoir été clair.
Quelqu'un saurait comment s'y prendre?

Merci de votre aide.

[marot_r]

C'est un peu normal, c'est seulement quand tu imprime le texte que Access connais sa hauteur réel.

J'ai eu un pb similaire, j'ai mis mon code de vérification de taille dans l'événement Format de la zone détail en ouvrant mon état en mode préview (et caché en prod) pour savoir quel taille faisait une de mes zones de texte.

A+

[loutsky]

Ce code est placé dans l'évenement "sur impression" de mon état. Il fonctionne très bien et j'arrive bien à avoir la taille de ma zone de texte quand elle est plus grande que prévu (ZoneDeTexte1.Height). Ce que j'arrive pas à faire, c'est faire une boucle sur toutes les zones de texte pour ne pas avoir à faire une série de if et pouvoir placer ce code dans n'importe quel état quelque soit le nom de mes zones de texte.

[marot_r]

Oops j'avais lu ton code un peu vite

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim c as control
dim c1 as control
 
for each c in me.details.controls
    if c.ControlType = acTextBox then
      for each c1 in me.details.controls
       'faire ton calcul sur le control c en cours
    end if
next c

A+

[marot_r]

Oops j'avais lu ton code un peu vite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim c as control
dim c1 as control
 
for each c in me.details.controls
    if c.ControlType = acTextBox then
      for each c1 in me.details.controls
         if c.name <> c1.name then
            'faire ton calcul sur le control en comparant c et c1
         end if
      next c1
    end if
next c

Ca va comparer ton controle courrant avec tous les autres controles textes.

Si tu veux juste le suivant tu peux travailler avec un indice :

Code :

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

1
2
 
if me.details.controls(i).height > me.details.controls(i+1) then

Évidement il faut gérer le cas du dernier controle.

A+

[loutsky]

Merci beaucoup !!!
J'y suis arrivé.
Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For Each C In Détail.Controls
    X1 = [C].Left
        Me.Line (X1, 0)-(X1, Détail.Height)
        For Each C1 In Détail.Controls
                If C1.Height >= C.Height Then
                    Me.Line (X1, 0)-(X1, C1.Height)
                End If
        Next C1
Next C

[philippedemetz]

Je n'ai pas réussi à le faire marché dans mon appli. En fait je crois qu'il n'est pas possible de déterminer la hauteur des

Oops j'avais lu ton code un peu vite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim c as control
dim c1 as control
 
for each c in me.details.controls
    if c.ControlType = acTextBox then
      for each c1 in me.details.controls
         if c.name <> c1.name then
            'faire ton calcul sur le control en comparant c et c1
         end if
      next c1
    end if
next c

Ca va comparer ton controle courrant avec tous les autres controles textes.

Si tu veux juste le suivant tu peux travailler avec un indice :

Code :

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

1
2
 
if me.details.controls(i).height > me.details.controls(i+1) then

Évidement il faut gérer le cas du dernier controle.

A+

[marot_r]

La hauteur des ?

Je te conseil d'ouvrir un nouveau sujet pour bénéficier de plus de visibilité.

A+