Discussion :

[dudul08]

Bonjour,
Existe t il un moyen de forcer le scrolling d'un sous formulaire pour que l'enregistrement sélectionné soit toujours situé en limite supérieur du sous formulaire ?

Merci par avance pour votre aide.

[tee_grandbois]

Bonsoir,
ce code positionne l'enregistrement sélectionné en début de page :

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
Dim lgCur As Long
Dim lgMax As Long
Dim lgSf As Long
' Nombre de lignes affichées dans le sous-formulaire
lgSf = 6
' Ligne sélectionnée
lgCur = Me.CurrentRecord
 
If Me.CurrentRecord + lgSf > Me.Recordset.RecordCount Then
    lgMax = 1
Else
    lgMax = lgCur + lgSf
End If
 
DoCmd.GoToRecord acActiveDataObject, , acGoTo, lgMax
DoCmd.GoToRecord acActiveDataObject, , acGoTo, lgCur

la variable lgSf correspond au nombre de lignes affichées dans une page complète du sous-formulaire.
A modifier et tester pour savoir si cela correspond à ton besoin...

[dudul08]

Bonsoir et merci pour votre réponse !
Je vais tester cela dés lundi !

[dudul08]

Bonjour !

Votre code correspond à ce que je voulais !

Merci beaucoup pour votre aide !