Discussion :

[Shankara]

Bonjour à tous,

J'ai consulté la FAQ Access à propos du redimensionnement d'un sous-formulaire et j'ai trouvé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
    Me.TonSousForm.Form.InsideHeight = Me.TonSousForm.Form.Section(acHeader).Height _
                                     + Me.TonSousForm.Form.Section(acFooter).Height _
                                     + Me.TonSousForm.Form.Section(acDetail).Height _
                                     * (Me.TonSousForm.Form.RecordsetClone.RecordCount _
                                     -  Me.TonSousForm.Form.AllowAdditions)
    Me.TonSousForm.Height = Me.TonSousForm.Form.WindowHeight
End Sub

Après l'avoir adapté à mon code, cela fonctionne très bien. Pourtant, j'ai du mal à comprendre comment cela fonctionne. J'ai consulté l'aide sur les 3 propriétés InsideHeight, Height et WindowHeight mais cela ne m'a pas vraiment éclairée.

Ce que j'ai du mal à comprendre, c'est que l'on calcule une valeur pour InsideHeight (hauteur de la fenêtre contenant un formulaire), mais que l'on ne s'en sert pas pour définir Height (hauteur d'un sous-formulaire) et que l'on utilise WindowHeight (hauteur d'un formulaire) à la place alors que l'on ne l'a pas valorisée.

Quelqu'un pourrait-il m'expliquer clairement en français ce que fait exactement ce code afin que je comprenne à quoi sert exactement chaque propriété car je suis perdue là.

Merci pour vos réponses.

[loufab]

Bonjour,

Code :

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

Private Sub Form_Current()

A la lecture de l'enregistrement

Code :

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

    Me.TonSousForm.Form.InsideHeight =

La taille de la fenêtre contenant le sous-formulaire, donc la taille de l'objet contenant le sous-formulaire, est égal à :

Code :

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

1
2
3
 
 Me.TonSousForm.Form.Section(acHeader).Height _
 + Me.TonSousForm.Form.Section(acFooter).Height

la hauteur de l'entête (du sous formulaire)+ la hauteur du pied

Code :

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

1
2
3
 
+ (Me.TonSousForm.Form.Section(acDetail).Height *
(Me.TonSousForm.Form.RecordsetClone.RecordCount                                  -  Me.TonSousForm.Form.AllowAdditions))

+ la hauteur d'une ligne du détail * par (le nombre d'enregistrement - la ligne nouvel enregistrement)

Pour la ligne Nouvel enregistrement l'auteur du code utilise une actuce de programmation qui permet de déterminer si celle-ci sera présente ou pas.
0 la ligne n'y est pas (AllowAdditions = faux = 0)
-1 la ligne y est (AllowAdditions = vrai = -1)

Code :

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

   Me.TonSousForm.Height = Me.TonSousForm.Form.WindowHeight

La hauteur du controle contenant le sousform est égal à la hauteur de la fenêtre du sous-formulaire.

Cordialement,

[Shankara]

Merci Loufab.

Mais alors pourquoi utilise-t-on InsideHeight d'un côté et WindowHeight de l'autre ?
Pourquoi WindowHeight prend la valeur de InsideHeight sans affectation préalable ?