Change of Font

[mick3911]

Hi All,
I have a form that has a combo box that contains a listconsisting of ‘Safety’ and ‘Quality’.
Is it possible that when Safety is selected that the fontchanges to red and semi-bold?


If it is possible how do I go about doing it? I must addthat my knowledge of VBA is very limited although I am learning as I go aboutbuilding DB’s.
Many thanks

[Minty]

In the after update event of your combo box use something like

Me.YourComboControlName.FontBold = False
Me.YourComboControlName.ForeColor = VbBlack

If Me.YourComboControlName = "Safety" Then
     Me.YourComboControlName.FontBold = True
     Me.YourComboControlName.ForeColor = VbRed
End If

Substitute YourComboControlName for the name of your combo control.

If you can scroll through different records on your form then you would need to add the same code to the OnCurrent Event to update the combo based on the current records state.

[June7]

Consider using Conditional Formatting instead of VBA.

VBA code will set ALL instances of the control to the same format. Therefore VBA is not practical for Continuous or Datasheet form. Whereas CF will work regardless of form style.

You will find CF on the ribbon Format tab.

[June7]

Won't be able to change font with Conditional Formatting but can change color and other effects (bold, underscore, italic).

[mick3911]

Hi Guys,

Apologies for not thanking you both for your replies sooner, first chance I have had to get back to building the DB.

Can't seem to get the VBA solution to work so went to try the CF solution but how do I write the expression?

[June7]

If combobox is bound to a field then just reference field.

Expression is: [fieldname]="Safety"

Or reference combobox name.

Expression is: [comboboxname]="Safety"

[mick3911]

Not working for some reason and can't discover why.

[June7]

Works for me. So you will have to give more info or even provide db for analysis.

[mick3911]

Hi, apologies for the late reply. First chance I have had to work on the DB.

Anyway, sorted the CF problem by deleting the data (which was only test data).

Thanks for all your help.