Discussion :

[caro2552]

Bonjour, j'ai un formulaire avec 3 sous formulaires, je voudrais ajuster la position et la taille de chacun selon le nombre d'enregistrements.
Le code si dessous fonctionne tres bien pas par pas et renvoie le bon nombre d'enregistrements mais ne fonctionne plus a vitesse normale
Si vous avez une idée j'en serais ravie

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
Private Sub Form_Current()
Dim x, y, z As Integer
x = Me.sfaspectacle.Form.RecordsetClone.RecordCount
If x = 0 Then Me.sfaspectacle.Height = 0 Else Me.sfaspectacle.Height = Me.sfaspectacle.Form.EntêteFormulaire.Height + Me.sfaspectacle.Form.Détail.Height * x
 
Me.sfaquiouquoi.Top = Me.sfaspectacle.Height + Me.sfaspectacle.Top
y = Me.sfaquiouquoi.Form.RecordsetClone.RecordCount
If y = 0 Then Me.sfaquiouquoi.Height = 0 Else Me.sfaquiouquoi.Height = Me.sfaquiouquoi.Form.EntêteFormulaire.Height + Me.sfaquiouquoi.Form.Détail.Height * y
 
 
Me.sfaProvenance.Top = Me.sfaquiouquoi.Height + Me.sfaquiouquoi.Top
z = Me.sfaProvenance.Form.RecordsetClone.RecordCount
If y = 0 Then Me.sfaProvenance.Height = 0 Else Me.sfaProvenance.Height = Me.sfaProvenance.Form.EntêteFormulaire.Height + Me.sfaProvenance.Form.Détail.Height * z
 
End Sub

[Jeannot45]

Sans doute une lecture intéressante : Un formulaire auto-extensible pour Access

Bonne continuation