Solved

FormatConditions backcolor help

Posted on 2007-04-01
5
1,097 Views
Last Modified: 2013-11-28
Can anybody give insight on this.. The following vba codition works correctly EXCEPT for the backcolor of the text field.. the result of Any rgb changes the backcolor result is Black. When I shut off the conditionns the backcolor goes back to white but when clicking my condition button the Forecolors work (blue,pink,purple) but the background color stay at black.. I wanted it yellow RGB(255, 255, 0)..

----------------------------------------------------------------------
Dim fcd1 As FormatCondition

If Me.Contact1First.FormatConditions.Count > 0 Then
MsgBox "Conditional format already exists."
Exit Sub
End If

Set fcd1 = Me.Contact1First.FormatConditions.Add(acExpression, acEqual, "Date()>=[trialstartdate] And Date()<=[trialenddate] And [contractstatus]='Unsigned'")
Set fcd1 = Me.Contact1First.FormatConditions.Add(acExpression, acEqual, "date() > [TrialEndDate] And [ContractStatus] = 'Unsigned'")
Set fcd1 = Me.Contact1First.FormatConditions.Add(acExpression, acEqual, "[contractstatus]='signed' Or [contractstatus]='N/A'")

With Me![Contact1First].FormatConditions(2)
    .FontBold = True
    .FontItalic = True
    .FontUnderline = False
    .BackColor = True
End With

Me.Contact1First.FormatConditions(0).ForeColor = RGB(72, 61, 139)
Me.Contact1First.FormatConditions(0).FontBold = True
Me.Contact1First.FormatConditions(0).BackColor = RGB(255, 255, 0)
Me.Contact1First.FormatConditions(0).BackColor = True


Me.Contact1First.FormatConditions(1).ForeColor = RGB(255, 62, 150)
Me.Contact1First.FormatConditions(1).FontBold = True
Me.Contact1First.FormatConditions(1).BackColor = RGB(255, 255, 0)
Me.Contact1First.FormatConditions(1).BackColor = True


Me.Contact1First.FormatConditions(2).ForeColor = RGB(255, 0, 255)
Me.Contact1First.FormatConditions(2).FontBold = True
Me.Contact1First.FormatConditions(2).BackColor = RGB(255, 255, 0)
Me.Contact1First.FormatConditions(2).BackColor = True
0
Comment
Question by:joein610
  • 2
  • 2
5 Comments
 
LVL 9

Accepted Solution

by:
TheSloath earned 500 total points
ID: 18834201
You're setting the backcolor twice?

Me.Contact1First.FormatConditions(1).BackColor = RGB(255, 255, 0)
Me.Contact1First.FormatConditions(1).BackColor = True


...and ultimately to -1
0
 
LVL 75
ID: 18834206
What happens if you remove the lines:

Me.Contact1First.FormatConditions(0).BackColor = True

?

mx
0
 

Author Comment

by:joein610
ID: 18834215
Ahh THANX@!!!

For the first time I spent the time to incease my conditions and I got fouled up..

0
 

Author Comment

by:joein610
ID: 18834287
I guess access even through code has a 3 condition limit??
0
 
LVL 9

Expert Comment

by:TheSloath
ID: 18834993
Yeah - annoying isn't it :-)
0

Featured Post

Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

In the previous article, Using a Critera Form to Filter Records (http://www.experts-exchange.com/A_6069.html), the form was basically a data container storing user input, which queries and other database objects could read. The form had to remain op…
Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

828 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question