Discussion :

[robin148]

Bonjour,

je suis surpris de ne pas avoir trouvé de réponse à ma question sur les divers forums, mais j'ai peut-être mal cherché...

J'ai un formulaire de recherche multicritères, avec plusieurs listes déroulantes, et notamment certaines qui dès qu'elles sont complétées font apparaître des cases supplémentaires dans l'en-tête. J'ai le code pour faire apparaitre les cases (.visible= true/false, jusque là facile), mais j'ai maintenant besoin de faire en sorte que lorsque ces cases apparaissent, l'en tête du formulaire s'agrandisse en hauteur.

Il me faudrait donc un code à mettre sur l'évènement "after update" de ma zone de liste, pour que lorsqu'elle est remplie (non nulle):

1. la case apparaisse (ça c'est ok)
2. l'en tête s'agrandisse
3. si possible, définir la position de la case (haut et gauche)

Dans la logique, je suppose qu'il faudra faire plutôt dans l'ordre 2-3-1.

Pour l'entête, j'ai essayé Me.Section(acHeader).Height ou autres formulations trouvées dans des sujets proches, mais rien ne marche...


Merci d'avance pour votre aide!

[Robert1957]

Bonjour robin148,

Ce code sur l'événement désiré, l'échelle est en twips:

Code :

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

Me.EntêteFormulaire.Height = 1500

Mais ton code écrit comme cela aurait du fonctionner:

Code :

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

Me.Section(acHeader).Height = 1500

Bonne journée

[Jeannot45]

à l'instruction qui rend visible l'entete, il faudrait ajouter :

Code :

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

1
2
3
 
Me.Section(acHeader).Visible = True
DoCmd.RunCommand acCmdSizeToFitForm

Bonne continuation

[robin148]

Merci à vous deux!

En fait le code ne marchait pas pour une autre raison (mauvaise utilisation du "and" dans le "if").

C'est réglé!