Lebans Continuous Forms Control Tip - In Subform

[Whizbang]

I am attempting to use this (http://www.lebans.com/conformscurcontrol.htm) in a continuous subform in Access 2010.



I have a form with records, and a subform that displays records related to the parent record. I want to display dynamic controltip text on the subform, similar to how Lebans designed for a standard continuous form.

It works fine as is until I need to scroll down in the subform. The class doesn't seem to recognize that the subform has scrolled, and so moving the mouse over the control will only display the controltip text for the first page of records.

How can I get it to sense the subform scroll?

[June7]

I am testing the sample db and it is worse than you describe. When over record 2 it shows record 1, when over record 1 it shows record 2, when over other 3 records it shows the previous record. And then doesn't recognize scroll action. I am very surprised Lebans product doesn't work. Maybe it has something to do with being built as mdb but running under A2007/A2010. I allowed Access to convert the db and got warning of conversion errors. Conversion didn't help. Sorry, no idea how to fix.

[Whizbang]

Sorry, I forgot I had already fixed that.

Find this (in the Private Sub ctlTextBox_MouseMove):

' Calculate which row we are on adding in the ScrollBar Thumb offset.
lngTemp = (sngY \ m_Form.Section(acDetail).Height) + lngRet -1

and replace with this:

' Calculate which row we are on adding in the ScrollBar Thumb offset.
lngTemp = (sngY \ m_Form.Section(acDetail).Height) + lngRet

At least, that seems to have fixed it.

[June7]

Yes, that took care of one issue. I can only guess that something is wrong with fGetScrollBarPos or fIsScrollBar. I step debugged and fGetScrollBarPos always runs loop until hWndSB=-1 and exits function with fGetScrollBarPos set to False. The fIsScrollBar function is not finding vertical scrollbar and therefore returns -1 to fGetScrollBarPos.

I step debug and hover over hWnd_VSB in line:
If fGetClassName(hWnd_VSB) = "scrollBar" Then

I see values like 5245074, 2296096, 2295962, etc.

I step debug and Function fGetClassName returns a variety of strings, one of which is "NUIScrollbar"

Change "scrollBar" to "NUIScrollbar" (or maybe LIKE "*scroll*" instead of =) and undo the other code edit.

Very nice! Knew Lebans couldn't publish something that didn't work. Problem is probably Microsoft changing something with Access versions.

[Whizbang]

Brilliant! Thanks so much for this!