Re: abjMouseWheel
- From: "David" <msgroup@xxxxxxxxxxxxx>
- Date: Mon, 20 Jul 2009 14:43:36 -0600
I checked References and none are marked 'MISSING'. I unchecked Name AutoCorrect in Access Options.
No, I am the only person using this DB. I have installed all updates for A2007. I am using Vista x64 and have updated it to current. This is the same version as in the old computer. No difference there.
Can you tell me where these modules are embedded? Although, I see abjMouseWheel under "Unassigned Objects", I seem to recall having to reference this somewhere in the form design somewhere. I am not able to establish the location.
Where I go to design view for my form, I then go to Design, View Code. Now on the bottom left, I see Properties for my Form. There is a line there for "MouseWheel". When I add "abjMouseWheel" to the space to the right of "MouseWheel" (=function(abjMouseWheel)), I then save it. Then when I attempt to move my Wheel over the Form, I get the following error
This error occurs when an event has failed to run because Microsoft Office Access cannot evaluate the location of the logic for the event. For example, if the OnOpen property of a form is set to =[Field], this error occurs because Access expects a macro or event name to run when the event is fired.
What do you think?
"Gina Whipp" <NotInterested@xxxxxxxxxxxxx> wrote in message news:%23aBmaeXCKHA.5092@xxxxxxxxxxxxxxxxxxxxxxx
David,
Have you checked References to make sure none are marked 'MISSING', though it shouldn't just be impacting only one module it's worth the look. I would also check that Name AutoCorrect is unchecked.
Also, when you say it only occurs '...in my form...', does that mean their are other people using the using the datbase and they are not having the same problem? I would also check to make sure all updates have been installed.
Also, what version of Windows?
--
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" <msgroup@xxxxxxxxxxxxx> wrote in message news:%23QMUgZXCKHA.3556@xxxxxxxxxxxxxxxxxxxxxxxThis 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" <NotInterested@xxxxxxxxxxxxx> wrote in message news:uIIBpVXCKHA.5068@xxxxxxxxxxxxxxxxxxxxxxxDavid,
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" <msgroup@xxxxxxxxxxxxx> wrote in message news:OuB%23G%23WCKHA.4792@xxxxxxxxxxxxxxxxxxxxxxxHere 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" <NotInterested@xxxxxxxxxxxxx> wrote in message news:uvbkihWCKHA.3556@xxxxxxxxxxxxxxxxxxxxxxxDavid,
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" <msgroup@xxxxxxxxxxxxx> wrote in message news:CF473916-4AB4-4331-9E56-FA372C072176@xxxxxxxxxxxxxxxxSome 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?
.
- Follow-Ups:
- Re: abjMouseWheel
- From: Gina Whipp
- Re: abjMouseWheel
- References:
- abjMouseWheel
- From: David
- Re: abjMouseWheel
- From: Gina Whipp
- Re: abjMouseWheel
- From: David
- Re: abjMouseWheel
- From: Gina Whipp
- Re: abjMouseWheel
- From: David
- Re: abjMouseWheel
- From: Gina Whipp
- abjMouseWheel
- Prev by Date: Re: Print Records Errors
- Next by Date: Re: Print Records Errors
- Previous by thread: Re: abjMouseWheel
- Next by thread: Re: abjMouseWheel
- Index(es):
Relevant Pages
|
