[Resolvido]Erro 2046 após reguardar

Oi pessoal, estou aqui com um "problemazito" !
O seguinte código esta num botão que se encontra num form, este form tem um subform. Ele funciona bem quando estamos a inserir o primeiro registo, no caso de o alterar-mos ele da erro, no código já trato o erro, mas pretendia era que gravasse após alterar a linha no subform.
Código

Código:

On Error GoTo Fim

If MsgBox("Deseja Guardar o Registo Efetuado ?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdRecordsGoToNew
End If

Fim:
If Err.Number = 2046 Then
MsgBox "contacte o Administrador do Sistema", vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
End If

Obrigado.

Olá Paulo,

O erro ocorre nesta linha de código:
DoCmd.RunCommand acCmdRecordsGoToNew

Verifique se tem campos filtrados e permite adicionar novo.
Verifique também onde está o foco se no formulário principal ou sub-formulário.

Abraço

Oi Teixeira, amigo o problema é mesmo esse :
Verifique também onde está o foco se no formulário principal ou sub-formulário.
Se o foco estiver no subform da erro, mas se estiver no form já n/ da erro... Grava ! Coloquei no tratamento do erro a forma de o utilizador ultrapassar o problema. Fica resolvido assim até encontrar melhor solução.

Olá, obrigado pelo retorno.

Pode sempre ajustar o código para mudar o foco para o form principal no início do código que postou.
Que acha?

Abraço

Seria excelente, como posso fazer isso ? Obrigado Teixeira

Olá, nem fez uma "Busca" no forum do SetFocus.

Algo assim:
Forms!Nomeformulário.SetFocus

Abraço

Por acaso, não . . .
Irei pesquisar ! Obrigado