Discussion :

[pifou02]

Salut tout le monde.

Je viens de réinstaller access 2007 en passant sous vista, et bizarement, ma roulette de souris ne fonctionne plus (ca le fait que dans access !!) ; Que se soit dans une requette, un formulaire continu, ou une liste modifiable : pareil .
Une idée ?

[curt]

Bonjour,

la réponse à ta question par MC2 (c'est en anglais)

http://www.developpez.net/forums/d55...trements-form/

Curt

[pifou02]

Merci pour ta réponse, mais ce tuto sert à rétablir la config innitiale d'access avec la molette qui change d'enregistrements (en plus, c'est à faire au cas par cas : galère !!). Je souhaite simplement réactiver la molette pour faire fonctionner les ascenseurs sous access. (comme c'était avant avec access 2007 + XP). C'est bizarre qu'en passant à Vista ca ne fonctionne plus. .

[curt]

La désactivation de la molette de souris ne vient pas de Vista mais d'Access 2007 et elle est désactivée par défaut. (c'est comme ça !!)

Donc le tuto est à appliquer POUR CHAQUE FORMULAIRE dans lesquels tu souhaites interragir avec la molette.

Curt

[SeaWolf601]

...
Donc le tuto est à appliquer POUR CHAQUE FORMULAIRE dans lesquels tu souhaites interragir avec la molette...

Ho la galère !!!! Merci du renseignement.

[pifou02]

Alors, pourquoi ca marchait avant que j'installe Vista ??

[curt]

Non non pifou02,

tu fais erreur.
ça ne fonctionne plus avec ACCESS 2007.
Vista n'y est pour rien (pour une fois !!!)

Donc tu crée un module MouseWheel qui contient le code suivant :

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
33
34
Public Function DoMouseWheel(frm As Form, lngCount As Long) As Integer
On Error GoTo Err_Handler
    'Purpose:   Make the MouseWheel scroll in Form View in Access 2007.
    '           This code lets Access 2007 behave like older versions.
    'Return:    1 if moved forward a record, -1 if moved back a record, 0 if not moved.
    'Author:    Allen Browne, February 2007.
    'Usage:     In the MouseWheel event procedure of the form:
    '               Call DoMouseWheel(Me, Count)
    Dim strMsg As String
    'Run this only in Access 2007 and later, and only in Form view.
    If (Val(SysCmd(acSysCmdAccessVer)) >= 12#) And (frm.CurrentView = 1) And (lngCount <> 0&) Then
        'Save any edits before moving record.
        RunCommand acCmdSaveRecord
        'Move back a record if Count is negative, otherwise forward.
        RunCommand IIf(lngCount < 0&, acCmdRecordsGoToPrevious, acCmdRecordsGoToNext)
        DoMouseWheel = Sgn(lngCount)
    End If
 
Exit_Handler:
    Exit Function
 
Err_Handler:
    Select Case err.Number
    Case 2046&                 'Can't move before first, after last, etc.
        Beep
    Case 3314&, 2101&, 2115&   'Can't save the current record.
        strMsg = "Cannot scroll to another record, as this one can't be saved."
        MsgBox strMsg, vbInformation, "Cannot scroll"
    Case Else
        strMsg = "Error " & err.Number & ": " & err.Description
        MsgBox strMsg, vbInformation, "Cannot scroll"
    End Select
    Resume Exit_Handler
End Function

Et dans ton formulaire où tu veux utiliser la molette de la souris tu mets :

Code :

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

1
2
3
Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
Call DoMouseWheel(Me, Count)
End Sub

Ici, le mouvement de la roulette fait défiler les enregistrements.

En conclusion : Avant Access 2007 il fallait bloquer le mouvement de la molette, maintenant il faut l'autoriser. De mon point de vue, c'est mieux ainsi.

Bonne journée.
Curt

[pifou02]

Merci pour ces infos Curt, mais je ne fais pas erreur :
J'utilise Access 2007 depuis longtemps et je n'avais pas ce soucis avant. J'ai seulement changé de système d'exploitation (passé à Vista); Et c'est seulement depuis que ma roulette ne fonctionne plus !!!! Donc c'est Vista qui me bloque la roulette sous Access !!
Ou l'association Access2007-Vista qui bloque, alors que Access2007-XP fonctionne.

[vodiem]

salut à tous,

Microsoft gave Access 2007 a sensible compromise: disable the mouse wheel in Form view, and scroll records in Datasheet and Continuous view.

et je confirme aussi le fonctionnement de la roulette avec XP+ACC2007.

[pifou02]

En ben voila! Je comprends mieux maintenant !!
Donc ma question est : comment rétablir ma roulette UNIQUEMENT pour les ascenseurs dans les formulaires, listes modifiables, ... Et bien sure, que la roulette ne change pas d'enregistrements (Ca, on est tous d'accord, ca ne sert pas à grand chose) !!
En résumé, je veux simplement rétablir le fonctionnement de la roulette que j'avais sous Access2007-XP qui marchait très bien : pas de changement d'enregistrements, mais fonctionnement des ascenseurs.

[pifou02]

Je précise aussi que maintenant, même en mode conception, les ascenseurs d'Access ne réagissent plus à la roulette (Et ca me fais ca que dans Access). Il n'y aurait pas une options d'Access qui rétablisse ca ??

[Tofalu]

Tu as essayé de desinstaller Office et réinstaller ?

[pifou02]

Oui, sans résultats.
Le pire, c'est que la roulette de mon clavier fonctionne !!
Donc j'ai installé les derniers drivers de ma souris, mais rien!
Je désespère

[vodiem]

et cela se passes aussi quand tu crées une nouvelle DB?

[pifou02]

Oui, aussi. J'ai même changé de souris (une autre marque) et pareil! Quelqu'un à une configuration identique (vista + access2007) ou la roulette fonctionne avec les ascenseurs des formulaires ou des liste modifiables (et qui bien sur ne change pas d'enregistrements), et ce, sans avoir ajouté du code ?