Bonjour tout le monde
me voici de retour,
Voici une solution que j'utilise mainte fois, car j'ai des formulaires qui me permettent de faire des comparaisons de données.
marche a suivre :
1) Il faut d'abord que tu crées un nouveau formulaire complètement vide que tu vas sauver sous le nom de frmVide.
2) Place autant de contrôle de sous-formulaire que tu as besoin dans ton formulaire principal.
3) Pour chacun de ces contrôles de sous formulaire :
a) Donne leur un nom qui veut dire quelque chose, par exemple subfrm1, subfrm2, subfrm3 ....
b) Comme objet source indique frmVide
4) Dans l'évènement sur fermeture du formulaire principal place ce code
1 2 3 4 5
|
Me.subfrm1.SourceObject = "frmVide"
Me.subfrm2.SourceObject = "frmVide"
Me.subfrm3.SourceObject = "frmVide"
.... |
5) Sauve ton formulaire principale, puis ouvre le pour voir si tout va bien.
6) Dans l'événement AfterUpdate de ton champ qui indique le nombre de "sous formulaire" désiré :
a) ton code VBA doit insérer dans ta base autant d'enregistrement que de sous formulaire
b) ton code VBA doit changer autant de fois que tu as de sous formulaire à visualiser leurs propriétés SourceObject qui correspond au nom de ton sous formulaire, puis RecordSource ou Filter. Ce qui aura pour effet de remplacer le formulaire vide par celui que tu désire.
Bonnes chances
CAMIC
Partager