[Resolvido]Ir para registro em subformulario não acoplado

Prezados,

Tenho um controle guia com a fonte de registro baseada em uma tabela.

Em uma das páginas do controle guia tenho um subformulário que NâO está acoplado ao controle com a fonte de registro baseada na mesmo consulta do formulário principal.

No atual do suformulário coloquei o seguinte código:
Private Sub Form_Current()
Dim numeroregistro As Integer
numeroregistro = Me.CurrentRecord
On Error GoTo novoregistro:
DoCmd.GoToRecord acDataForm, "formulário movimento", acGoTo, Me.CurrentRecord
Exit Sub
novoregistro:
Forms![formulário movimento].Requery
Forms![formulário movimento]![SubFormulario Movimento].SetFocus
Me.Requery
End Sub

Então quando movo entre os registros deste subformulário, vou para o mesmo registro no formulário principal. Até aí tudo funciona.

Gostaria de quando mover entre os registros do formulário "principal", ir para o mesmo registro no subformulário.

Usei oseguinte código que não está funcionando:

Private Sub Form_Current()
Dim numeroregistro As Integer
numeroregistro = Me.CurrentRecord
On Error Resume Next
DoCmd.GoToRecord acDataForm, [SubFormulario Movimento], acGoTo, numeroregistro
End Sub

Aonde estou errando?
Muito obrigado

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Alguém tem alguma sugestão?

Tente assim:

DoCmd.GoToRecord acDataForm, [SubFormulario Movimento], acGoTo, Me.Código

aonde Código seria o nome do campo aonde se encontra a chave primária do registro. Ou então assim:

Me.NomeControleSubform.SetFocus
DoCmd.GoToRecord, , acGoTo, Me.Código

Prezado criquio
Na primeira forma deu o seguinte erro:
Erro 2498
A expressão corresponde ao tipo de dados errado para um dos argumentos

Na segunda forma deu o seguinte erro:
Erro 2105
Você não pode ir para o registro especificado

Consegui Resolver

Na primeira forma mudei
de [SubFormulario Movimento] para "SubFormulario Movimento".
Parou de dar o erro mas não funcionou.

Na segunda forma fiz a seguinte alteração:

Me.[SubFormulario Movimento].SetFocus
DoCmd.GoToRecord , , acGoTo, Me.CurrentRecord

ao invês de Me.{campocomchaveprimária]

Deu tudo certo

Obrigado

É isso aí. É escavando a terra que encontramos a arca do tesouro. Não tem muito a ver, mas ilustra mais ou menos o que eu quis dizer