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
Partager