Some time back, I got the referenced module from one of these groups. The
purpose of the module is to control how the wheel on the mouse is used by a
form in A2007. It in effect changes pages when the wheel is moved.
The problem I have is that when I got a new computer and reinstalled A2007,
the module was not longer functioning.
Can anyone give me instructions as to how to "install" this module?

David,

Sounds like you forgot to install the .dll files... If that is the case, go
back to http://www.lebans.com/mousewheelonoff.htm and redownload to get the
files again.

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

"David" <(E-Mail Removed)> wrote in message
news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
> Some time back, I got the referenced module from one of these groups. The
> purpose of the module is to control how the wheel on the mouse is used by
> a
> form in A2007. It in effect changes pages when the wheel is moved.
> The problem I have is that when I got a new computer and reinstalled
> A2007,
> the module was not longer functioning.
> Can anyone give me instructions as to how to "install" this module?
>

The site you referenced is dated in 2005. Will this work on A2007?

"Gina Whipp" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> David,
>
> Sounds like you forgot to install the .dll files... If that is the case,
> go back to http://www.lebans.com/mousewheelonoff.htm and redownload to
> get the files again.
>
> --
> Gina Whipp
>
> "I feel I have been denied critical, need to know, information!" - Tremors
> II
>
> http://www.regina-whipp.com/index_files/TipList.htm
>
> "David" <(E-Mail Removed)> wrote in message
> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>> Some time back, I got the referenced module from one of these groups.
>> The
>> purpose of the module is to control how the wheel on the mouse is used by
>> a
>> form in A2007. It in effect changes pages when the wheel is moved.
>> The problem I have is that when I got a new computer and reinstalled
>> A2007,
>> the module was not longer functioning.
>> Can anyone give me instructions as to how to "install" this module?
>>
>
>

Here is what I have that used to work on an older machine that was also
running A2007.

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

"Gina Whipp" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> David,
>
> Sounds like you forgot to install the .dll files... If that is the case,
> go back to http://www.lebans.com/mousewheelonoff.htm and redownload to
> get the files again.
>
> --
> Gina Whipp
>
> "I feel I have been denied critical, need to know, information!" - Tremors
> II
>
> http://www.regina-whipp.com/index_files/TipList.htm
>
> "David" <(E-Mail Removed)> wrote in message
> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>> Some time back, I got the referenced module from one of these groups.
>> The
>> purpose of the module is to control how the wheel on the mouse is used by
>> a
>> form in A2007. It in effect changes pages when the wheel is moved.
>> The problem I have is that when I got a new computer and reinstalled
>> A2007,
>> the module was not longer functioning.
>> Can anyone give me instructions as to how to "install" this module?
>>
>
>

David,

I have not used this one so I will have to look at it. WHat, if anything,
is happening? ('No longer functioning' is kind of vague.)

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

"David" <(E-Mail Removed)> wrote in message
news:OuB%23G%(E-Mail Removed)...
> Here is what I have that used to work on an older machine that was also
> running A2007.
>
> 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
>
> "Gina Whipp" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> David,
>>
>> Sounds like you forgot to install the .dll files... If that is the case,
>> go back to http://www.lebans.com/mousewheelonoff.htm and redownload to
>> get the files again.
>>
>> --
>> Gina Whipp
>>
>> "I feel I have been denied critical, need to know, information!" -
>> Tremors II
>>
>> http://www.regina-whipp.com/index_files/TipList.htm
>>
>> "David" <(E-Mail Removed)> wrote in message
>> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>>> Some time back, I got the referenced module from one of these groups.
>>> The
>>> purpose of the module is to control how the wheel on the mouse is used
>>> by a
>>> form in A2007. It in effect changes pages when the wheel is moved.
>>> The problem I have is that when I got a new computer and reinstalled
>>> A2007,
>>> the module was not longer functioning.
>>> Can anyone give me instructions as to how to "install" this module?
>>>
>>
>>
>

Oops forogt, have you checked References?

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

"David" <(E-Mail Removed)> wrote in message
news:OuB%23G%(E-Mail Removed)...
> Here is what I have that used to work on an older machine that was also
> running A2007.
>
> 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
>
> "Gina Whipp" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> David,
>>
>> Sounds like you forgot to install the .dll files... If that is the case,
>> go back to http://www.lebans.com/mousewheelonoff.htm and redownload to
>> get the files again.
>>
>> --
>> Gina Whipp
>>
>> "I feel I have been denied critical, need to know, information!" -
>> Tremors II
>>
>> http://www.regina-whipp.com/index_files/TipList.htm
>>
>> "David" <(E-Mail Removed)> wrote in message
>> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>>> Some time back, I got the referenced module from one of these groups.
>>> The
>>> purpose of the module is to control how the wheel on the mouse is used
>>> by a
>>> form in A2007. It in effect changes pages when the wheel is moved.
>>> The problem I have is that when I got a new computer and reinstalled
>>> A2007,
>>> the module was not longer functioning.
>>> Can anyone give me instructions as to how to "install" this module?
>>>
>>
>>
>

David,

That is not the one you are using so ignore it... I am looking at the one
you are using.

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

"David" <(E-Mail Removed)> wrote in message
news:OfJe%(E-Mail Removed)...
> The site you referenced is dated in 2005. Will this work on A2007?
>
> "Gina Whipp" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> David,
>>
>> Sounds like you forgot to install the .dll files... If that is the case,
>> go back to http://www.lebans.com/mousewheelonoff.htm and redownload to
>> get the files again.
>>
>> --
>> Gina Whipp
>>
>> "I feel I have been denied critical, need to know, information!" -
>> Tremors II
>>
>> http://www.regina-whipp.com/index_files/TipList.htm
>>
>> "David" <(E-Mail Removed)> wrote in message
>> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>>> Some time back, I got the referenced module from one of these groups.
>>> The
>>> purpose of the module is to control how the wheel on the mouse is used
>>> by a
>>> form in A2007. It in effect changes pages when the wheel is moved.
>>> The problem I have is that when I got a new computer and reinstalled
>>> A2007,
>>> the module was not longer functioning.
>>> Can anyone give me instructions as to how to "install" this module?
>>>
>>
>>
>

David,

Does any of your code work? Is your database in a Trusted Location? The
module does work in Access 2007.

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm

"David" <(E-Mail Removed)> wrote in message
news:OuB%23G%(E-Mail Removed)...
> Here is what I have that used to work on an older machine that was also
> running A2007.
>
> 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
>
> "Gina Whipp" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> David,
>>
>> Sounds like you forgot to install the .dll files... If that is the case,
>> go back to http://www.lebans.com/mousewheelonoff.htm and redownload to
>> get the files again.
>>
>> --
>> Gina Whipp
>>
>> "I feel I have been denied critical, need to know, information!" -
>> Tremors II
>>
>> http://www.regina-whipp.com/index_files/TipList.htm
>>
>> "David" <(E-Mail Removed)> wrote in message
>> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>>> Some time back, I got the referenced module from one of these groups.
>>> The
>>> purpose of the module is to control how the wheel on the mouse is used
>>> by a
>>> form in A2007. It in effect changes pages when the wheel is moved.
>>> The problem I have is that when I got a new computer and reinstalled
>>> A2007,
>>> the module was not longer functioning.
>>> Can anyone give me instructions as to how to "install" this module?
>>>
>>
>>
>

This used to work. By that I mean, when in a form, I could move the wheel
forward or back and the form would page up or down. It worked fine before.
But after I installed A2007 in new computer (same Win Ver. as well as
A2007), the wheel no longer functioned at all (but this only occurs in my
Form). All other aspects within A2007, the Mouse wheel is functioning, just
not in my Form as it used to.

"Gina Whipp" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> David,
>
> Does any of your code work? Is your database in a Trusted Location? The
> module does work in Access 2007.
>
> --
> Gina Whipp
>
> "I feel I have been denied critical, need to know, information!" - Tremors
> II
>
> http://www.regina-whipp.com/index_files/TipList.htm
>
> "David" <(E-Mail Removed)> wrote in message
> news:OuB%23G%(E-Mail Removed)...
>> Here is what I have that used to work on an older machine that was also
>> running A2007.
>>
>> 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
>>
>> "Gina Whipp" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>> David,
>>>
>>> Sounds like you forgot to install the .dll files... If that is the
>>> case, go back to http://www.lebans.com/mousewheelonoff.htm and
>>> redownload to get the files again.
>>>
>>> --
>>> Gina Whipp
>>>
>>> "I feel I have been denied critical, need to know, information!" -
>>> Tremors II
>>>
>>> http://www.regina-whipp.com/index_files/TipList.htm
>>>
>>> "David" <(E-Mail Removed)> wrote in message
>>> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>>>> Some time back, I got the referenced module from one of these groups.
>>>> The
>>>> purpose of the module is to control how the wheel on the mouse is used
>>>> by a
>>>> form in A2007. It in effect changes pages when the wheel is moved.
>>>> The problem I have is that when I got a new computer and reinstalled
>>>> A2007,
>>>> the module was not longer functioning.
>>>> Can anyone give me instructions as to how to "install" this module?
>>>>
>>>
>>>
>>
>
>

There is nothing of this in References.

"Gina Whipp" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Oops forogt, have you checked References?
>
> --
> Gina Whipp
>
> "I feel I have been denied critical, need to know, information!" - Tremors
> II
>
> http://www.regina-whipp.com/index_files/TipList.htm
>
> "David" <(E-Mail Removed)> wrote in message
> news:OuB%23G%(E-Mail Removed)...
>> Here is what I have that used to work on an older machine that was also
>> running A2007.
>>
>> 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
>>
>> "Gina Whipp" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>> David,
>>>
>>> Sounds like you forgot to install the .dll files... If that is the
>>> case, go back to http://www.lebans.com/mousewheelonoff.htm and
>>> redownload to get the files again.
>>>
>>> --
>>> Gina Whipp
>>>
>>> "I feel I have been denied critical, need to know, information!" -
>>> Tremors II
>>>
>>> http://www.regina-whipp.com/index_files/TipList.htm
>>>
>>> "David" <(E-Mail Removed)> wrote in message
>>> news:CF473916-4AB4-4331-9E56-(E-Mail Removed)...
>>>> Some time back, I got the referenced module from one of these groups.
>>>> The
>>>> purpose of the module is to control how the wheel on the mouse is used
>>>> by a
>>>> form in A2007. It in effect changes pages when the wheel is moved.
>>>> The problem I have is that when I got a new computer and reinstalled
>>>> A2007,
>>>> the module was not longer functioning.
>>>> Can anyone give me instructions as to how to "install" this module?
>>>>
>>>
>>>
>>
>
>