What I have is a button that I want to make either hightlight or dissapear and then reapper when you mouse over or tab over the button. I had it working but then I kept getting a bunch of errors so I wanted to get some help on the matter.
What I did was is I took this code and put it in to a module;
Expand|Select|Wrap|Line Numbers
- Function HighlightControl(ControlName As String)
- With Me.Controls(ControlName)
- If .FontSize <> 13 Then
- .FontSize = 13
- .ForeColor = 49915
- End If
- End With
- End Function
- Function UnhighlightControls()
- Dim ctl As Access.Control
- For Each ctl In Me.Controls
- With ctl
- If .Tag = "Highlight" Then
- If .FontSize <> 12 Then
- .FontSize = 12
- .ForeColor = 16776960
- End If
- End If
- End With
- Next ctl
- End Function
Expand|Select|Wrap|Line Numbers
- =UnhighlightControl(CommandButton)
It started to work but then it just started to error out. Is there something Im missing or forgot to do?
Thanks in advance for the help