Creating fields which change on mouse over

[cwbviper]

I am trying to create an access form where the users will input the data but when the user goes to select the next field with the mouse as the mouse moves over the field the field will change colour. Anyone who can give any help on this would be much appreciated.

Thanks

 

[cantona]

Hi cwbviper,

Try this link below, it is from the microsoft knowledge base, it outlines everything you need to do. Hope this is of help

http://support.microsoft.com/default.aspx?scid=kb;en-us;210263

Cantona

 

[mfd777]

A nice alternative was posted here some-time last year. It may not be what you need but I find it good.

1. Select all the controls that you wish to highlight
2. Set the background colour to highlight colour of your choice.
3. With the controls still selected, set the back style property to tranparent.

This will leave all controls the standard form grey colour until selected and the background colour will then appear.

HTH

 

[danvlas]

Paste this sub in a module


Public Sub ChangeColor(Contr$)
Dim ctr As Control
Const ActiveColor = 255 'red
Const IdleColor = 0 'black
On Error Resume Next
For Each ctr In Screen.ActiveForm
If ctr.Name = Contr Then
ctr.BackColor = ActiveColor
Else
ctr.BackColor = IdleColor
End If
Next
End Sub

This code in form's module:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ChangeColor ("&quot
End Sub

and for each text box that you want to highlight:

Private Sub ControlName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ChangeColor ("ControlName&quot
End Sub

This is close to what you need...

Good luck

Daniel Vlas
Systems Consultant
danvlas@yahoo.com

 

[cwbviper]

Thanks very much for all the help.