Discussion :

[rockin-bones]

Bonjour à tous,

Voilà je vous explique ce que j'aimerais faire car je ne trouve pas de solution adaptée (vu mon niveau, pas étonnant).

Je dispose de 4 requêtes (nommons les R1, R2, R3 et R4). Avec 4 DCount en VBA, j'extrais le nombre de stages concernés par ces requêtes.
J'aimerais que les 4 étiquettes de mon formulaire qui correspondent chacune à une des 4 requêtes existantes si DCount(requête correspondantes) > 0. Jusqu'ici, c'est assez simple (.visible = true).
Cependant, j'aimerais que l'affichage de ces étiquettes dans mon formulaire ne soit pas trop moche. C'est-à-dire, par exemple:

Si Dcount(R2) et DCount(R3) = 0, je voudrais:

Code :

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

1
2
[Etiquette 1]
[Etiquette 4]

et pas:

Code :

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

1
2
3
4
[Etiquette 1]
 
 
[Etiquette 4]

J'ai cherché un peu dans les tutoriels et la F.A.Q, et il ne me semble pas avoir vu de solution à mon problème.

Merci d'avance.

[marot_r]

Interessant problème.

Fais-tu un affichage en mode feuille de données ou formulaire unique ou contunu ?

Si tu es en mode feuille de données tu devrait pouvoir masquer les colonnes. Si tu es en mode formulaire (unique ou continu) cela va être plus complex.

A+

[rockin-bones]

Je suis sur un formulaire continu.
Et en fait les étiquettes contiennent le "titre" de la requête, expliquée pour les utilisateurs en fait.

Exemple: "Stages acceptés mais convention non envoyée"

[rockin-bones]

Formulaire unique, pardon

[rockin-bones]

Ou sinon, j'aimerais bien savoir comment "maîtriser" les paramètres "Haut" et "Gauche" selon les DCount > 0 (et le must du must serait de les mettre dans un ordre précis)

[Fred.dz]

Salut,

J'ai été amené à faire un truc du genre il y a peu de temps.

Pour changer la position de l'étiquette j'utilise:

Code :

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

Reports!Nomdetonetat!Étiquette1.left= unchiffre

Après c'est à toi de voir comment tu structure.

Perso je rentre déjà les positions initiales des étiquettes dans un tableau:

Code :

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

1
2
3
Reports!Nomdetonetat!Étiquette1.left=left(1)
Reports!Nomdetonetat!Étiquette2.left=left(2)
...

Ensuite j'affiche et masque les étiquettes selon ce que je veux.
Puis je fais ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
j=0
 
If Reports!Nomdetonetat!Étiquette1.visible=true then
   j=j+1
   Reports!Nomdetonetat!Étiquette1.left=left(j)
End if
 
If Reports!Nomdetonetat!Étiquette2.visible=true then
   j=j+1
   Reports!Nomdetonetat!Étiquette2.left=left(j)
End if
...

C'est peut-être possible de faire ça plus proprement et j'ai rencontré quelque problème bizarres, du style les étiquettes qui restent à leur place initiale sans trop que je sache pourquoi du coup j'ai du changé:

Code :

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

Reports!Nomdetonetat!Étiquette2.left=left(j)

par

Code :

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

Reports!Nomdetonetat!Étiquette2.left=left(j)-1

Des fois même -2 ou -3. C'est bien moche et j'ai pas pigé pourquoi ça marchait pas à la base, mais bon, comme ça ça marche.

[rockin-bones]

Je te remercie Fred pour ton aide, ça a l'air de marcher. A moi d'automatiser ça comme je le voudrais. J'ai trouvé que "Haut" c'est "Top" en VBA (Facile à deviner).

En tout cas cela ne m'a pas l'air extrèmement compliqué à manipuler, fallait juste y penser.

Merci encore