VBA to Conditionally Format a Chart (2 Viewers)

[June7]

Using data driven approach, built charts in Modern and Classic without VBA. Not liking text quality in Modern. Calibri used in both. This is in Access 2021.

 

[ChrisMore]

Glad you're happy with it!
As I said (after editing my initial reply), there was no need to requery the chart itself as that happens automatically
You can probably remove the Refresh button now as well.


When I tested it failed on the Cutomer_Order_Form ... Goods_Out_Search_Button_Click on the line
If DLookup("[Tag]", "Customer_Orders", "[Order_Number] ='" & Me.Text67 & "'") = True Then

However that button doesn't actually exist so that code procedure could be deleted.
When I did so it compiled.
However if you add Option Explicit to each code module there may well be other compilation issues - not tested.

I think that issue is because I scaled down the sample database I uploaded. My version is working fine.

I am noticing there is an issue with the reports below the chart when using the RequeryObjects sub. I can this is also apparent on your version you uploaded. When comparing the report records from my original upload there are a lot more for each working day, whereas for the updated version you uploaded the records have greatly reduced. Any ideas why?

 

[ChrisMore]

Using data driven approach, built charts in Modern and Classic without VBA. Not liking text quality in Modern. Calibri used in both. This is in Access 2021.

Thanks for the suggestion, please can you upload your edited version of the database so I can have a look?

I am wondering if your results are similar to what I have done. The reason I say this is because the blue bar is still there. Going back to my original post, I am looking to have the blue bar automatically recolored based on the value. So in your example screen shots the blue bar should be green (preferably a different shade green). Then when the value is over 50 the bar will be yellow and so on.