Buttons still appear "highlighte d" after being clicked

[dana1]

I have a form which contains some buttons. The buttons use some of the standard images that come with access 2003 (e.g., the move next record image, or the sort ascending/descending images). The default behavior for access is to give the button a "highlighte d" appearance when the button is hovered with the mouse.

My problem is that these buttons permanently have that "highlighte d" appearance after they have been clicked. With my XP theme, that happens to be an orange border.

Oddly enough, I can get the buttons to go back to their normal appearance if I have another control slightly overlapping them. This works in most cases, but is not a satisfactory solution.

All the buttons are in my form header. I don't think I'm doing anything in code to cause this to happen, but just in case, I've included code for one of the buttons below.

Has anyone run across this before? Does anyone know how to ensure the buttons go back to their "normal" appearance after they have been clicked?

 
'Button to set the recordset of the form to the records associated with the
'last computer ID in my array (the array contains the computer IDs for 
'all the computers that matched search criteria specified by the user).
'Other buttons are similar-- they go to the first
'computer ID in the array, or increment or decrement current array index..
 
Private Sub lastComputer_Click()
On Error GoTo Err_lastComputer_Click
 
    searchComputerIDArrayCurrent = UBound(searchComputerIDArray)
    displayCurrentSearchResults
 
    'DoCmd.GoToRecord , , acLast
 
Exit_lastComputer_Click:
    Exit Sub
 
Err_lastComputer_Click:
    MsgBox Err.Description
    Resume Exit_lastComputer_Click
 
End Sub
 
Public Sub displayCurrentSearchResults()
 
    'display the correct values in the combo boxes, even though they aren't enabled
    computerComboBox = searchComputerIDArray(searchComputerIDArrayCurrent)
    Me.subsystemComboBox.Value = Me.computerComboBox.Column(5)
    Me.siteComboBox.Value = Me.computerComboBox.Column(4)
 
    'display the current record number in the navigation bar
    Me.currentComputerTextBox = searchComputerIDArrayCurrent + 1
 
    'make sure the appropriate navigation buttons are enabled/disabled
    Me.prevComputer.Enabled = True
    Me.nextComputer.Enabled = True
 
    If (searchComputerIDArrayCurrent = LBound(searchComputerIDArray)) Then
        Me.currentComputerTextBox.SetFocus
        Me.prevComputer.Enabled = False
    End If
 
    If (searchComputerIDArrayCurrent = UBound(searchComputerIDArray)) Then
        Me.currentComputerTextBox.SetFocus
        Me.nextComputer.Enabled = False
    End If
 
    'requery the form
    Me.Requery
 
End Sub
 

[MMcCarthy]

Not sure why this is happening. Try adding and Me.Refresh at the end of the button click event code.

Mary

[dana1]

Mary,

Thanks for responding. No luck with the Me.Refresh, unfortunately. Any other ideas?

Even setting the Visible property to False and then back to True doesn't reset the way they're displayed, they still show that "highlight" permanently after they've been clicked. I also tried Me.Repaint, and that did not work either.

Thanks,
Dana

[dana1]

One thing that does appear to work is to disable/enable the button. Again, this isn't really a good solution...

But I guess it will work if we can't figure out why the behaviour is happening in the first place.

Private Sub lastComputer_Click()
On Error GoTo Err_lastComputer_Click
 
    searchComputerIDArrayCurrent = UBound(searchComputerIDArray)
    displayCurrentSearchResults
    Me.currentComputerTextBox.SetFocus
    Me.lastComputer.Enabled = False
    Me.lastComputer.Enabled = True
    Me.lastComputer.SetFocus
 
    'DoCmd.GoToRecord , , acLast
 
Exit_lastComputer_Click:
    Exit Sub
 
Err_lastComputer_Click:
    MsgBox Err.Description
    Resume Exit_lastComputer_Click
 
End Sub
 

[dana1]

....Actually... like the overlapping thing, this only works for some buttons. And, it ends up leaving a green "highlight" instead of an orange "highlight" (probably XP theme colors for something) on the buttons I use it on. The green highlight isn't permanent, but it displays or doesn't display depending on whether the button next to it is enabled/disabled (or so it appears).


[quote=dana1]One thing that does appear to work is to disable/enable the button. Again, this isn't really a good solution...

[Denburt]

May or may not be but are you sure you are using a command button and not a Toggle Button? I don't have my XP themes turned on my Machine is as plain looking as they come so I might not see what you are seeing but the only time my command button highlights is when I click on it and it always snaps back.

Return a Toggle Button:
Me!YourControlN ameHere.Value = 1

[dana1]

Denburt,

Good thought-- I hadn't thought to check that. Unfortunately, it does not appear that they are toggle buttons. I don't see how to tell the type of the control from the GUI, but the ControlType property returns 104, which is a command button. Also, the Value property isn't available from VB, so it appears that is not what is going on.

It's not really the "snapping back" part that is the problem. It does that just fine. It's just the orange border... It's the same orange border that I get when I hover any other button on any of my other forms, or even the buttons on this website (i.e., the Submit Reply or Preview Post buttons). The only difference is on this particular form, the orange border doesn't go away once you've clicked the button :-)

I've compared all the property settings on this button to other buttons that work just fine, and cannot figure out what the difference is..

Thanks for the suggestion! If you have any other ideas, let me know!

or.. if there's any more information that might help you be able to reproduce the behaviour on your machine, let me know and I'd be glad to provide it.

Dana

May or may not be but are you sure you are using a command button and not a Toggle Button? I don't have my XP themes turned on my Machine is as plain looking as they come so I might not see what you are seeing but the only time my command button highlights is when I click on it and it always snaps back.

Return a Toggle Button:
Me!YourControlN ameHere.Value = 1

[Denburt]

OK I set winXP themes and checked it out I wasn't able to reproduce your issue but I see how the highlighting is done now... Interesting situation you are describing and I can only suggest deleting that button and creating a new one. I have had some issues with widows themes acting screwy with my buttons before. I had one user download the frontend off the server and the buttons were the old style, user two downloaded the same database and the buttons had the themes style... I told them it was something they would just need to get used to lol. A few days later new update on the server (only a few minor code changes) both users had the themed style buttons go figure.

Wish I could offer something else to try, good luck.

[dana1]

Thanks Denburt. I'll try creating new buttons next week and let you know how that works out.

Dana

[Denburt]

Your welcome, and good luck let us know how it goes.