[Resolvido]Localizar e posicionar no registro

Boa Tarde!

Preciso de uma ajuda.

Tenho um formulário (frmCadastro) onde tem cadastrados de pessoas, neste formulário tem um botão onde abre um formulário (localizar) que tem uma caixa de combinação com todas as pessoas cadastradas.
Apos selecionar a pessoa, quero fechar este fomulário (localizar) e posicione o cadastro da pessoa selecionada da caixa de combinação, no fomulario (frmCadastro.).

stDocName = "frmCadastro"
stLinkCriteria = "[idPessoa]=" & Me![cboPessoa]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Usei o método acima, mas ele filtra e não navega mais estre registros

Tem alguma outra solução?

Amigo, Boa Tarde!!
mande um pequeno exemplo do seu projeto

att;

sidney

Sidney, conforme solicitado, segue abaixo o código:

Formulário Localizar:

Private Sub btOK_Click()
On Error GoTo Err_btOK_Click
   
   Dim stDocName As String
   Dim stLinkCriteria As String

   If Not IsNull(cboPessoa) Then
       stDocName = "frmCadastro"
       stLinkCriteria = "[idPessoa]=" & Me![cboPessoa]
       DoCmd.OpenForm stDocName, , , stLinkCriteria
   End If
   
   DoCmd.Close acForm, "frmCadastro", acSaveYes
   
Exit_btOK_Click:
   Exit Sub

Err_btOK_Click:
   MsgBox Err.Description
   Resume Exit_btOK_Click
   
End Sub

Com este código o formulário frmCadastro abre no registro selecionado mas os botões de mudação de registro não funcionam.

No formulário frmCadastro

Private Sub botPriReg_Click()
On Error GoTo Err_botPriReg_Click

DoCmd.GoToRecord , , acFirst

Exit_botPriReg_Click:
Exit Sub

Err_botPriReg_Click:
MsgBox Err.Description
Resume Exit_botPriReg_Click

End Sub
Private Sub botAntReg_Click()
On Error GoTo Err_botAntReg_Click

DoCmd.GoToRecord , , acPrevious

Exit_botAntReg_Click:
Exit Sub

Err_botAntReg_Click:
MsgBox Err.Description
Resume Exit_botAntReg_Click

End Sub
Private Sub botProReg_Click()
On Error GoTo Err_botProReg_Click

DoCmd.GoToRecord , , acNext

Exit_botProReg_Click:
Exit Sub

Err_botProReg_Click:
MsgBox Err.Description
Resume Exit_botProReg_Click

End Sub

Aguardo uma ajuda.

Obrigado

Toninho, o que está a contecer é que você está a enviar um filtro especifico para o segundo form.

Dessa forma o segundo form fica filtrado e jamais irá navegar.

Tem de fazer assim;

Código:

stDocName = "frmCadastro"
stLinkCriteria = "[idPessoa]=" & Me![cboPessoa]
DoCmd.OpenForm stDocName
Forms(stDocName).Recordset.FindFirst stLinkCriteria

JPaulo, fechou! Funcionou perfeitamente!

Muito Obrigado

Fico feliz pelo tempo investido e pelo seu retorno.

Aproveite e veja este tópico
https://www.maximoaccess.com/t5357-como-contribuir-com-o-forum-via-paypal