[Resolvido]Busca automática por nomes.

Bom dia pessoal.

Aqui eu denovo na luta..

Tenho um cadastro de analises onde é informada o nome do cliente, o Renasem / CPF ou CNPJ, o Endereço a cidade/UF, tenho também o
cadastro de clientes, nos dois casos os dados são gravados nas tabelas de ambos o cadastros. Eu queria que quando eu fosse digitar o nome do cliente no campo fosse buscado o nome do cliente automático, e os outros dados acima.

Conto com a ajuda de vocês novamente.

Bom dia.....


Crie uma caixa de texto em teu formulário e coloque o código abaixo:



Private Sub seucampo_AfterUpdate()
Me.FilterOn = False
Me.Filter = ""
Me.Filter = "nomedocliente =" & Me.seucampo
Me.FilterOn = True
Me.Requery
End Sub

Testar !!

abraços

Bom Silvio

Não Funcionou, ele não listou os Clientes para mim e nem Recuperou os dados do cadastro.

Veja o Erro que esta dando.

Samuel, a imagem não deixa ver as instruções, era importante.

Provavelmente o campo é texto e se for tem de ter as aspas simples.

Me.Filter = "nomedocliente =""'" & Me.SeuCampo & "'"""

Mestre JPaulo.
Muito Obrigado pela atenção.
Coloquei as aspas simples e agora esta dando este Erro.

Coloque os nomes corretos dos campos;

Me.Filter = "[nomedocliente] Like '*" & Me.SeuCampo.Value & "*'"

Me perdoe Mestre JPaulo mas estou muito cru em VBA.
Olhe o código se esta certo.
Espero que de para você vê-lo.

Intão ?

Isso é só um nome de campo ?

me.renasem / Cpf / Cnpj.Value

Se for tem de estar fechado com colchetes;

Me.[Renasem / Cpf / Cnpj].Value

Jamais coloque os nomes dos campos dessa forma, rapaz.

É levei uma dura e com razão.
Qual a melhor forma de nomear campos Mestre JPaulo?
Onde é que estou errando neste simples código?
veja o print da pagina denovo, ele esta pedindo fim de expressão.
Como?

Nome aceitavel para o seu campo:

Renasem_Cpf_Cnpj

Me.Filter = "[nomedocliente] Like '*" & Me.Me.[Renasem / Cpf / Cnpj].Value & "*'"
Me.FilterOn = True

Mestre JPaulo, agora não deu mais nenhum erro.
Só que quando eu lanço o nome do Cliente ele retorna ao Primenro registro, ou salta para o cadastro do proximo, veja o print da tela de comandos.

Você não pode aplicar 3 filtros diferentes ao mesmo campo "Nome".

Vou passar este tópico para a Sala de VBA, para o ajudarem a solucionar e principalmente a entender a mecânica da coisa.

Amigão já resolveu ?

Mestre JPaulo..
Ainda não, ninguem postou nenhuma outra ajuda. E eu sou muito cru em VBA.

Samuel, como lhe disse, o amigo está a fazer 3 filtros diferentes no mesmo campo Nome.

O que poderá fazer é por exemplo;



Dim strFiltra As String

strFiltra = ""
strFiltra = "[SeuCampoRenasem] Like '*" & Me.[Renasem_Cpf_Cnpj] & "*'"

If Me.Endereco.Value <> "" Then
strFiltra = strFiltra & " AND [SeuCampoEndereco] Like '*" & Me.Endereco & "*'"
End If

If Me.[Cidade_Uf].Value <> "" Then
strFiltra = strFiltra & " AND [SeuCampoCidadeUf] Like '*" & Me.Cidade_Uf & "*'"
End If

Me.Filter = strFiltra
Me.FilterOn = True

Mestre JPaulo.. Boa noite.

Existe algum lugar especifico para eu colocar este código? EX. Fonte de controle de algum campo, algum campo de evento etc.

No currente do seu form

Private Sub Form_Current()
Dim strFiltra As String

strFiltra = ""
strFiltra = "[SeuCampoRenasem] Like '*" & Me.[Renasem_Cpf_Cnpj] & "*'"

If Me.Endereco.Value <> "" Then
strFiltra = strFiltra & " AND [SeuCampoEndereco] Like '*" & Me.Endereco & "*'"
End If

If Me.[Cidade_Uf].Value <> "" Then
strFiltra = strFiltra & " AND [SeuCampoCidadeUf] Like '*" & Me.Cidade_Uf & "*'"
End If

Me.Filter = strFiltra
Me.FilterOn = True
End Sub

Mestre JPaulo.

Quase deu Certo, chegamos muito perto.

Veja a mensagem que deu.

Esta mensagem aparece quando eu clico no botão adicionar novo Registro.

Teste assim mas coloque os nomes corretos dos seus campos;


Private Sub Form_Current()
Dim strFiltra As String
On Error Resume Next

Me.FilterOn = False
Me.Filter = ""
strFiltra = ""

strFiltra = "[SeuCampoRenasem] Like '*" & Me.[Renasem_Cpf_Cnpj] & "*'"

If Me.Endereco.Value <> "" Then
strFiltra = strFiltra & " AND [SeuCampoEndereco] Like '*" & Me.Endereco & "*'"
End If

If Me.[Cidade_Uf].Value <> "" Then
strFiltra = strFiltra & " AND [SeuCampoCidadeUf] Like '*" & Me.Cidade_Uf & "*'"
End If

Me.Filter = strFiltra
Me.FilterOn = True
End Sub

Mestre JPaulo.

Este esta complicado, deu o mesmo erro anterior.

Se dá o mesmo erro, provavelmente é porque não encontra o registro, ou algum desse campos é numerico em vez de texto ?

Assim é extremamente dificil a ajuda, sem vermos em concreto o form.

Boa noite pessoal..

Em pesquisa nos posts antigos, encontrei este código e tentei usar ele neste problema meu, não tirando o mérito do meste Sérgio Vieira(VieiraSóft) que postou o mesmo, não funcionou mas também não deu erro nenhum.


Private Sub Nome_AfterUpdate()
Me.Renasem_Cpf_Cnpj = Nome.Column(1)
Me.Endereco = Nome.Column(2)
Me.Cidade_Uf = Nome.Column(3)
Me.Telefone = Nome.Column(4)

End Sub

Este código é o que eu estou usando no meu sistema, baseado no post do Mestre Sérgio Vieira.

Alguém sabe e pode me auxiliar neste problema.

Desde já agradeço.

Bom dia, Samuca

Disponibilize o essencial para se ver em concrecto

Bom dia Pessoal..

Graças à ajuda do grande amigo, Alexandre Neves segue abaixo a solução do meu problema.

Private Sub TxtNome_AfterUpdate() 'altere o nome do controlo para TxtNome
Me.TxtRenasem_Cpf_Cnpj = DLookup("Campo","Tabela","CampoNome='" & TxtNome & "'")
Me.TxtEndereco = DLookup("Campo","Tabela","CampoNome='" & TxtNome & "'")
Me.TxtCidade = DLookup("Campo","Tabela","CampoNome='" & TxtNome & "'")
Me.TxtTelefone = DLookup("Campo","Tabela","CampoNome='" & TxtNome & "'")
End Sub

Muito obrigado Alexandre Neves..

Um Abraço.