Il faut utiliser la propriété SelTop du formulaire dans la procédure Form_Open.
Dans cette exemple nous nous placerons sur le dernier enregistrement si le formulaire contient moins de 6 enregistrements, et sur le cinquième en partant de la fin dans le cas contraire. Ceci sera par exemple utilise dans un formulaire en mode feuille de données. En effet, si nous nous positionnons sur le dernier enregistrement, seul celui-ci apparaîtra sur le formulaire. Ainsi, se positionner sur le cinquième en partant de la fin nous assure de voir à l'écran au les cinq dernier enregistrements.
PrivateSubForm_Open(Cancel As Integer)
Dim lng As Long
'obtientlenombred'enregistrements
lng = Me.RecordsetClone.RecordCount'atteintledernier
Me.SelTop= lng
'remontede6enregistrementssicelaestpossibleIf lng >5Then
Me.SelTop= lng -5EndIfEndSub
Il faut définir les champs Pères et Fils dans votre contrôle contenant le sous formulaire :
Champ père : txtPere Champ fils : txtFils
Où txtPere est le nom du contrôle du formulaire contenant la valeur qui nous intéresse et où txtFils est le nom du contrôle du sous formulaire qui doit correspondre à la valeur du formulaire principal.
Par exemple si txtPere contient "1", seuls les enregistrements du sous formulaire donc txtFils est égale à "1" seront affichés.
Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter
- Copyright 2000..2005 www.developpez.com
