Solved

FormatConditions backcolor help

Posted on 2007-04-01
5
1,093 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

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

Suggested Solutions

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
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…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

706 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

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now