[Resolvido]ao clicar no subform abrir contacto correspondente

Olá.
Na base de dados, tenho um subformulário em FILTRAR e pretendia que ao clicar empresa abrisse o formulário CONTACTOS com os dados desse contacto, o que não aparece.
Quando clico tenho no VB:

Private Sub EMPRESA_Click()
DoCmd.OpenForm "CONTACTOS", acNormal, "", "[CÓDIGO]=[Forms]![FILTRAR]![subformA]", , acNormal
End Sub

similar ao do formulário EDITAR na caixa de listagem (pretendo remover depois este formulário).

Como corrigir?
Obrigado.

Seria muito imporante nos informar qual erro que apresenta... Pois o comando é este mesmo....
Agora confirma o seguinte:

1- Contactos (existe um formulario com esse nome?)
2- CÓDIGO (Existe esse Campo No FOrmulario CONTACTOS?)
3 - subformA (è o Nome do Campo que está no Primeiro FOrmulario, e contem La o Codigo que sera filtrado no Outro Formulario?)
4 - FILTRAR ( É o Realmente o Nome do Primeiro Formulario, onde conté esse Campo Item 3?)

DoCmd.OpenForm "CONTACTOS", acNormal, "", "[CÓDIGO]=[Forms]![FILTRAR]![subformA]", , acNormal

Vê na BD.

pesquisei: Abrir Formulário A Partir De Um Sub Formulários e descobri a solução;

DoCmd.OpenForm "CONTACTOS", , , "[CÓDIGO]=" & Me.CÓDIGO

Solve!

Obrigado.

No arquivo em anexo, o que faltava era ter colocar o Caminho correto de Onde estava o Valor do Campo...


DoCmd.OpenForm "CONTACTOS", acNormal, "", "[CÓDIGO]=[Forms]![FILTRAR]![subFormA]![Código]", , acNormal

não dá, é como fiz na mensagem anterior.
Obrigado.

rerererere

Entao ta... O importante e que deu certo...


Aqui no meu deu certinho! Ctrl C e Ctrl V.