Ajuster la taille d'un sous-f. en fonction de son nb d'enregistrements

**The_Super_Steph** · 06/06/2007, 13h12

bonjour tout le monde,

J'ai un problème avec ce code, qui permet normalement d'ajuster la taille de mon sous-formulaire en fonction du nombre d'enregistrements, et qui permet aussi de positionner les zones de texte, objets, et étiquettes divers en-dessous sans qu'il y ait un vide sur mon écran...

Voici le code :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
'Taille du sous-formulaire FS_OrganiserTourneesSF en fonction du nombre d'enregistrements
Me.FS_OrganiserTourneesSF.Form.InsideHeight = Me.FS_OrganiserTourneesSF.Form.Section(acHeader).Height _
     + Me.FS_OrganiserTourneesSF.Form.Section(acFooter).Height _
     + Me.FS_OrganiserTourneesSF.Form.Section(acDetail).Height _
         * (Me.FS_OrganiserTourneesSF.Form.RecordsetClone.RecordCount _
          - Me.FS_OrganiserTourneesSF.Form.AllowAdditions)
 
Me.FS_OrganiserTourneesSF.Height = Me.FS_OrganiserTourneesSF.Form.WindowHeight
 
'Positionnement de l'objet LienVia en fonction de la position et de la taille du sous-formulaire FS_OrganiserTourneesSF
Me.LienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
Me.LienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
Me.LienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
 
'Positionnement de l'étiquette EtiqLienVia en fonction de la position et de la taille du sous-formulaire FS_OrganiserTourneesSF
Me.EtiqLienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
Me.EtiqLienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
Me.EtiqLienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
 
'Positionnement de l'étiquette EtiqRetour en fonction de la position et de la taille de l'objet LienVia
Me.EtiqRetour.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.Retour.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.Retourkm.Top = Me.LienVia.Top + Me.LienVia.Height + 600
 
'Positionnement de l'étiquette EtiqGasoil en fonction de la position et de la taille de l'objet LienVia
Me.EtiqGasoil.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.PrixGasoil.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.eurolitre.Top = Me.LienVia.Top + Me.LienVia.Height + 600
 
'Positionnement de l'étiquette EtiqTotal1 en fonction de la position et de la taille de l'étiquette EtiqRetour
Me.ÉtiqTotal1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.Total1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.km.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
 
'Positionnement de l'étiquette EtiqSTV1 en fonction de la position et de la taille de l'étiquette EtiqRetour
Me.EtiqSTV1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.STV1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.euro1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
 
'Positionnement de l'étiquette EtiqTotal2 en fonction de la position et de la taille de l'étiquette EtiqTotal1
Me.ÉtiqTotal2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.Total2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.euros.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
 
'Positionnement de l'étiquette EtiqSTV2 en fonction de la position et de la taille de l'étiquette EtiqTotal1
Me.EtiqSTV2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.STV2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.euro2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
 
'Positionnement de l'étiquette EtiqTotal3 en fonction de la position et de la taille de l'étiquette EtiqTotal2
Me.ÉtiqTotal3.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.Total3.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.colis.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
 
'Positionnement de l'étiquette EtiqSTCV en fonction de la position et de la taille de l'étiquette EtiqTotal2
Me.EtiqSTCV.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.TotalCV.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.euro3.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
 
'Positionnement de l'étiquette EtiqTotal4 en fonction de la position et de la taille de l'étiquette EtiqTotal3
Me.ÉtiqTotal4.Top = Me.ÉtiqTotal3.Top + Me.ÉtiqTotal3.Height + 150
Me.Total4.Top = Me.ÉtiqTotal3.Top + Me.ÉtiqTotal3.Height + 150
Me.kg.Top = Me.ÉtiqTotal3.Top + Me.ÉtiqTotal3.Height + 150
 
'Positionnement de l'étiquette EtiqCATotal en fonction de la position et de la taille de l'étiquette EtiqSTCV
Me.EtiqCATotal.Top = Me.EtiqSTCV.Top + Me.EtiqSTCV.Height + 150
Me.CA2.Top = Me.EtiqSTCV.Top + Me.EtiqSTCV.Height + 150
Me.euro4.Top = Me.EtiqSTCV.Top + Me.EtiqSTCV.Height + 150
 
'Positionnement de l'étiquette EtiqResultat en fonction de la position et de la taille de l'étiquette EtiqCATotal
Me.EtiqResultat.Top = Me.EtiqCATotal.Top + Me.EtiqCATotal.Height + 150
Me.Resultat.Top = Me.EtiqCATotal.Top + Me.EtiqCATotal.Height + 150
Me.euro5.Top = Me.EtiqCATotal.Top + Me.EtiqCATotal.Height + 150

Problème : alors qu'il me semblait que ce code fonctionnait plutôt bien, en réalité, le sous-formulaire ne s'agrandit que jusqu'à 3 enregistrements maximum... et je ne comprends pas pourquoi !

Est-ce que quelqu'un peut m'aider ?

Merci beaucoup,

Steph

**The_Super_Steph** · 06/06/2007, 13h14

Rectification du code (je ne sais pas pourquoi j'avias 3 fois les mêmes lignes par endroit !)

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
'Taille du sous-formulaire FS_OrganiserTourneesSF en fonction du nombre d'enregistrements
Me.FS_OrganiserTourneesSF.Form.InsideHeight = Me.FS_OrganiserTourneesSF.Form.Section(acHeader).Height _
     + Me.FS_OrganiserTourneesSF.Form.Section(acFooter).Height _
     + Me.FS_OrganiserTourneesSF.Form.Section(acDetail).Height _
         * (Me.FS_OrganiserTourneesSF.Form.RecordsetClone.RecordCount _
          - Me.FS_OrganiserTourneesSF.Form.AllowAdditions)
 
Me.FS_OrganiserTourneesSF.Height = Me.FS_OrganiserTourneesSF.Form.WindowHeight
 
'Positionnement de l'objet LienVia en fonction de la position et de la taille du sous-formulaire FS_OrganiserTourneesSF
Me.LienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
 
'Positionnement de l'étiquette EtiqLienVia en fonction de la position et de la taille du sous-formulaire FS_OrganiserTourneesSF
Me.EtiqLienVia.Top = Me.FS_OrganiserTourneesSF.Top + Me.FS_OrganiserTourneesSF.Height + 100
 
'Positionnement de l'étiquette EtiqRetour en fonction de la position et de la taille de l'objet LienVia
Me.EtiqRetour.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.Retour.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.Retourkm.Top = Me.LienVia.Top + Me.LienVia.Height + 600
 
'Positionnement de l'étiquette EtiqGasoil en fonction de la position et de la taille de l'objet LienVia
Me.EtiqGasoil.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.PrixGasoil.Top = Me.LienVia.Top + Me.LienVia.Height + 600
Me.eurolitre.Top = Me.LienVia.Top + Me.LienVia.Height + 600
 
'Positionnement de l'étiquette EtiqTotal1 en fonction de la position et de la taille de l'étiquette EtiqRetour
Me.ÉtiqTotal1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.Total1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.km.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
 
'Positionnement de l'étiquette EtiqSTV1 en fonction de la position et de la taille de l'étiquette EtiqRetour
Me.EtiqSTV1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.STV1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
Me.euro1.Top = Me.EtiqRetour.Top + Me.EtiqRetour.Height + 150
 
'Positionnement de l'étiquette EtiqTotal2 en fonction de la position et de la taille de l'étiquette EtiqTotal1
Me.ÉtiqTotal2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.Total2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.euros.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
 
'Positionnement de l'étiquette EtiqSTV2 en fonction de la position et de la taille de l'étiquette EtiqTotal1
Me.EtiqSTV2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.STV2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
Me.euro2.Top = Me.ÉtiqTotal1.Top + Me.ÉtiqTotal1.Height + 150
 
'Positionnement de l'étiquette EtiqTotal3 en fonction de la position et de la taille de l'étiquette EtiqTotal2
Me.ÉtiqTotal3.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.Total3.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.colis.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
 
'Positionnement de l'étiquette EtiqSTCV en fonction de la position et de la taille de l'étiquette EtiqTotal2
Me.EtiqSTCV.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.TotalCV.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
Me.euro3.Top = Me.ÉtiqTotal2.Top + Me.ÉtiqTotal2.Height + 150
 
'Positionnement de l'étiquette EtiqTotal4 en fonction de la position et de la taille de l'étiquette EtiqTotal3
Me.ÉtiqTotal4.Top = Me.ÉtiqTotal3.Top + Me.ÉtiqTotal3.Height + 150
Me.Total4.Top = Me.ÉtiqTotal3.Top + Me.ÉtiqTotal3.Height + 150
Me.kg.Top = Me.ÉtiqTotal3.Top + Me.ÉtiqTotal3.Height + 150
 
'Positionnement de l'étiquette EtiqCATotal en fonction de la position et de la taille de l'étiquette EtiqSTCV
Me.EtiqCATotal.Top = Me.EtiqSTCV.Top + Me.EtiqSTCV.Height + 150
Me.CA2.Top = Me.EtiqSTCV.Top + Me.EtiqSTCV.Height + 150
Me.euro4.Top = Me.EtiqSTCV.Top + Me.EtiqSTCV.Height + 150
 
'Positionnement de l'étiquette EtiqResultat en fonction de la position et de la taille de l'étiquette EtiqCATotal
Me.EtiqResultat.Top = Me.EtiqCATotal.Top + Me.EtiqCATotal.Height + 150
Me.Resultat.Top = Me.EtiqCATotal.Top + Me.EtiqCATotal.Height + 150
Me.euro5.Top = Me.EtiqCATotal.Top + Me.EtiqCATotal.Height + 150

**The_Super_Steph** · 06/06/2007, 13h15

... mais ça ne marche (évidemment !) toujours pas...

**The_Super_Steph** · 06/06/2007, 13h29

Rectification :

Ca marche lorsque j'ouvre mon formulaire. Mais lorsque je vais sur des enregistrements suivants, et que je reviens au premier (pour le premier, j'ai 20 enregistrements dans mon sous-formulaire), là, le sous formulaire a une taille valable pour 3 enregistrements...

**The_Super_Steph** · 06/06/2007, 14h33

Re tout le monde,

J'ai essayé sur d'autre événements que sur activation du formulaire :

Si modification
Avant MAJ
Après MAJ

Ca ne marche toujours pas.

Est-ce que quelqu'un peut m'aider ?

**The_Super_Steph** · 06/06/2007, 15h20

VRAIMENT BIZARRE !

Maintenant que j'ai également une quinzaine d'enregistrements dans le sous formulaire lorsque je suis sur le 2ème enregistrement du formulaire,

je dois passer de l'un à l'autre avec les boutons de navigation entre les enregistrements... pour que la taille s'agrandisse de la hauter d'1 enregistrement à chaque fois...

C'est à n'y rien comprendre,

Est-ce que quelqu'un peut m'aider ?

**The_Super_Steph** · 07/06/2007, 13h10

Bizarre, décidément bizarre...

Aujourd'hui, le code fonctionne...

Je n'y comprends rien... Je suis contente, maisd cela m'inquiète un peu quand même.

Est-ce que c'est déjà arrivé à quelqu'un ici ?

Cordialement,

Steph

**The_Super_Steph** · 08/06/2007, 08h44

Bonjour,

Bon, aujourd'hui, ça marche aussi...
Du coup je mets un petit Résolu...

Affichage des résultats du sondage: Pensez-vous que ce code, une fois rectifié, pourrait intégrer la FAQ ?

Ajuster la taille d'un sous-f. en fonction de son nb d'enregistrements

IHM

Discussions similaires

Partager

Partager