[Resolvido]Relatório não abre no Registro escolhido

Bom dia, amigos do forum.
Mais uma vez recorro ao forum para pedir ajuda com um problema no meu Banco de Dados.


É o seguinte:
Estou tentando abrir um Relatorio (tem um botao para visualizar e outro para imprimir direto), mas o mesmo não abre no registro atual!
Na consulta que gera o Relatorio coloquei o criterio: [Forms]![Fml_AtestadoMédico]![SubFml_AtestadoMédico].[Form]![CódigoAtestadoMédico].
Acho que o êrro está nessa expressão, mas não consegui resolvê-lo. Ou talvez seja um problema na consulta.
Se alguem puder dar uma olhada no BD eu ficaria muito grato. Postei parte dele em anexo.
Nesse caso siga os seguintes passos:

Ao abrir o Fml_CadastroFamilias, escolha um nome qualquer na caixa de combinação acima. É o nome do “Titular” da família. Abrirá os dados da família, com os membros da família. Clique duas vezes no nome de um dos membros da família e abrir-se-á o Fml_Individual dessa pessoa. Até aí está legal, mas veja que, nos botões acima e à direita tem um chamado “Atestado Médico”. Ao clicar nesse botão abre-se o formulário que colhe dados para fazer os diversos tipos de Atestados Médicos mais usados. Veja que o Form já abre com o nome do paciente. Após preencher os dados para fazer os atestados, clicar em “ver” ou “Imprimir” e o relatório escolhido será visualizado/impresso. Porem os dados não estão indo para o Relatorio.... Não sei porque. Na consulta que dá origem ao Relatorio coloquei a expressão:

“[Forms]![Fml_AtestadoMédico]![SubFml_AtestadoMédico].[Form]![CódigoAtestadoMédico]”

Obrigado.

Walter

Acho que o erro está nela, mas não consegui encontra-lo.

Se não for pedir muito, pode resolver isso prá mim?

Um abraço

(estou enviando aqui um link pelo Dropbox, pois mesmo compactado o BD ficou muito grande para anexar...)

https://www.dropbox.com/s/kk0wpatv05ddkf7/Cadastro%20PSF%20Versao20.4_2003%20-%20C%C3%B3pia.mdb

Boa tarde, Alexandre.
Muito obrigado, pela atenção.

O que é : TxtCódigoAtestadoMédico.

Quando coloquei o código no botão dá erro informando "Variável não definida".


Walter

Beleza, Alexandre.
Funcionou perfeitamente. Antes de colocar o "Resolvido", pode me explicar esse código, que você inseriu? (Apenas para efeito de aprendizado...)

If Form.Dirty Then ' (o que significa?)
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 ' (O que significa?)
End If
DoCmd.OpenReport "Rlt_AtestadoMédico", acPreview, , "Tbl_AtestadoMédico.CódigoAtestadoMédico=" & TxtCódigoAtestadoMédico

Muito obrigado, Alexandre.
Mais um problema resolvido pelo Forum e mais uma lição aprendida.

Um abraço, e até a próxima dúvida! Rsrsrsrs

Walter