Re: abjMouseWheel
- From: "Gina Whipp" <NotInterested@xxxxxxxxxxxxx>
- Date: Mon, 20 Jul 2009 17:05:00 -0400
Perhaps you should reread these directions....
http://allenbrowne.com/ser-70.html
Sounds like you don't have the Module in the correct place.
--
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:%23%23KhQrXCKHA.4316@xxxxxxxxxxxxxxxxxxxxxxx
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@xxxxxxxxxxxxxxxxxxxxxxx
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" <NotInterested@xxxxxxxxxxxxx> wrote in message
news:uIIBpVXCKHA.5068@xxxxxxxxxxxxxxxxxxxxxxx
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" <msgroup@xxxxxxxxxxxxx> wrote in message
news:OuB%23G%23WCKHA.4792@xxxxxxxxxxxxxxxxxxxxxxx
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" <NotInterested@xxxxxxxxxxxxx> wrote in message
news:uvbkihWCKHA.3556@xxxxxxxxxxxxxxxxxxxxxxx
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" <msgroup@xxxxxxxxxxxxx> wrote in message
news:CF473916-4AB4-4331-9E56-FA372C072176@xxxxxxxxxxxxxxxx
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?
.
- 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
- Re: abjMouseWheel
- From: David
- abjMouseWheel
- Prev by Date: Re: abjMouseWheel
- Next by Date: Re: abjMouseWheel
- Previous by thread: Re: abjMouseWheel
- Next by thread: Re: abjMouseWheel
- Index(es):
Relevant Pages
|
