Hi John
Thank you for this post.
I have looked at the links you gave me and played with the recordsource but with no joy.
These are just a couple of the combinations I have tried...
=DCount("[Work]","Me!SubfrmAttComments","[Work]='Good'")
=DCount("[Work]","Me!RecordSource","[Work]='Good'")...