[VBA]filtrare sottomaschera

[fux_vr]

ho trovato questo codice per filtrare la maschera continua

Private Sub acxCalendario_AfterUpdate()
'Fidarsi è bene ma non fidarsi è meglio quindi dichiariamo datData
'come String invece che come Data e questo per....
Dim datData As String
Dim intNumRec As Integer

'...evitare spiacevoli sorprese,quindi formattiamo la data a mano
datData = Format(acxCalendario.Value, "mm/dd/yyyy")

'Impostiamo il filtro
Me.Filter = " [Data] =#" & datData & "#"

'Lo attiviamo e soprattutto....
Me.FilterOn = True

'Aggiorniamo la maschera
Me.Requery
Me.Refresh

'Controlliamo se il filtro restituisce almeno un record
intNumRec = Me.RecordsetClone.RecordCount

'Se non restituisce record
If intNumRec = 0 Then

'Lo facciamo presente all'utente...
MsgBox "Alla data scelta non sono presenti record", vbInformation, "Calendario"

'...e ricarichiamo la maschera senza filtro
Me.FilterOn = False
Me.Requery
Me.Refresh
Else

Exit Sub
End If
End Sub


ma io vorrei filtrare una sotto maschera mi basta modicare il codice la posto di (Me!) metto il nome della mia sotto maschera???

[fux_vr]

help