Mousehook scroll on pop up forms

[niak32]

Hi, mousehook problems again,
no scroll wheel works on main form but doesn't work on the forms that count (pop up forms)

tried calling it when the forms loads but no good, no which way that i do it will turn the mouse wheel off for the pop up forms.

'pop up form
Private Sub Form_Load()

Dim blRet As Boolean
blRet = MouseWheelOFF

as far as i know this has worked for other databases, just now im realizing that it isn't working for pop up forms, little help please?

 

[missinglinq]

Don't know what to tell you; I've been using this hack on popup forms for years without problems. I usually call the function on a splash form that opens my apps, as it only has to be called once when the database opens. But I just created a new database and placed the code in the Form_Load event of the popup form itself, and it works as it is supposed to.

I think about the only way we can help you is for you to zip up your database and attach it to a post here, so someone here can look at it.

BTW, what version of Access are you running?

 

[niak32]

Using access 2003, saving in 2000 format, I will make some new databases and see whats going on, if its global, I must have a different problem.

Will post a database if the small scale tests come back annoyingly similar.

 

[niak32]

Looks like I might be doing something wrong. Attached is a quick, and I mean Really quick test database, scroll wheel on and off doesn't seem to work.

If it works for you, please let me know and I will try to further analyze my computer.

View attachment test.mdb

EDIT by the way the mousehook sample database does work for me, hence the "doing my head in" statement.

 

[niak32]

OK, I have figured out what causes it. The mousehook actually does work on some things, but not when you are focused on a check box, when you move the mouse wheel on a check box, it changes records. ><

 

[missinglinq]

Glad you got it figured out!

 

[niak32]

Glad you got it figured out!

lol, i have only figured out where my problem lies, not how to fix it ><

the only idea which i have is to not allow tab stops on check box's but in one or 2 places I need it to stop there.

sucks to be me at the moment ><

 

[missinglinq]

I tested your new scenario and it still works as it should for me. I suppose you could have some sort of corruption going on. You could try moving everything into a new, blank database. That sometimes resolves corruption.

Only other suggest is the same as before, zipping your database up and posting it. Your database, not a test db you've whipped up, but the actual database you're speaking about.

 

[niak32]

work around

Private Sub Form_Current()
If CurrentRecord <> 1 Then
DoCmd.GoToRecord acDataForm, "frm_stationStats", acFirst

'MsgBox (CurrentRecord)
End If

End Sub
End If

not really sure why it was doing it but it would do it on all forms where there was only one record, the other forms which had more than one record, it was fine.

this will do I think till I get it again on a form with more than one record.