[Resolvido]Erro do filtro de from para subfrom

Private Sub cboPuxaDepartamento_AfterUpdate()

Código:

Me.txtcombinar = Me.cboPuxaDepartamento.Column(1)
If Me.cboPuxaDepartamento = Me.txtcombinar Then
    Forms!subFrmPresencas!frmPresencas.Requery
    End If

End Sub

criterio

Código:

Como "*" & [Formulários]![frmPresencas]![cboPuxaDepartamento] & "*"


por esse codigo consigo ,mas colocando outro cbo herdando um tabela ele não filtra

Código:

Me.ctlSubFrmPresencas.Form.Filter = " dep like '*" & Combinação5 & "*' "
Me.ctlSubFrmPresencas.Form.FilterOn = True
End Sub

drive.google.com/open?id=1RCodQXrah67Iqvzm1ws4sQ2lwuAr_D9L

nenhum dos pesquisados consegui

Boa noite , obrigado Frank . A primeira vez que vejo esse tipo de vinculação