Mousemove event determine control name

[dcdimon]

I have a module tied to a mousemove event and I'm trying to get the name of the control the mouse is over. I realize that I can't use screen.activecontrol.name since the control may not have the focus. But there's got to be some way for me to tickle Access into given me the name of the control that's firing the mousemove event.

I'm looking for the control name in order to make a generic module that I can use on multiple controls. The control name is being used in a DLookup function to find a value in a table.

Any ideas of where to begin?

DD

[orange]

Can you post the code you have for the mousemove?

[dcdimon]

Can you post the code you have for the mousemove?

Here's what I've worked out so far - I actually got the control name to come across using this.
The script I'm using is:

Public Function ImagePopup(ByRef Ctrl As control)
Dim ControlNamestr As String
Dim ControlImagestr As String


If CurrentProject.AllForms("picturetesting").IsLoaded Then
Else
ControlNamestr = Left(Ctrl.Name, Len(Ctrl.Name) - 7)
ControlImagestr = DLookup("ImageSubf", "ControlPictures", "ControlName = '" & ControlNamestr & "'")

DoCmd.OpenForm "picturetesting"
Forms!picturetesting!PictureSubf.SourceObject = ControlImagestr
Forms!picturetesting.Caption = ControlNamestr

End If

The function is checking if my popup form is already open to eliminate the flicker you'd get if it was constantly trying to open the form/subform. It it's not open then it opens it and sets the SourceObject equal to the value it gets in the DLookup. It also uses the control name to set the popup window's caption so that its titled correctly.

I put the function name with the control name in parenthesis directly into the On Mouse Move option box like this =ImagePopup([checktwodisplay]) - I can't take credit for that, I found it online. This is then set in the function as CTRL. In the script CTRL.Name is the name of the control, which I can then manipulate to knock off the suffix and use to look up a value in the table.

I haven't found anything that lets me do this via straight vba, which is what I'd really like. I'd like to be able to just put ImagePopup into the vba without having to enter the control name. My reasoning for that is to eliminate the need to change script should a control name change. I'd only have to change the control name and the script would take it in stride. If I have to leave it this way then so be it, but I'm hoping that someone can point me in a VBA direction.

DD

[orange]

I was wondering, and haven't found any vba to support this, whether or not you can use Mousemove with the form itself. Then check for each control on the form and get its Name and Position Top Left, width and height. Then check to see if the mouse cursor is within the bounds of any control. If it is, then ??somehow?? show the control name. Debug.Print wouldn't be too helpful, nor MsgBox. Just some thinking.

I have some code that works with a control - a button with a caption- if you move outside the bounds of the control, the caption disappears. I can get it to debug.print the control name. If you move the cursor back within the bounds of the control, its caption reappears.

When you look at a form with Access, you'll notice the cursor changes when you go to a textbox for example. So, it is aware of the control boundary.

Just some thoughts that may help.