Discussion :

[DamKre]

Re,

Voici ce que j'ai mis :

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
17
18
19
20
21
22
23
24
25
26
27
Sub DefinitionScrollBarDefilement()
Dim oScr As ScrollBar
Set oRst = Me.RecordsetClone
With Me.ScrollBarDefilement.Object
 
'Vérifie que le recordset contient des données
If (oRst.EOF And oRst.BOF) Then
  .Min = 0: oScr.Max = 0
  .Value = 0
Else
  .Min = 0
  .MoveLast
  .Max = oRst.RecordCount - 1
 .Value = Me.Recordset.AbsolutePosition
End If
End With
 
oRst.Close: Set oRst = Nothing
 
End Sub
 
Private Sub MaScrollBar_Change()
Dim oScr As ScrollBar
Set oScr = Me.ScrollBarDefilement.Object
Me.Recordset.AbsolutePosition = Me.ScrollBarDefilement.Value
DoCmd.RunCommand acCmdSelectRecord
End Sub

J'ai une erreur "438 - Propriété ou méthode non gérée par cet objet", et cela buggue à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  .MoveLast

[Tofalu]

MoveLast est membre de recordset et non de la scrollbar

Le forum n'est pas un debuggueur, merci de faire un peu de recherche avant de poster ce genre de question.

[alassanediakite]

Salut
J'ai pas bien lu le code avant l'envoie.
En effet il faut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRst.MoveLast

plutôt que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.MoveLast

car le "with" n'est pas pour l'objet "oRst".
Mes excuses.

[DamKre]

En effet, cela fonctionne mieux.

J'ai donc ceci comme procédures :

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
17
18
19
20
21
22
23
24
25
26
27
Sub DefinitionScrollBarDefilement()
Dim oScr As ScrollBar
Set oRst = Me.RecordsetClone
With Me.ScrollBarDefilement.Object
 
'Vérifie que le recordset contient des données
If (oRst.EOF And oRst.BOF) Then
    .Min = 0: oScr.Max = 0
    .Value = 0
Else
    .Min = 0
    oRst.MoveLast
    .Max = oRst.RecordCount - 1
    .Value = Me.Recordset.AbsolutePosition
End If
End With
 
oRst.Close: Set oRst = Nothing
 
End Sub
 
Private Sub ScrollBarDefilement_Change()
Dim oScr As ScrollBar
Set oScr = Me.ScrollBarDefilement.Object
Me.Recordset.AbsolutePosition = Me.ScrollBarDefilement.Value
DoCmd.RunCommand acCmdSelectRecord
End Sub

Et c'est toujours la ligne "Set oScr = Me.ScrollBarDefilement.Object" qui pose problème lorsque je change ma barre de défilement.

Ce qui me fait demander si les deux lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim oScr As ScrollBar
Set oScr = Me.ScrollBarDefilement.Object

sont réellement indispensables.

Je les ai enlevées, et cela semble fonctionner pour le moment.
Donc, quelle est leur utilité si on peut s'en passer ?