[Resolvido] Busca no SubFormulário e Carrega Registro No Fomulário Principal

CÓDIGO:
Private Sub Matrícula_Click()
   Dim rst As DAO.Recordset
   Dim strCriteria As String
   
   strCriteria = Forms!Antiguidade!ANTIGUIDADE_L!Matrícula
   
   Set rst = Me.RecordsetClone
   rst.FindFirst strCriteria

   Me.Bookmark = rst.Bookmark
   
End Sub

A parte em negrito é onde ocorre o erro "3001 - Argumento inválido". Esse código era pra fazer isso:

Ao clicar na [Matrícula] da pessoa que está em um subformulário contínuo carrega o registro da pessoa no formulário principal.

Teste dessa forma para abrir outro form no registro especifico.

Código:

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FormPrincipal"
stLinkCriteria = "[CampoId]=" & "'" & Me![CampoId] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, ("FormPesquisa"), acSavePrompt

Caro Fernando, o seu código acho que é pra abrir outro formulário, correto? todavia não é o meu objetivo

observe na imagem que existem três campos [Matrícula], [Nome] e [Antiguidade] e um Fomulário Contínuo como [Subformulário]

o subformulário é origem de uma consulta e os três campos mencionados são parte de uma tabela com muito mais informações.

não preciso que abra outro formulário, preciso que quando clicar na matrícula do subformulário, que é um formulário contínuo carregue no formulário Principal o registro dessa matrícula, pois este formulário será apenas para para alterar/atualizar o campo [Antiguidade].

Veja a imagem e você vai entender.

o código que eu fiz não consegue achar o registro com a matrícula clicada (FindFirst) na fonte de origem do formulário principal.

Bom, eu uso essa estrutura de código pra fazer a busca em outro fomulário e roda direitinho, só que lá não tem subformulário, estou começando agora com VBA, mas eu acredito que precisa que o RecordSet seja carregado com o [Formulário Principal], para a busca (FindFirst) localizar o registro com a matrícula correspondente, e eu NÃO SEI fazer isso.

Ok, veja se esse topico ajuda.

http://maximoaccess.forumeiros.com/t575-resolvidobotao-localizar-em-subformulario

Qualquer coisa anexe as partes envolvidas do bd para vermos.

Fernando,

Pesquisando mais no fórum mediante suas dicas achei uma solução para a minha necessidade, bem simples, usei filtro, na verdade é bem semelhante a sua primeira dica, minhas desculpas por não entende-la, veja:

CÓDIGO QUE FUNCIONA: escreveu:DoCmd.OpenForm "ANTIGUIDADE", acViewNormal, , "Matrícula = " & Me!Matrícula

Todavia,
quando uso o mesmo código (em outro campo, em outro formulário similar) para abrir [SubformuláriodeNavegação] dá erro dizendo que falta um objeto, eis o código

CÓDIGO QUE DÁ ERRO: escreveu:DoCmd.OpenForm FICHA.SubformuláriodeNavegação.Carreira, acViewNormal, , "Matrícula = " & Me!Matrícula

Preciso que esse [DoCmd.OpenForm] abra um Subformulário. Me ajuda nessa?

Fernando, resolvi o problema. muito agradecido pela ajuda!

Até a próxima.

Legal Kleyton, precisando estamos ai. Compartilhe como resolveu seu problema para que

sirva de exemplo a possíveis duvidas futuras.

Eu resolvi o último código mudando a sistemática do BD, nas mudanças não era necessário abrir o subformulário.

De qualquer forma, o objetivo do tópico foi alcançado, graças a sua ajuda.

Que bom   

Agradeço o retorno em nome do forum!