Conditional Formatting using vba

[dim]

Hi,

I have a form where I need a conditional formatting on a field [TT].
So if I use a basic way to do it (condition 1), the expression is [CAV]-[TTA]>0 is working fine and the back color become green as I need.

I can't use that way, because this is an indicator which I don't want to show all the time.

So I tried do it using vba with a button Command143:

Private Sub Command143_Click()
FormatConditions.Add acExpression, acEqual, "IIf([CAV]-[TTA]>0, True, False)"
FormatConditions(1).BackColor = vbGreen
End Sub

But I get a runtime error 404: “Object required”

I never use this way before…Can you help me please?

Thanks

 

[June7]

I expect you have to identify the control.

Private Sub Command143_Click()
Me.controlname.FormatConditions.Add acExpression, acEqual, "IIf([CAV]-[TTA]>0, True, False)"
Me.controlname.FormatConditions(1).BackColor = vbGreen
End Sub

 

[arnelgp]

if you keep hitting the button you will just adding and adding the FC.


Private Sub Command143_Click()
With [TT].FormatConditions
.Delete
With .Add(acExpression, acEqual, "(([CAV]-[TTA])>0)")
.BackColor = vbGreen
End With
End With
End Sub

 

[dim]

Hi,

Is working!!!
Thank you very much!
Have a nice day!

 

[aindoe]

how about comparing the field of the report (say it reportField) with another field from a table (tableField)?
I tried to just use the built-in conditional formatting under the Format ribbon but it does not work.



i want reportField to be highlighted in red if it exceed tableField.

if you keep hitting the button you will just adding and adding the FC.


Private Sub Command143_Click()
With [TT].FormatConditions
.Delete
With .Add(acExpression, acEqual, "(([CAV]-[TTA])>0)")
.BackColor = vbGreen
End With
End With
End Sub

 

[June7]

@aindoe, if you have a question, should start your own thread instead of hijacking an old one. Use DLookup() or join tables in query.

 

[Deleted member 147267]

Never tried this so I'm curious. If the inner and outer With both apply to .FormatCondtions, why nest it? Wouldn't this work?

With [TT].FormatConditions
  .Delete
  .Add(acExpression, acEqual, "(([CAV]-[TTA])>0)")
  .BackColor = vbGreen
End With

 

[Dreamweaver]

Download peter hibbs Gantt Chart Looking for the link at moment


https://www.utteraccess.com/forum/index.php?showtopic=2032649&hl=Gantt+Chart


Or


https://www.utteraccess.com/forum/index.php?showtopic=2050355&hl=