Marshall Barton said:
slowly said:
I have solved this problem using example from fredg in "conditional
formatting on text string" if your looking for example of getting around
wildcard characters look there for solution
I thought Fred also demonstrated how to use wildcards to do
that. Just use the expression:
[Description] Like "*material*"
Using [Description] Like "*material*" would not work
Here is the code I ended up using based of of Fred's examples
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If InStr([Description], "Material") > 0 Or InStr([Description],
"Supplies") > 0 Then
[PO Number].BackColor = vbRed
[PO Number].ForeColor = 16777215
Description.BackColor = vbRed
Description.ForeColor = 16777215
Notes.BackColor = vbRed
Notes.ForeColor = 16777215
Status.BackColor = vbRed
Status.ForeColor = 16777215
[Date Entered].BackColor = vbRed
[Date Entered].ForeColor = 16777215
[PO Created].BackColor = vbRed
[PO Created].ForeColor = 16777215
Company.BackColor = vbRed
Company.ForeColor = 16777215
ElseIf Instr([PO Number], "1500") > 0 or Instr([PO NUmber], "1501") > 0
Then
[PO Number].BackColor = 16777215
[PO Number].ForeColor = vbRed
Description.BackColor = 16777215
Description.ForeColor = vbRed
Notes.BackColor = 16777215
Notes.ForeColor = vbRed
Status.BackColor = 16777215
Status.ForeColor = vbRed
[Date Entered].BackColor = 16777215
[Date Entered].ForeColor = vbRed
[PO Created].BackColor = 16777215
[PO Created].ForeColor = vbRed
Company.BackColor = 16777215
Company.ForeColor = vbRed
Else
[PO Number].BackColor = 16777215
[PO Number].ForeColor = vbBlack
Description.BackColor = 16777215
Description.ForeColor = vbBlack
Notes.BackColor = 16777215
Notes.ForeColor = vbBlack
Status.BackColor = 16777215
Status.ForeColor = vbBlack
[Date Entered].BackColor = 16777215
[Date Entered].ForeColor = vbBlack
[PO Created].BackColor = 16777215
[PO Created].ForeColor = vbBlack
Company.BackColor = 16777215
Company.ForeColor = vbBlack
End If
End Sub