Mousewheel scroll in text box ... can't get it to work

[aharown]

Everyone says this is asked alot, and I've several posts via googling, but they all error in various ways.



Why you have to write code to make a text box do what it should by default is a question for another day, I guess, but for now, can anyone point me to a nice "assumes you know nothing" tutorial on how to make a text box scroll with a mousewheel?

Many of the solutions I've found seem to say there is code that has to go in two different places. I managed to make a module a couple of times, following these recipes. Then went to Design on the form itself and hit the code button to put in some more code ... this was my best guess on where this code belongs.

But lots of errors.

I even downloaded one solution that was a sample database with a form that scrolls. His works. Tried to do it in mine: errors.

So I'm missing something here. Probably just need more detailed instructions. Sure would be nice if the Poperty Sheet - Event tab had an "on mousehweel." But alas, no.

[CJ_London]

His works. Tried to do it in mine: errors.

perhaps provide the working example and your example for comparison? Otherwise no idea what you are missing or what you have tried.

[Minty]

The reason it doesn't work is because Microsoft disabled it. So it is by design.
There is a On Mouse Wheel property on the form event tab.

This code works on a report embedded in a form

  If Count > 0 Then
        SendKeys "{DOWN 2}"
    ElseIf Count < 0 Then
        SendKeys "{UP 2}"
    End If

There are other variations.
What happens when you click in the text box and scroll the mouse?

[orange]

See this link from DevHut (Daniel Pineault) re mouse wheel and textbox

[aharown]

Minty's solution worked. For some reason, I couldn't find the onmousewheel event, so I was trying more complex solutions. Several claim to be 'better' because they don't use sendkeys, etc. But with the complexity came more opportunities to make rookie mistakes, with errors that don't yet mean anything useful to me.
Anyway, all good now.
Thanks.