Premesso che serve sempre un minimo di preparazione, altrimenti non è nemmeno possibile interagire, e quello che tu chiami "bisogno di aiuto" in realtà è "bisogno di pappa pronta", e non è giusto.
Non serve alcuna Query, semplifichiamo le cose.
Dalla maschera, si deve gestire l'evento beforeinsert e su questo controllare con DCOUNT quanti Records sono presenti con il valore appena immesso.
Se superano 9, si forza CANCEL=True
Private Sub Form_BeforeInsert(Cancel As Integer)
IF DCOUNT("*","NomeTabella","NomeCampoData=" & clng(Me!ControlloCampoData)>9 Then
MsgBox "Sono già presenti 10 Records, salvataggio annullato"
Cancel=True
End if
End Sub