Colega boa noite, eu nunca fiz busca vba , sempre fiz padrão do access, gostaria de saber como se faz essa busca e que caia no formulário com o nome pesquisado?
3 participantes
[Resolvido]Busca VBA pelos nomes
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº1
[Resolvido]Busca VBA pelos nomes
gilberlanio- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 814
Registrado : 30/08/2010
- Mensagem nº2
Re: [Resolvido]Busca VBA pelos nomes
Veja essa vídeo aula no meu canal:
youtube.com/watch?v=kcW50w6BeN0
youtube.com/watch?v=kcW50w6BeN0
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº3
Re: [Resolvido]Busca VBA pelos nomes
Veja aqui mesmo;
Download
Download
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº4
Re: [Resolvido]Busca VBA pelos nomes
JPaulo eu não estou conseguindo achar o erro dessa espressão.
vou tentando ver aqui.
Como "*"+[Forms]![Localiza membros]![txt_nome].[Text] & "*"
vou tentando ver aqui.
Como "*"+[Forms]![Localiza membros]![txt_nome].[Text] & "*"
- Código:
Private Sub lst_nomes_Click()
On Error GoTo Err_lst_nomes_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Cartão de membros"
stLinkCriteria = "[NOME:]=" & Me![lst_nomes]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_lst_nomes_Click:
DoCmd.Close acForm, "Localiza membros"
Exit Sub
Err_lst_nomes_Click:
MsgBox Err.Description
Resume Exit_lst_nomes_Click
End Sub
gilberlanio- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 814
Registrado : 30/08/2010
- Mensagem nº5
Re: [Resolvido]Busca VBA pelos nomes
Troco o sinal de + por &
Como "*"&[Forms]![Localiza membros]![txt_nome].[Text] & "*"
Como "*"&[Forms]![Localiza membros]![txt_nome].[Text] & "*"
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº6
Re: [Resolvido]Busca VBA pelos nomes
alem de está aparecendo inserir valor de parâmetro , ele abre o formulário em branco
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº7
Re: [Resolvido]Busca VBA pelos nomes
Meus amigos, boa tarde.
Consegui aqui fazer de outra maneira, mas gostei desse exemplo do JPaulo.
ainda vou mexer com esse exemplo que gostei muito fica mais viável, se voces poder me ajudar sobre esse exemplo agradeço, posso mandar o arquivo se estão disponível.
Eu ficou na verdade sem ação pois o exemplo que JPaulo que me passou está dando certo, mais quando eu refaço no meu BD não funciona .
Consegui aqui fazer de outra maneira, mas gostei desse exemplo do JPaulo.
ainda vou mexer com esse exemplo que gostei muito fica mais viável, se voces poder me ajudar sobre esse exemplo agradeço, posso mandar o arquivo se estão disponível.
Eu ficou na verdade sem ação pois o exemplo que JPaulo que me passou está dando certo, mais quando eu refaço no meu BD não funciona .
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº8
Re: [Resolvido]Busca VBA pelos nomes
Olá;
Se quiser anexar o seu banco aqui, posso tentar adaptar.
Se quiser anexar o seu banco aqui, posso tentar adaptar.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº9
arquivo em anexo
agora está dando como dados incompatível com critério de novo.
por gentiliza me mostre o erro o porque esses dados incompatível ,
e quando tinha adaptado ele , ele abria o frm em branco ( me mostre aonde estava esse erro , por gentileza)
drive.google.com/open?id=1qvA-jBHQooJOYli2bE3Il_pBAYaDQFu5
por gentiliza me mostre o erro o porque esses dados incompatível ,
e quando tinha adaptado ele , ele abria o frm em branco ( me mostre aonde estava esse erro , por gentileza)
drive.google.com/open?id=1qvA-jBHQooJOYli2bE3Il_pBAYaDQFu5
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº10
Re: [Resolvido]Busca VBA pelos nomes
Olá;
No seu formulario "Catão de membros", aperte o botão com a lupa que está no topo e depois de escolher o membro no formulario "LocalizarMembros" veja o que acontece.
Download
No seu formulario "Catão de membros", aperte o botão com a lupa que está no topo e depois de escolher o membro no formulario "LocalizarMembros" veja o que acontece.
Download
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº11
Re: [Resolvido]Busca VBA pelos nomes
Obrigado.
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
- Mensagem nº12
Re: [Resolvido]Busca VBA pelos nomes
Obrigado pelo retorno o fórum agradece.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...
» [Resolvido]Busca automática por nomes.
» [Resolvido]Atualizar caixa de listagem ao navegar pelos botões anterior e próximo.
» [Resolvido]Após abrir formulário em um registro específico não navega pelos demais registros
» [Resolvido]No Formulário, deixar o campo do CPF, em Vermelho, se ele estiver errado, e manter isso no navegar pelos registros.
» [Resolvido]Busca Conforme O Tipo de Busca Escolhido
» [Resolvido]Atualizar caixa de listagem ao navegar pelos botões anterior e próximo.
» [Resolvido]Após abrir formulário em um registro específico não navega pelos demais registros
» [Resolvido]No Formulário, deixar o campo do CPF, em Vermelho, se ele estiver errado, e manter isso no navegar pelos registros.
» [Resolvido]Busca Conforme O Tipo de Busca Escolhido