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 :
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 !
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![]()
![]()
Est-ce que quelqu'un peut m'aider ?
Merci beaucoup,
Steph
Partager