[Resolvidos]Subformulário - Localizar

Bom dia Pessoal,

Pesquisei aqui no Forum um topico semelhante ao que preciso utilizar, e encontrei as orientações do JPAULO que foram dadas a outro Usuário, as quais estou tentando adaptar, mas estou com problemas.

Tenho:
Formulário - Apartamento -> codapto
Subformulario - GarageSubform ->codapto é o vinculo com o formulario acima.

Criei um botão de LOCALIZAR no formulario para poder localizar dados no SUBFORMULARIO, usando os procedimentos abaixo:

Private Sub BotaoPesquisaNoSubForm_Click()
'By JPaulo Maximo Access
Dim rs As DAO.Recordset
Dim strPesquisa As Integer
On Error Resume Next
strPesquisa = InputBox("Localize a Placa do Veículo.", title, Default)
Set rs = CurrentDb.OpenRecordset("Select * from [GarageSubform] Where [Placa (ALT)]=" & strPesquisa)
rs.FindFirst "[Placa (ALT)] = " & strPesquisa
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Me.Filter = "[Placa]=" & rs![GarageSubform]
Me.FilterOn = True
Me.Requery
Me.SubGarageSubform.Requery '<<<<====== NÃO RECONHECE O SUBFORMULARIO
Else
MsgBox "Erro na pesquisa..."
End If
End Sub

Não consigo descobrir meu erro já fiz varias tentativas mas não dá certo
Podem me ajudar?

um abraço

Stella Maris

Tenta colocar assim:

Forms!GarageSubform.Requery

Veja por favor o que está grifado a azul;

Private Sub BotaoPesquisaNoSubForm_Click()
'By JPaulo ® Maximo Access
Dim rs As DAO.Recordset
Dim strPesquisa As Integer
On Error Resume Next
strPesquisa = InputBox("Localize a Placa do Veículo.", Title, Default)
Set rs = CurrentDb.OpenRecordset("Select * from NomeDaTabelaDoSubForm Where [Placa (ALT)]=" & strPesquisa)
rs.FindFirst "[NomeDoCampoNoSubForm] = " & strPesquisa
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Me.Filter = "[CampoChaveNoFormulario]=" & rs![CampoChaveNoSubForm]
Me.FilterOn = True
Me.Requery
Me.NomeDoSubFormulario.Requery
Else
MsgBox "Erro na pesquisa..."
End If
End Sub

JPaulo,

Olá
Fiz as alterações grifadas em azul, mas não consegui, não localizo nenhuma placa no subformulário.

Então eu disponibilizei o arquivo, se puderes dar uma olhada te agradeço muito.
http://www.speedyshare.com/files/23175408/LocalizarGarage1.rar

obrigada

Stella Maris

Bom dia Stella;

Veja;
http://dl.dropbox.com/u/771097/LocalizarGarage1_OLD.rar

JPaulo,
Funcionou, no subformulário.

Pergunto: Os dados das combos não aparecem quando localizo no subformulario, é porque são combos ?
Ou,
Achas que devo fazer outro tipo de formulário baseado em uma consulta unindo as tabelas das combos e os dados do subformulário para poder localizar todos os dados(Condominio, bloco, apto etc) referente a cada PLACA ?
Aguardo sua sugestão, ok !
um abraço

Bom dia Stella;

Na minha modesta opinião, as combobox`s devem servir para filtrar e mandar o resultado pretendido para um campo, daí, você deveria mesmo mudar esse form como falou.

JPaulo,
bom dia,

Sua opinião é muito importante para mim, dentro deste meu trabalho, irei dar o topico como encerrado, e vou providenciar novo formulário, mas de qualquer forma aprendi como pesquisar em um subformulário.

Tenho outro pedido!
Você pode olhar o meu outro tópico: "Exportar para o Word" - direcionei para Você porque me baseei em um trabalho seu anterior.

agradeço imensamente sua ajuda

Stella

Valew.