I would like to cause the back color of the label of a combo box on a form to
change color after selecting one of two choices: 'sold' and 'unsold'. I have
tried to write an event procedure but am new to vba and have had no success.
I would very much like some advice
--
charlotte

Don't forget to set the BackStyle property of the label - the default is
Transparent, and changing the BackColor property of a Transparent label has
no visible effect. In the example below, I've set the BackColor property in
the AfterUpdate event of the combo box, and also in the Current event of the
form, so that it will change as the user browses through records. I've set
the properties of the combo box programmatically in the Load event of the
form, but you don't have to do it that way. You can set them using the
Properties window at design time. I did it programmatically just for
illustration, so that you can see everything in one place.

Private Sub Combo0_AfterUpdate()

Select Case Me.Combo0
Case "One"
Me.Label1.BackColor = vbRed
Case "Two"
Me.Label1.BackColor = vbBlue
Case Else
Me.Label1.BackColor = vbYellow
End Select

End Sub

Private Sub Form_Current()

Select Case Me.Combo0
Case "One"
Me.Label1.BackColor = vbRed
Case "Two"
Me.Label1.BackColor = vbBlue
Case Else
Me.Label1.BackColor = vbYellow
End Select

End Sub

Private Sub Form_Load()

Me.Combo0.RowSourceType = "Value List"
Me.Combo0.RowSource = "One;Two;Three"
Me.Label1.BackStyle = 1

End Sub

--
Brendan Reynolds
Access MVP


"charlotte" <(E-Mail Removed)> wrote in message
news:8F18E2CD-9794-40C2-A772-(E-Mail Removed)...
>I would like to cause the back color of the label of a combo box on a form
>to
> change color after selecting one of two choices: 'sold' and 'unsold'. I
> have
> tried to write an event procedure but am new to vba and have had no
> success.
> I would very much like some advice
> --
> charlotte

Private Sub Text63_AfterUpdate()
If Text63.Text > 7 Then Text63.BackColor = 4194432 Else
If Text63.Text > 15 Then Text63.BackColor = 12632256 Else
If Text63.Text > 19 Then Text63.BackColor = 65535 Else
If Text63.Text = 34 Then Text63.BackColor = 16711808
End If
that will do a similar job
cahnge the text files and the greater statement and it should work

"charlotte" wrote:

> I would like to cause the back color of the label of a combo box on a form to
> change color after selecting one of two choices: 'sold' and 'unsold'. I have
> tried to write an event procedure but am new to vba and have had no success.
> I would very much like some advice
> --
> charlotte

if the form is in SingleForm view (shows one record at a time), run the code
from the combo box's AfterUpdate event, and the form's Current event, as

If Me!ComboBoxName = "sold" Then
Me!LabelName.BackColor = vbGreen
Else
Me!LabelName.BackColor = vbRed
End If

you can use any of the VB color constants, or you can use a numeric value to
display any shade of any color you choose.

note that if your form is set to ContinuousForms view, the code will act
according to the control's value in the current record, but will change the
label color in every rcord displayed in the form. if you're using A2000 or
newer, you can get around that by changing the label to an unbound textbox
control, and using the Conditional Formatting option, found in form design
view under Format on the menu bar.

hth


"charlotte" <(E-Mail Removed)> wrote in message
news:8F18E2CD-9794-40C2-A772-(E-Mail Removed)...
> I would like to cause the back color of the label of a combo box on a form
to
> change color after selecting one of two choices: 'sold' and 'unsold'. I
have
> tried to write an event procedure but am new to vba and have had no
success.
> I would very much like some advice
> --
> charlotte

Thanks for all your help
--
charlotte


"charlotte" wrote:

> I would like to cause the back color of the label of a combo box on a form to
> change color after selecting one of two choices: 'sold' and 'unsold'. I have
> tried to write an event procedure but am new to vba and have had no success.
> I would very much like some advice
> --
> charlotte