Scroll disable 4

[directorz]

Hello experts,
Is there a way to limit a form to show only 1 record by disabling the scroll feature of a mouse wheel while in the form

Thank you
Directorz

 

[directorz]

Or even why this occurs. All I see is that we are attempting to scroll records in your sample, go to close and get the error...

 

[directorz]

Seems to only occur on MouseWheel up

 

[jollygood]

Thanks for your deebugging work directorz.

The error code you get is not a "real" error. This sulotion is only working because I'm taking advatage of Access built in error handling to cancel the "go to next record" command caused by scrolling the wheel. In the code you downloaded I just assumed that anyone using it might whant to use the Form_Error event for other stuff. So I coded it in a way that unexpected errors aren't hidden during development.
If you are not going to use the Form_Error event for other stuff. Replace all the code in the Form_Error procedure with the following lines:

  If Screen.ActiveControl.Name = "UnboundTextBox" Then
     Response = acDataErrContinue
  End If

This should solve your problem.
Oups! Allmost forgot. don't place the "UnboundTextBox" on a tab. Put it directly on the form somwhere. If no room. Put it behind the tabs.
JollyGood

 

[directorz]

I will give it a shot a let you know. I like the pipe smoking smilie!

 

[directorz]

Jollygood,
Works like a charm!

Directorz

 

[kjv1611]

JollyGood,
Your deal works pretty good so far here. One thing I would like to change though, and don't have the slightest of how at the moment (if you still see this post). Would there be a way to disable the message "You can't change record using your mouse wheel!"? I mean, I would like to disable the mousewheel scrolling function for records with no message/error boxes comming up.

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[jollygood]

Hi Stephen and the rest of you reading this.

I beleive you are using the design from the FAQ.
And I'm sorry I haven't updated it yet.

Have a look at my postings [Jul 6, 2004 -the one with a download link] and [Jul 17, 2004]in this thread, and all your problems are solved

Jollygood

 

[kjv1611]

Perfect! I guess it would have paid for me to read a little more closely in all these posts. Thanks a ton, jollygood!

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[aw23]

Jollygood, I don't know if you are still reading this post but I just tried your code. It works if the user scrolls once. But then the curser is in the txtbox and if the user continues to scroll, it does move to another record. Is there anyway to get around this?

Thanks

 

[kjv1611]

aw23,
Try looking at thread705-927339 and see if it gives you any help. Don't know if it will or not, but it sounds like you're on the same page with the user in that thread.

Stephen
"Jesus saith unto him, I am the way, the truth, and the life:
no man cometh unto the Father, but by me." John 14:6 KJV

 

[irishjoe]

Has anyone got this work with access 2000?
I can't see anywhere for a wheel event in 2000...

 

[jollygood]

Hi irishjoe, and the rest of you

I don't beleive you have much choice, but to go for one of the .dll, .ocx sulotions if youre running Access2000.

Have a look earlier in this thread (the posting by krymat) that one didn't work for me, but I haven't tried the sulotion you can find in Thread705-927339.

Happy new year too you all!
jollygood

 

[aarontra]

This sort of works, but the forms flickers.

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
 Me.Form.Recalc
End Sub

 

[mph1]

This question has been asked many times and the solution is not the easiest. Check out the following from Microsoft:

http://support.microsoft.com/default.aspx?scid=kb;en-us;278379

This refers to Access 2000. It is something that can obviously be a major problem and am not sure why MS didn't take this into consideration.

Good Luck!!

An investment in knowledge always pays the best dividends.
by Benjamin Franklin
Autonumber Description - FAQ702-5106