joein610
asked on
FormatConditions backcolor help
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.FormatCon ditions.Co unt > 0 Then
MsgBox "Conditional format already exists."
Exit Sub
End If
Set fcd1 = Me.Contact1First.FormatCon ditions.Ad d(acExpres sion, acEqual, "Date()>=[trialstartdate] And Date()<=[trialenddate] And [contractstatus]='Unsigned '")
Set fcd1 = Me.Contact1First.FormatCon ditions.Ad d(acExpres sion, acEqual, "date() > [TrialEndDate] And [ContractStatus] = 'Unsigned'")
Set fcd1 = Me.Contact1First.FormatCon ditions.Ad d(acExpres sion, acEqual, "[contractstatus]='signed' Or [contractstatus]='N/A'")
With Me![Contact1First].FormatC onditions( 2)
.FontBold = True
.FontItalic = True
.FontUnderline = False
.BackColor = True
End With
Me.Contact1First.FormatCon ditions(0) .ForeColor = RGB(72, 61, 139)
Me.Contact1First.FormatCon ditions(0) .FontBold = True
Me.Contact1First.FormatCon ditions(0) .BackColor = RGB(255, 255, 0)
Me.Contact1First.FormatCon ditions(0) .BackColor = True
Me.Contact1First.FormatCon ditions(1) .ForeColor = RGB(255, 62, 150)
Me.Contact1First.FormatCon ditions(1) .FontBold = True
Me.Contact1First.FormatCon ditions(1) .BackColor = RGB(255, 255, 0)
Me.Contact1First.FormatCon ditions(1) .BackColor = True
Me.Contact1First.FormatCon ditions(2) .ForeColor = RGB(255, 0, 255)
Me.Contact1First.FormatCon ditions(2) .FontBold = True
Me.Contact1First.FormatCon ditions(2) .BackColor = RGB(255, 255, 0)
Me.Contact1First.FormatCon ditions(2) .BackColor = True
--------------------------
Dim fcd1 As FormatCondition
If Me.Contact1First.FormatCon
MsgBox "Conditional format already exists."
Exit Sub
End If
Set fcd1 = Me.Contact1First.FormatCon
Set fcd1 = Me.Contact1First.FormatCon
Set fcd1 = Me.Contact1First.FormatCon
With Me![Contact1First].FormatC
.FontBold = True
.FontItalic = True
.FontUnderline = False
.BackColor = True
End With
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
Me.Contact1First.FormatCon
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Ahh THANX@!!!
For the first time I spent the time to incease my conditions and I got fouled up..
For the first time I spent the time to incease my conditions and I got fouled up..
ASKER
I guess access even through code has a 3 condition limit??
Yeah - annoying isn't it :-)
Me.Contact1First.FormatCon
?
mx