Olá pessoal, gostaria de saber se poderiam me ajudar a confeccionar um botão de pesquisa, que ao clicar abrisse uma janela tipo inputbox, no qual se digitaria o dado a ser buscado (por exemplo nome, ou RG, etc) e que apoós o enter os campos do form e subform fossem populados com os referidos dados. Acontece que na minha aplicação eu retirei o rodapé do meu fomr onde continhas os botões de navegação de registros, e os botões padrão do access de exclusão, pesquisa, etc, e adicionei icones, com as mesmas funções, fcando com uma aparencia melhor. O engraçado é que eu peguei a macro de excluir registro do acccess de uma aplicação antiga minha e adicionei ao icone botão excluir e deu certo, porém a de pesquisar não retorna valor algum. Daí a minha solicitação aos senhores. Grande abraço.
2 participantes
[Resolvido]Pesquisa em um Forme SubForm
Pablo Weber- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 195
Registrado : 21/11/2010
- Mensagem nº1
Pesquisa em um Forme SubForm
Jungli- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 715
Registrado : 07/05/2010
- Mensagem nº2
Re: [Resolvido]Pesquisa em um Forme SubForm
Bom dia crie uma combobox no seu formulário e no evento AfterUpdate da mesma coloque.
Dim txtCriterio As String
'Por Glicério Júnior ... Jungli - http://maximoaccess.forumeiros.com
Dim rs As DAO.Recordset
' Define o criterio de busca
txtCriterio = "Campo a ser Buscado = '" & Me.Combinação62.Column(0) & "'" 'em caso de número: "Campo a ser Buscado = " & Me.Combinação62.Column(0)
'...
Set rs = Me.RecordsetClone
' Procurando...
rs.FindFirst txtCriterio
'Opa não achei...
If rs.NoMatch Then
MsgBox "Registro não encontrado"
Else
'He he... Achei... olha aí
Me.Bookmark = rs.Bookmark
End If
'com o registro encontrado, se a ligação do subform estiver correta ele será carregado automáticamente
abraços.
Dim txtCriterio As String
'Por Glicério Júnior ... Jungli - http://maximoaccess.forumeiros.com
Dim rs As DAO.Recordset
' Define o criterio de busca
txtCriterio = "Campo a ser Buscado = '" & Me.Combinação62.Column(0) & "'" 'em caso de número: "Campo a ser Buscado = " & Me.Combinação62.Column(0)
'...
Set rs = Me.RecordsetClone
' Procurando...
rs.FindFirst txtCriterio
'Opa não achei...
If rs.NoMatch Then
MsgBox "Registro não encontrado"
Else
'He he... Achei... olha aí
Me.Bookmark = rs.Bookmark
End If
'com o registro encontrado, se a ligação do subform estiver correta ele será carregado automáticamente
abraços.
Pablo Weber- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 195
Registrado : 21/11/2010
- Mensagem nº3
Re: [Resolvido]Pesquisa em um Forme SubForm
Obrigado pela atenção amigo Jungli, mas na minha tabela possui pessoas com nomes parecidos, por exemplo gostaria de buscar a pessoa de nome Joao, na procura do access, eu clicava no campo Nome e selecionava qualquer parte do campo, e digitava "João" e ele buscava todos os registros com esse nome, ai eu iria passando de registro em registro pelas setas de navegação até encontrar o desejado, seria isso. Pois na minha comboNome, consigo visualizar os nomes, porem terei que olhar os mais de 600 registro, que contem nela, o que demanda tempo. Não sei se me expressei direito. Obrigado.
Jungli- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 715
Registrado : 07/05/2010
- Mensagem nº4
Re: [Resolvido]Pesquisa em um Forme SubForm
Veja se assim dá certo,
Filtra por qualquer parte do nome do cliente, e pode usar as setas pra ir passando os clientes automaticamente.
abraços.
Filtra por qualquer parte do nome do cliente, e pode usar as setas pra ir passando os clientes automaticamente.
abraços.
- Anexos
- PabloWeber.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (27 Kb) Baixado 44 vez(es)
Pablo Weber- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 195
Registrado : 21/11/2010
- Mensagem nº5
Re: [Resolvido]Pesquisa em um Forme SubForm
Ok, amigo, vou o exemplo é muito bom, vou fazer algumas alterações na minha aplicação, e qualquer coisa se der algum erro ou surgir alguma dúvida lhe retorno. Darei por resolvido o tópico. Grande abraço mais uma vez.
Jungli- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 715
Registrado : 07/05/2010
- Mensagem nº6
Re: [Resolvido]Pesquisa em um Forme SubForm
beleza, obrigado pelo retorno.
» [Resolvido]Executar uma função contida no subform, de fora do subform, tem como?
» [Resolvido]Preencher Subform Utilizando Listbox De Outro Formulário (pesquisa)
» [Resolvido]Como acrescentar código no evento ao abrir do FORME PRINCIPAL?
» form principal chama pesquisa em subform
» Pesquisa simples em form e subform simultaneamente
» [Resolvido]Preencher Subform Utilizando Listbox De Outro Formulário (pesquisa)
» [Resolvido]Como acrescentar código no evento ao abrir do FORME PRINCIPAL?
» form principal chama pesquisa em subform
» Pesquisa simples em form e subform simultaneamente