Re: mouse wheel scroll function in forms "turned off" in Access 2010 - Why?

  • Thread starter Thread starter Rick Brandt
  • Start date Start date
R

Rick Brandt

JohS said:
As I can see, by opening an old 2000 MDB database with Access 2010 (and also
2007 I think) the mouse wheel scroll function seems to have been "turned
off". Anyone know why this is done and if it is possible to "turn on" that
function? Thanks, JohS
Click to expand...

Because other than you and about three other people almost everyone
hated it. It was too easy to accidentally change records, sometimes
with very bad consequences.
 
Rick Brandt said:
Because other than you and about three other people almost everyone
hated it. It was too easy to accidentally change records, sometimes
with very bad consequences.
Click to expand...

heh, heh ... I must be one of the other three :-)

Here is what I did to "restore" that functionality in form view:

Private Sub Form_MouseWheel(ByVal Page As Boolean, _
ByVal Count As Long)
Const conFormView As Integer = 1
If Me.CurrentView = conFormView Then
Select Case Sgn(Count)
Case 1
If Me.CurrentRecord < Me.Recordset.RecordCount Then
DoCmd.GoToRecord , , acNext
End If
Case -1
If Me.CurrentRecord > 1 Then
DoCmd.GoToRecord , , acPrevious
End If
End Select
End If
End Sub
 
Clif said:
heh, heh ... I must be one of the other three :-)
Click to expand...

Seems like MS could have changed the functionality so that holding
down a certain key while scrolling triggered navigation. That would
have eliminated the accidental aspect.
 
clif after 36 hours of working on this for a client you helped me so much I wanted to register and reply thanks

Private Sub Form_MouseWheel(ByVal Page As Boolean, _
ByVal Count As Long)
Const conFormView As Integer = 1
If Me.CurrentView = conFormView Then
Select Case Sgn(Count)
Case 1
If Me.CurrentRecord < Me.Recordset.RecordCount Then
DoCmd.GoToRecord , , acNext
End If
Case -1
If Me.CurrentRecord > 1 Then
DoCmd.GoToRecord , , acPrevious
End If
End Select
End If
End Sub



worked like a charm
 
This looks like what I have been searching for but when I compile it, I get an "Invalid us of Me keyword" error. Any thoughts?
 
Dear this solution is much easier and fast thanks,
but whenever I use it in my form it change only one record and then the cursor move to the next field and I had to go the start field to change the record again. is there is any help

P.S. I have a main-form with child-form
 
Back
Top