Form_mouseMove - get it working even if cursor is upon textbox/label

[robs23]

Hi Guys,

Can I get Form_mouseMove or Detail_mouseMove event called even when cursor is upon textbox/label? I have at least 30 textboxes on my form and I want their borders to go red when cursor is upon them but i don't want to create >30 textbox_mousemove events.. With form_mousemove I can get current cursor position and check whether it matches position of any of the textboxes. Unfortunately, currently both Form_MouseMove and Detail_MouseMove won't trigger when the cursor is moving upon other object.. How can I get round it?

Regards,


Robert

[June7]

You could have one function and call it in the textbox event property. I have done this for a form full of buttons. Example:

Private Function HandleButtonClick(intBtn As Integer)
'this procedure is called when a button is clicked
'intBtn indicates which button was clicked
Select Case intBtn
    Case 1
        DoCmd.OpenForm "AirportData"
    Case 2
        DoCmd.OpenReport "Fax", acViewPreview
    Case 3
        DoCmd.OpenReport "Summary", acViewPreview
    Case 4
        DoCmd.OpenReport "ContactList", acViewPreview
    Case 5
        UpdateFromPaver
    Case 6
        ExportAASP
    Case 7
        DoCmd.OpenReport "Imagery", acViewPreview
    Case 8
        DoCmd.OpenReport "Strength", acViewPreview, , , acDialog
    Case 9
        DoCmd.Quit acQuitSaveNone
End Select
End Function

Then in the event property:
=HandleButtonClick(1)

[CJ_London]

don't want to create >30 textbox_mousemove events

to work with June7's suggestion you would need to pass a value which references the control - e.g. =MseMove([Text1])

then your function would be

public function mseMove(ctrl as control)

    ctrl.bordertype=1

end function

you can write a bit of vba code to populate the onevents

for each ctrl in me.controls
ctrl.onmousemove="=(mseMove([" & ctrl.name & "])"
next ctrl

also, just in case you are not aware - labels associated with a control do not have events. You need to disassociate them to get the events

[June7]

The function will probably need code that resets all textboxes back to neutral and then highlight the one of interest.

[CJ_London]

agreed

public function mseMove(ctrl as control)
dim ctl as control

'no way of knowing which was the last control (if any), so reset all
for each ctl in me.controls 
    ctl.bordertype=0
' could use if..else here but suspect process time would be increased
next ctl

ctrl.bordertype=1

end function