[Resolvido] Abrir registro selecionado no subformulario

Boa Noite
Srs. tenho um sobformulario (frm_grid_resp) que preciso alterar o registro seleciona no formulario (Frm_cad_rep)
Peguei o codigo abaixo aqui mesmo no forum e coloquei no click de um botao, mas está dando erro em tempo de execução 2465 o erro disse que nao pode localizar o idresponsavel, mas está escrito certo, nao sei o que pode estar acontecendo.

Private Sub Comando38_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Frm_Resp_Cad"

stLinkCriteria = "[idresponsavel]=" & Me![idresponsavel]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub


Abs
Paulo Tostes

Boa noite, seja bem vindo!

Poderia anexar as partes envolvidas para vermos o que ocorre de errado no codigo.

Teste dessa forma para vermos:

Private Sub Comando38_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Frm_Resp_Cad"

stLinkCriteria = "[idresponsavel]=" & "'"Me![idresponsavel]&"'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Fernando, esse que vc mandou a agora dá erro de compilação.

Vou dar uma limpada nas coisas e mando amanha a parte do formulario que está dando e erro.

Abs
Paulo

Ok, ficamos aguardando.

Segue parte do dos formularios
No FrmCadCrianca no botao responsáveis abre os responsáveis que tem cadastrado é aí que eu eu queria alterar o resposanvel selecionado.

Abs
Paulo Tostes

Amigão teste para vermos!

Código:

On Error Resume Next
  Dim stDocName As String
  Dim stLinkCriteria As String
  Dim strSQL As String
    stDocName = "Frm_Resp_Cad"
    stLinkCriteria = "[idresponsavel]=" & Me![idresponsavel]
    strSQL = "SELECT * FROM tbResponsavel WHERE " & stLinkCriteria
    DoCmd.OpenForm stDocName, acNormal, , , , acHidden
    Forms!Frm_Resp_Mostrar.RecordSource = strSQL
    DoCmd.OpenForm stDocName, acNormal, , , , acWindowNormal
End Sub


Fernando, ainda nao funcionou, tenta cadastrar mais um responsável na tabela de tbresponsavel e executa o codigo que voce mandou, ele chama sempre o mesmo.


Abs
Paulo Tostes

Ok, teste agora para vermos!

Boa Tarde

Fernando, agora deu certo, valeu mesmo, Obrigado

Paulo Tostes

De nada

Agradecemos o retorno!