Hi @Gasman,
Apologies I modified the DB to the minimum.
I have a Maximise purely to make it fit to the screen of my device, I am aware changing device the formatting is all wrong.
With the code
=DCount("[IDDuty]","[tblSwaps]","[DutyDateNew] = #" & Format([DutyDate].[Value],"mm/dd/yyyy") & "#")...