Barre de défilement pour voyager entre enregistrements

**DamKre** · 09/04/2010, 20h23

Bonjour ( ou bonsoir ).

Dans un formulaire, j'aimerais insérer une barre de défilement verticale, dont le but est de voyager entre les différents enregistrements.

Je vois dans les objets à ajouter un "Microsoft Forms 2.0 ScrollBarr". J'ai su le mettre là où je le désirais dans mon formulaire.
Mais ensuite, comment faire pour le lier aux déplacements entre les enregistrements ?

Merci de vos lumières.

**marot_r** · 09/04/2010, 20h43

Si tu utilises le mode d'affichage "formulaire en continu" Access te fourni ascenceur à droite, cela répond-t-il à ton besoin ?

A+

**DamKre** · 09/04/2010, 21h43

Envoyé par marot_r

Si tu utilises le mode d'affichage "formulaire en continu" Access te fourni ascenceur à droite, cela répond-t-il à ton besoin ?

A+

Non, non, hélas...
Le formulaire n'est pas en mode continu ( et il ne le sera pas ^^ )

En fait, sur le formulaire, j'ai les boutons pour aller à l'enregistrement précédent, suivant, premier et dernier...

La barre de défilement que je souhaite mettre en place serait un "plus" pour que ce soit plus pratique... Exemple : je suis au troisième, et je dois aller plus loin : je ne devrais pas cliquer 20 fois sur le bouton "suivant"...

**marot_r** · 09/04/2010, 21h55

Si tu fais un formulaire assez grand il peut être en mode continu mais paraitre comme un formulaire unique et tu as aussi les boutons de déplacement standard qui te permettent de choisir un enr particulier ... mais j'ai comme l'impression que tu le sais déjà :o).

Je n'utilise pas cet objet mais regarde s'il n'y a pas un événement relié au déplacement du curseur.

Tu dois probablement lui donner un Max et Min à l'initialisation et il doit te renvoyer soit une valeur absolue (ex : 150) soit un poucentage (ex : .50) qui devrait te permettre de connaître l'enr qui devrait correspondre. Ensuite avec un DoCmd.GoToRecord tu pourrais aller à l'enr choisi.

A+

**DamKre** · 10/04/2010, 09h02

Envoyé par marot_r

Si tu fais un formulaire assez grand il peut être en mode continu mais paraitre comme un formulaire unique et tu as aussi les boutons de déplacement standard qui te permettent de choisir un enr particulier ... mais j'ai comme l'impression que tu le sais déjà :o).

Effectivement

Envoyé par marot_r

Tu dois probablement lui donner un Max et Min à l'initialisation et il doit te renvoyer soit une valeur absolue (ex : 150) soit un poucentage (ex : .50) qui devrait te permettre de connaître l'enr qui devrait correspondre. Ensuite avec un DoCmd.GoToRecord tu pourrais aller à l'enr choisi.

Voilà, c'est avec le pourcentage que j'aimerais travailler... Mais c'est pour faire tout cela que je bloque...
J'avoue que je ne vois pas comment faire...

**Tofalu** · 10/04/2010, 11h55

Mauvaise idée de travailler avec le pourcentage qui risque d'être une valeur arrondie

**DamKre** · 10/04/2010, 15h26

Soit, je me passerai alors des pourcentages...
Mais comment faire de toutes manières pour programmer une telle barre ?

**DamKre** · 12/04/2010, 11h51

Envoyé par damkre

Soit, je me passerai alors des pourcentages...
Mais comment faire de toutes manières pour programmer une telle barre ?

Je suppose que cela a à voir avec un "goto record", mais je cale toujours...

**Tofalu** · 12/04/2010, 13h02

Envoyé par damkre

Je suppose que cela a à voir avec un "goto record", mais je cale toujours...

C'est pas vraiment compliqué et rien qu'avec l'explorateur d'objet on peut s'en sortir. Les propriétés sont très explicites : Min, Max, Value

L'exemple suivant permet de se déplacer avec la scrollbar et réactualise celle-ci lorsque le déplacement est efféctué autrement.
La barre est actualisée sur Form_Current afin de refleter l'ensemble des modifications apportées au jeu de données (ajout, suppression, etc)

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
28
29
30
31
32
Private Sub Form_Current()
DefinitionScrollBar
End Sub
 
 
 
Sub DefinitionScrollBar()
Dim oScr As ScrollBar
Dim oRst As DAO.Recordset
 
Set oScr = Me.MaScrollBar.Object
Set oRst = Me.RecordsetClone
 
'Vérifie que le recordset contient des données
If (oRst.EOF And oRst.BOF) Then
  oScr.Min = 0: oScr.Max = 0
  oScr.Value = 0
Else
  oScr.Min = 0
  oRst.MoveLast
  oScr.Max = oRst.RecordCount - 1
  oScr.Value = Me.Recordset.AbsolutePosition
End If
oRst.Close: Set oRst = Nothing
End Sub
 
Private Sub MaScrollBar_Change()
Dim oScr As ScrollBar
Set oScr = Me.MaScrollBar.Object
Me.Recordset.AbsolutePosition = oScr.Value
DoCmd.RunCommand acCmdSelectRecord
End Sub

**DamKre** · 12/04/2010, 22h13

Merci pour ta réponse.

J'ai nommé ma scrollbarr "ScrollBarDefilement"

Voici donc ce que ça donne :

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
28
29
30
31
Sub DefinitionScrollBarDefilement()
Dim oScr As ScrollBar
Dim oRst As DAO.Recordset
 
Set oScr = Me.ScrollBarDefilement.Object
Set oRst = Me.RecordsetClone
 
'Vérifie que le recordset contient des données
If (oRst.EOF And oRst.BOF) Then
  oScr.Min = 0: oScr.Max = 0
  oScr.Value = 0
Else
  oScr.Min = 0
  oRst.MoveLast
  oScr.Max = oRst.RecordCount - 1
  oScr.Value = Me.Recordset.AbsolutePosition
End If
 
oRst.Close
Set oRst = Nothing
 
End Sub
 
Private Sub ScrollBarDefilement_Change()
 
Dim oScr As ScrollBar
Set oScr = Me.ScrollBarDefilement.Object
Me.Recordset.AbsolutePosition = oScr.Value
DoCmd.RunCommand acCmdSelectRecord
 
End Sub

Avec ce code, j'ai une erreur ( 13 - incompatibilité de type ) lors de la procédure "ScrollBarDefilement_Change()" ( à la ligne "Set oScr = Me.ScrollBarDefilement.Object" pour être précis ).

Où serait mon erreur ?
Merci de votre aide..

**Tofalu** · 13/04/2010, 10h23

On doit pas avoir la même version de contrôle. Essaye en remplacant les appels à oscr.XXX par Me.ScrollBarDefilement.XXX

Mais bon, encore une fois, ce genre d'erreur est facilement repérable et corrigeable à l'aide de la fenêtre d'espion et l'explorateur d'objet. En fonction de la version du contrôle que tu utilises, il doit être facile d'adapter le code donné en exemple

**DamKre** · 13/04/2010, 15h19

Je dois être complètement H.S. ou autre

J'ai changé en mettant ceci :

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
Sub DefinitionScrollBarDefilement()
Dim oScr As ScrollBar
Dim oRst As DAO.Recordset
 
Set oScr = Me.ScrollBarDefilement.Object
Set oRst = Me.RecordsetClone
 
'Vérifie que le recordset contient des données
If (oRst.EOF And oRst.BOF) Then
  Me.ScrollBarDefilement.Min = 0: Me.ScrollBarDefilement.Max = 0
  Me.ScrollBarDefilement.Value = 0
Else
  Me.ScrollBarDefilement.Min = 0
  Me.ScrollBarDefilement.MoveLast
  Me.ScrollBarDefilement.Max = oRst.RecordCount - 1
  Me.ScrollBarDefilement.Value = Me.Recordset.AbsolutePosition
End If
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 le même endroit qui cloche

**Tofalu** · 13/04/2010, 15h47

Tu as remarqué que tu n'as pas modifié la ligne qui pose problème ?

**DamKre** · 13/04/2010, 16h13

Envoyé par Tofalu

Tu as remarqué que tu n'as pas modifié la ligne qui pose problème ?

Maintenant que tu l'as fait remarquer, oui.

Code :

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

Set oScr = Me.ScrollBarDefilement.Object

est effectivement la ligne qui bloque... et qui est restée la même.

Envoyé par Tofalu

Essaye en remplacant les appels à oscr.XXX par Me.ScrollBarDefilement.XXX

Cela étant, alors, je ne vois pas comment remplacer ma ligne. Toutes mes excuses...
Que faut-il remplacer et comment précisément ?

**Tofalu** · 13/04/2010, 17h31

Dans la mesure où tu as remplacé partout oscr par ce qu'il est sensé contenir, cette ligne n'est plus utile.

**DamKre** · 13/04/2010, 17h47

Je l'ai supprimée, mais

- c'est la suivante qui, cette fois-ci, pose souci.

Erreur 3001... Argument non valide.

Et, au démarrage du formulaire, l'erreur "incompatibilité de type" semble persister...

Cela veut-il dire que la procédure "Change" n'est plus nécessaire ?

**DamKre** · 14/04/2010, 10h32

J'ai recommencé

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

Et, cette fois-ci, c'est "Set oScr = Me.ScrollBarDefilement.Object" qui lève une erreur...

**alassanediakite** · 14/04/2010, 17h47

Salut
J’ai eu un problème pareil avec l’activex toolbar (err 13)
J’ai remplacé la ligne de « set » par

Code :

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

1
2
3
4
With Me.ScrollBarDefilement.Object
•propriete1.(...)
•propriete2.(...)
End with

**DamKre** · 14/04/2010, 19h18

Envoyé par alassanediakite

Salut
J’ai eu un problème pareil avec l’activex toolbar (err 13)
J’ai remplacé la ligne de « set » par

Code :

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

1
2
3
4
With Me.ScrollBarDefilement.Object
•propriete1.(...)
•propriete2.(...)
End with

Qu'as-tu mis précisément à la place de (...) ?

**alassanediakite** · 15/04/2010, 00h26

Salut
Dans ton cas, cela doit être ...

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
 
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

@+

Barre de défilement pour voyager entre enregistrements

IHM

Discussions similaires

Partager

Partager