Access 2007 - Utiliser la roulette pour changer d'enregistrement

bonjour
un peu de patience, il est tout neuf ce 2007, alors les retours d'expérience
sont rares

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Dan" <Dan@discussions.microsoft.com> a écrit dans le message de news:
A8585947-BAD6-40FD-8262-F696E2F9941D@microsoft.com...

Bonjour à tous,
Je reposte une question restée sans solution qui ne semble pourtant pas
spécialement complexe.
Je viens de commencer à tester la version d'Access 2007 et en ouvrant un
formulaire, je m'aperçois que la molette de la souris ne fait plus changer
d'enregistrement.
J'ai cherché dans l'aide et sur Internet (sûrement mal) mais je n'ai pas
trouvé de réponse.
Merci d'avance pour vos réponses.

Précisions :
J'utilise actuellement Access 2000 et 2003 et le défilement des
enregistrements fonctionne à la roulette dans ce même formulaire.
Je viens d'ailleurs de remarquer que le défilement des enregistrements ne
fonctionne pas en continu lorsque je reste appuyé sur la touche de
changement
d'enregistrements situé en bas du formulaire alors que ça fonctionne sur
la
même base avec Access 2000 et 2003.
Merci d'avance pour vos solutions.
Cordialement
Dan

Bonjour Dan,

Je reposte une question restée sans solution qui ne semble pourtant pas
spécialement complexe.
Je viens de commencer à tester la version d'Access 2007 et en ouvrant un
formulaire, je m'aperçois que la molette de la souris ne fait plus changer
d'enregistrement.
J'ai cherché dans l'aide et sur Internet (sûrement mal) mais je n'ai pas
trouvé de réponse.
Merci d'avance pour vos réponses.
[...]

Comme le dit Pierre, la v2007 c'est encore un peu nouveau... et on ne
décrouvre pas ses nouveautés aussi facilement que celles de Word, dans la
mesure où chaque base est un "cas particulier" et où la programmation
intervient en permanence.
Bien qu'ayant constaté ce changement, je ne me suis pas pressée de chercher
une "solution", car ce changement me ravit ;-)
Nombreux sont les utilisateurs qui viennent ici demander un "truc" pour
bloquer la molette.
Au point que Raymond (et d'autres sans doute) avait mis à la disposition de
tous le programme "pour".

Mais comme tu insistes... j'ai fait une petite recherche sur les forums US :
http://groups.google.fr/group/microsoft.public.access/browse_thread/thread/ce792c3afe5298eb/90767b174e8df4a8?lnk=gst&q 07+wheel+mouse+form&rnum=2&hl=fr#90767b174e8df4a8

Tu y trouveras un bout de code (pas testé) qui devrait répondre à ta demande
(j'ai lu un peu vite... car j'ai faim ;-))

Si cela fonctionne pour toi, reviens quand même nous le dire... Je soupçonne
que tout le monde va vouloir maintenant que la molette fonctionne "comme
avant" :-(

--
Tisane

Bonjour à tous les 2 et merci à "Tisane" pour avoir été plus fin limier que
moi.
Le code fonctionne bien.
Il fait un test pour savoir si le mouvement appliqué à la roulette est avant
ou arrière (pour avancer ou reculer dans les enregistrements) avec un test
d'erreur si on est au premier ou dernier enregistrement.
Il doit être placé sur l'événement : "Sur roulement de la souris".

J'en fait un copier/coller ci-dessous :

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error GoTo Err_Handler
'Purpose: Move record on mouse wheel, as in previous versions.


If Count > 0 Then
RunCommand acCmdRecordsGoToNext
Else
RunCommand acCmdRecordsGoToPrevious
End If


Exit_Handler:
Exit Sub


Err_Handler:
If Err.Number = 2046& Then 'No next/previous record.
Beep
Else
MsgBox "Error " & Err.Number & ": " & Err.Description
End If
Resume Exit_Handler
End Sub

Bonjour Dan,

Je reposte une question restée sans solution qui ne semble pourtant pas
spécialement complexe.
Je viens de commencer à tester la version d'Access 2007 et en ouvrant un
formulaire, je m'aperçois que la molette de la souris ne fait plus changer
d'enregistrement.
J'ai cherché dans l'aide et sur Internet (sûrement mal) mais je n'ai pas
trouvé de réponse.
Merci d'avance pour vos réponses.
[...]

Comme le dit Pierre, la v2007 c'est encore un peu nouveau... et on ne
décrouvre pas ses nouveautés aussi facilement que celles de Word, dans la
mesure où chaque base est un "cas particulier" et où la programmation
intervient en permanence.
Bien qu'ayant constaté ce changement, je ne me suis pas pressée de chercher
une "solution", car ce changement me ravit ;-)
Nombreux sont les utilisateurs qui viennent ici demander un "truc" pour
bloquer la molette.
Au point que Raymond (et d'autres sans doute) avait mis à la disposition de
tous le programme "pour".

Mais comme tu insistes... j'ai fait une petite recherche sur les forums US :
http://groups.google.fr/group/microsoft.public.access/browse_thread/thread/ce792c3afe5298eb/90767b174e8df4a8?lnk=gst&q 07+wheel+mouse+form&rnum=2&hl=fr#90767b174e8df4a8

Tu y trouveras un bout de code (pas testé) qui devrait répondre à ta demande
(j'ai lu un peu vite... car j'ai faim ;-))

Si cela fonctionne pour toi, reviens quand même nous le dire... Je soupçonne
que tout le monde va vouloir maintenant que la molette fonctionne "comme
avant" :-(

--
Tisane

.../...
merci, à conserver

--
Pierre
MVP Access
***************************************
Conseils MPFA: http://www.mpfa.info/
*********************************************************
"Dan" <Dan@discussions.microsoft.com> a écrit dans le message de news:
1D26F161-A5B5-4DC9-9D30-7FA78696C7EF@microsoft.com...

Bonjour à tous les 2 et merci à "Tisane" pour avoir été plus fin limier
que
moi.
Le code fonctionne bien.
Il fait un test pour savoir si le mouvement appliqué à la roulette est
avant
ou arrière (pour avancer ou reculer dans les enregistrements) avec un test
d'erreur si on est au premier ou dernier enregistrement.
Il doit être placé sur l'événement : "Sur roulement de la souris".

J'en fait un copier/coller ci-dessous :

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
On Error GoTo Err_Handler
'Purpose: Move record on mouse wheel, as in previous versions.


If Count > 0 Then
RunCommand acCmdRecordsGoToNext
Else
RunCommand acCmdRecordsGoToPrevious
End If


Exit_Handler:
Exit Sub


Err_Handler:
If Err.Number = 2046& Then 'No next/previous record.
Beep
Else
MsgBox "Error " & Err.Number & ": " & Err.Description
End If
Resume Exit_Handler
End Sub

Bonjour Dan,

Je reposte une question restée sans solution qui ne semble pourtant pas
spécialement complexe.
Je viens de commencer à tester la version d'Access 2007 et en ouvrant
un
formulaire, je m'aperçois que la molette de la souris ne fait plus
changer
d'enregistrement.
J'ai cherché dans l'aide et sur Internet (sûrement mal) mais je n'ai
pas
trouvé de réponse.
Merci d'avance pour vos réponses.
[...]

Comme le dit Pierre, la v2007 c'est encore un peu nouveau... et on ne
décrouvre pas ses nouveautés aussi facilement que celles de Word, dans la
mesure où chaque base est un "cas particulier" et où la programmation
intervient en permanence.
Bien qu'ayant constaté ce changement, je ne me suis pas pressée de
chercher
une "solution", car ce changement me ravit ;-)
Nombreux sont les utilisateurs qui viennent ici demander un "truc" pour
bloquer la molette.
Au point que Raymond (et d'autres sans doute) avait mis à la disposition
de
tous le programme "pour".

Mais comme tu insistes... j'ai fait une petite recherche sur les forums
US :
http://groups.google.fr/group/microsoft.public.access/browse_thread/thread/ce792c3afe5298eb/90767b174e8df4a8?lnk=gst&q 07+wheel+mouse+form&rnum=2&hl=fr#90767b174e8df4a8

Tu y trouveras un bout de code (pas testé) qui devrait répondre à ta
demande
(j'ai lu un peu vite... car j'ai faim ;-))

Si cela fonctionne pour toi, reviens quand même nous le dire... Je
soupçonne
que tout le monde va vouloir maintenant que la molette fonctionne "comme
avant" :-(

--
Tisane