[Resolvido]Botão localizar em subformulário

Pessoal, vejam se conseguem quebrar essa pra mim.

Eu tenho um formulário “A” que contém um subformulário “B”.

Quero criar um botão de consulta (buscar registro) no formulário “A” que localize um registro no subformulário “B” e que traga o registro na tela, inclusive com os dados do formulário. Ou seja, como faço para inserir um botão localizar no formulário principal que localiza um registro no subformulário?

Quero uma rotina mais ou menos assim:

criar um botão que ficará no formulário “A”;

ao clicar nesse botão, a busca será feita num campo específico do subformulário “B” (esse campo é a chave-primária do subformulário; é um campo autonumeração);

localizado o registro no subformulário, quero que o sistema traga o registro do formulário “A” vinculado ao registro do subformulário “B”.

Isso é possível?

No aguardo.

Não entendi isto...

localizado o registro no subformulário, quero que o sistema traga o registro do formulário “A” vinculado ao registro do subformulário “B”.

Ricardo, significa o seguinte:

No subformulário eu tenho um campo chamado "GUIA". Esse campo é o que contém a numeração sequencial dos registros do subformulário.

Esse número de "GUIA", através do subformulário, está contido no formulário principal.

Eu quero que qdo localizar o número da "GUIA", ao invés de aparecer somente o registro do subformulário, apareça o registro do formulário.

Explicando de outra forma:

Eu tenho um formulário que tem os registros controlados por autonumeração. Para cada registro no formulário há um número.

Vinculado ao registro do formulário há o registro do subformulário (que também é controlado por autonumeração - para cada registro um número de guia).

Eu quero criar um botão que localize o número da "GUIA" que consta no subformulário. Localizado esse número, eu quero que o sistema traga todo o registro (formulário e sub form) na tela.

Blza?

Qual é o formulario em questão ?

Formulário: CADASTRO_CAUÇÃO
Subformulário: ALTERAÇÃO_CAUÇÃO

O botão com os binoculos ao lado do numero de controle já pesquisa e popula os dados no form e subform.

Ou entendi mal ?

Coloque um botão no cabeçalho do Subformulário: ALTERAÇÃO_CAUÇÃO

Cole isto:

Private Sub SeuBotão_Click()
Dim strPesquisa As Integer
strPesquisa = InputBox("Informe o Numero da Guia a Pesquisa...", title, Default)
Me.Parent.Filter = "[Nº DE CONTROLE]=" & strPesquisa
Me.Parent.FilterOn = True
End Sub

"O botão com os binoculos ao lado do numero de controle já pesquisa e popula os dados no form e subform.

Ou entendi mal ?"

JPaulo seu entendimento está correto.

Pelo binóculos eu pesquiso o campo N DE CONTROLE e popula os dados no form e subform. Agora eu quero criar um botão pesquise o campo GUIA (do subformulário) e, com isso, popule o form e subform.

O seu post anterior serve para isso? (não consigo testar agora, pois estou em casa).

Foi iserido um botão para pesquisa por numero de guia existente no subformulario;

Private Sub BotaoPesquisaNoSubForm_Click()
'By JPaulo ® Maximo Access
Dim rs As DAO.Recordset
Dim strPesquisa As Integer
On Error Resume Next
strPesquisa = InputBox("Informe o Numero da Guia a Pesquisa...", title, Default)
Set rs = CurrentDb.OpenRecordset("Select * from [ALTERAÇÃO_CAUÇÃO] Where [Nº DE CONTROLE (ALT)]=" & strPesquisa)
rs.FindFirst "[Nº DE CONTROLE (ALT)] = " & strPesquisa
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Me.Filter = "[Nº DE CONTROLE]=" & rs![CONTROLE_CAUÇÃO]
Me.FilterOn = True
Me.Requery
Me.SubALTERACAO_CAUCAO.Requery
Else
MsgBox "Erro na pesquisa..."
End If
End Sub

JPaulo, segui sua dica mas não está dando certo. Fiz o seguinte:

1. Criei um botão (categoria: navegação de registro; ação: localizar registro) no cabeçalho do subform ALTERAÇÃO_CAUÇÃO;

2. Dei o nome de BOT_LOCALIZAR_GUIA;

3. Entrei na propriedade do botão, fui na aba evento, campo "ao clicar" e cliquei nos três pontinhos (...);

4. Abriu o VBA a função do botão; apaguei a função e colei a sua. Ficou assim:

Private Sub BOT_LOCALIZAR_GUIA_Click()

Dim rs As DAO.Recordset
Dim strPesquisa As Integer
On Error Resume Next
strPesquisa = InputBox("Informe o Numero da Guia a Pesquisa...", title, Default)
Set rs = CurrentDb.OpenRecordset("Select * from [ALTERAÇÃO_CAUÇÃO] Where [Nº DE CONTROLE (ALT)]=" & strPesquisa)
rs.FindFirst "[Nº DE CONTROLE (ALT)] = " & strPesquisa
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Me.Filter = "[Nº DE CONTROLE]=" & rs![CONTROLE_CAUÇÃO]
Me.FilterOn = True
Me.Requery
Me.SubALTERACAO_CAUCAO.Requery
Else
MsgBox "Erro na pesquisa..."
End If

End Sub

Porém, ao clicar no botão para executar o comando, aparece a msg: "Erro de compilação: O tipo definido pelo usuário não foi definido". O erro está na primeira linha da função (Dim rs As DAO.Recordset).

O que fazer?

Lembrando que sou bem iniciante...

Por isso eu lhe disse no email, para utilizar o banco que lhe enviei.

Você tem falta de referências VBA.

Referência: Microsoft DAO 3.6 Object Lirary

Aqui funciona na perfeição e este tópico é dado como fechado.

Ok. Mas o arquivo que vc me enviou (o da versão do meu access), ao abrir, dá erro de execução e é fechado. Logo, não consigo utilizá-lo.

Só mais uma dúvida: "Você tem falta de referências VBA". O que isso significa? Falha minha ou falta de recurso do access na versão que tenho?

Mas, blza. Pode fechar o tópico.

Obrigado pela ajuda.

Marque a referencia Microsoft DAO 3.6 Object Lirary e teste como lhe passei.

No VBA, aba Ferramentas, Referencias.

[color=blue][b]Enviei para o seu Email, o seu Banco ORIGINAL.[/b][/color]

Não passei horas e horas de noite para você agora desistir do que lhe fiz pois não ?

Veja tambem o seu outro tópico:
Proteção do formulário e de seu subformulário

Que isso JPaulo. Jamais teria uma atitude dessa. Estou trabalhando no arquivo (último que vc me enviou). Estou dando uma configurada nele. Ao concluir eu te envio para vc dar uma olhada.

Sds

_Dess_