How to make tab of tab control stand out?

[Dorian]

I have an application that performs operations automatically by reading data
requests from a queue (table) simply by pressing a button labelled GET.
Three different operations result in the updating of data on different tabs
of a tab control.
It would be very desirable for the user to have the relevant tab somehow
highlighted to indicate which operation was performed. (E.g. caption blinks
or appears in a different color)
Is there any way to do this?
Thanks
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".

 

[NAS]

conditional formatting?

 

[Dorian]

Thanks for suggestion but conditional formatting is grayed out for a tab
control.
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".

 

[Frank H]

If you know (in your code? or logic?) which operation is performed, then it
would seem you would also know which tab that is.
Can you use .setfocus on the tab? That would activate the correct tab.
Then, perhaps you could put a calculated text box on the tab itself, and
apply conditional formatting to that text box?

 

[Peter Hibbs]

Perhaps this site may give you some ideas.

http://www.fontstuff.com/access/acctut12.htm

Peter Hibbs.

 

[Paul Shapiro]

I've added a magnifying glass image to tabs that have
"interesting" data. I've used this for tabs and for command buttons. The
varPictureData has the data I extracted for the magnifying glass image.
Access lets you specify images in design mode, so you could choose other
images if you wanted. This code has been used with both Access 2007 and
2003.

Private Sub ImageSet_AnyControl(ctl As Access.Control, fShowImage As
Boolean)
'Depending on the value of fShowImage, _
the specified control will have an image added or removed. _
The intended usage is to highlight controls that have "interesting" data.
'This is a private routine that does the work. _
There are control-specific public routines. _
The calling routine, generally the Form_OnCurrent, _
would use code like: TabPageImageSet Me.pageNotes, (Not IsNull(Me.notes))
Const cstrEmptyPictureText As String = "(none)"
Static abytePictureData() As Byte 'Will be initialized with the
image data
Static fIsInitialized As Boolean

'Variables for initializing the picture data
Dim varPictureData As Variant
Dim lngIndex As Long

'Initialize the pictureData to a local variable
If Not fIsInitialized Then
fIsInitialized = True

'Array function returns a variant, but it's a long integer array. _
We transfer to the required byte array below.
'This array is the image of a magnifying glass. _
It was generated by putting the image on a tab page, _
copying it to a variant which is then a byte array, _
then looping through the array and writing contents to a string
variable.
varPictureData = _
Array( _
40, 0, 0, 0, 16, 0, 0, 0, 16, 0, 0, 0, 1, 0, 4, 0, 0, 0, 0, 0, _
128, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, _
0, 0, 0, 0, 0, 0, 128, 0, 0, 128, 0, 0, 0, 128, 128, 0, 128, 0,
_
0, 0, 128, 0, 128, 0, 128, 128, 0, 0, 128, 128, 128, 0, 192,
192, _
192, 0, 0, 0, 255, 0, 192, 192, 192, 0, 0, 255, 255, 0, 255, 0,
_
0, 0, 192, 192, 192, 0, 255, 255, 0, 0, 255, 255, 255, 0, _
218, 218, 218, 218, 218, 218, 218, 218, 0, 173, 173, 173, 173,
173, 173, 173, _
0, 10, 218, 218, 218, 218, 218, 218, 160, 0, 173, 173, 173, 173,
173, 173, 218, _
0, 10, 112, 0, 7, 218, 218, 173, 160, 0, 8, 136, 128, 13, 173,
218, 218, 7, _
238, 136, 136, 112, 218, 173, 167, 8, 232, 136, 136, 128, 125,
218, 208, 142, _
136, 136, 136, 136, 10, 173, 160, 136, 136, 136, 136, 136, 13,
218, 208, 136, 136, _
136, 136, 232, 10, 173, 160, 136, 136, 136, 136, 232, 13, 218,
215, 8, 136, 136, _
142, 224, 122, 173, 173, 7, 136, 142, 238, 112, 173, 218, 218,
208, 8, 136, 128, _
10, 218, 173, 173, 173, 112, 0, 7, 173, 173 _
)
'Transfer data to our static byte array
ReDim abytePictureData(UBound(varPictureData))
For lngIndex = 0 To UBound(varPictureData)
abytePictureData(lngIndex) = CByte(varPictureData(lngIndex))
Next lngIndex
End If

'Only make the assignment if we're making a change.
If fShowImage Then
If ctl.Picture = cstrEmptyPictureText Then
ctl.PictureData = abytePictureData
End If
Else
If ctl.Picture <> cstrEmptyPictureText Then
ctl.Picture = ""
End If
End If
End Sub

Public Sub TabPageImageSet(pageTab As Access.Page, fShowImage As Boolean)
'Depending on the value of fShowImage, _
the specified tab page will have an image added or removed. _
The intended usage is to highlight tabs that have "interesting" data. _
The calling routine, generally the Form_OnCurrent, _
would use code like: TabPageImageSet Me.pageNotes, (Not IsNull(Me.notes))
Call ImageSet_AnyControl(ctl:=pageTab, fShowImage:=fShowImage)
End Sub