[Resolvido]Exportar Relatorio em PDF filtrado com base em campo NãoAcoplado

Ola bom dia.
Estou precisando abrir um relatório em PDF, onde no meu Formulário tem uma Caixa de Combinação "NãoAcoplada" (txtAno), onde pego os valores de uma tabela que tem campo de data e uso o Format$ para deixar apenas o Ano. e agrupo para ter apenas os anos, esse servirá de filtro para o relatorio.
No relatório, tenho uma caixa Caixa de Texto (txtAno), tmbm NãoAcoplada, onde receberá a informação da txtAno la do Formulario, que servirá para filtro dos subRelatorios que tem dentro do meu relatório.

'Obriga a selecionar um ano para o filtro
If IsNull(txtAno) Or txtAno.Value = "" Then
   MsgBox "Qual o ano de pesquisa?", vbOKOnly + vbCritical, "Atenção"
       txtAno.SetFocus
   txtAno.BackColor = RGB(255, 255, 0)
   
   Exit Sub
End If

On Error GoTo xpto

Dim strLocal As String
strLocal = "C:\BaseIML\SeuRelatorio.pdf"

'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "relExameCidade", acViewPreview, , "txtAno =" & [Forms]![frmRelatorioExames]![txtAno], acHidden

'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputReport, "relExameCidade", acFormatPDF, strLocal, True

'Fecha o relatório
DoCmd.Close acReport, "relExameCidade"

xpto:
If Err.Number <> 0 And Err.Number <> 2501 Then
MsgBox "Erro: " & Err.Number & vbNewLine & Err.Description
Exit Sub

End If


Código foi adaptado do https://www.usandoaccess.com.br/tutoriais/gerar-relatorios-em-pdf-e-enviar-por-email.asp?id=1

Ele gera o relatório e abre, porém não filtra.

Resolvido.

Retirei o filtro do codigo

...
'Abre o relatório devidamente filtrado e oculto
DoCmd.OpenReport "relExameCidade", acViewPreview, , , acHidden

...

e dps determinei a fonte do controle do txtAno do Relatorio como sendo o campo txtAno do Formulário aberto.