Non puoi fare così ovviamente... la Stringa SQL non è quello che serve al Criterio WHERE di DCOUNT ma una cosa più complessa...!
Fossi in te userei questo se lo inserisci nella SUBFORM
NumeroRecords=Me.RecordsetClone.Recordcount
Se lo inserisci nella Form questo
NumeroRecords=Me!NomeSubForm.Form.RecordsetClone.RecordCount
Altrimenti avresti dovuto filtare la Maschera usando la proprietà FILTER e non tramite la Query... a quel punto avresti potuto passare alla DCOUNT la proprietà FILTER diretta
NumRecord = DCount("[ID]", "Q_Contratti", Me.Filter)