• 0
Sign in to follow this  
Ander

Como Digitsr O Codigo Do Cliente

Question

Gostaria de saber como faço quando eu digitar o codigo do cliente ele pesquisar e preencher os demais campos como Nome do cliente e CNPJ

Share this post


Link to post
Share on other sites

12 answers to this question

Recommended Posts

  • 0

Apesar de você não ter dado maiores informações, como nomes de campo por exemplo, vou mostrar um exemplo adotando as seguintes informações

Nome dos Campos No Formulário

FormCodCli ----->Para receber o código do cliente

FormCNPJ ------->Para receber e armazenar o cnpj do cliente

Na tabela Clientes

CliCod -----------> Codigo do cliente

CliCNPJ ----------> CNPJ do cliente

Na propriedade "Apos Alterar" de FormCodCli digite o código:

me.FormCNPJ.value = DLookup("[CliCNPJ]", "Clientes", "[Clicod]=" & FormCodCli)

Se precisar preencher outros campos é só fazer as alterações devidas.... cool.gif

Share this post


Link to post
Share on other sites
  • 0

no meu formulario chamado Pedidos tem os campos Codigo_Cliente,Nome_Cliente, CNPJ, eu quero digitar o codigo do cliente ai ele já busca o nome e CNPJ do cliente

Share this post


Link to post
Share on other sites
  • 0

Na propriedade "Apos Alterar" do Campo Codigo_Cliente digite o código:

me.Nome_Cliente.value = DLookup("NomeTabelaCli", "SuaTabClientes", "[CodTabCli]=" & Codigo_Cliente)

me.CNPJ.value = DLookup("CnpjTabelaCli", "SuaTabClientes", "[CodTabCli]=" & Codigo_Cliente)

Como antes, você não deu detalhes mais do jeito que está ai substitua ...

SuaTabClientes ---- Pelo nome da sua tabela de Clientes

NomeTabelaCli ---- Pelo campo que tem o nome do cliente na sua tabela Clientes

CnpjTabelaCli ---- Pelo campo que tem o cnpj do cliente na sua tabela Clientes

Bom isso resolve sua questão... cool.gif

Share this post


Link to post
Share on other sites
  • 0

ok pus esse codigo

Me.Nome_Cliente.Value = DLookup("Nome_Cliente", "Clientes", "[Codigo_Cliente]=" & Codigo_Cliente)

mas quando por exemplo eu apago o codigo e dito outro ele não atualiza continua com o nome do cliente antigo

Share this post


Link to post
Share on other sites
  • 0

e tmb está dando esse erro

Erro em tempo de execusão 3075

erro de sintaxe (operador faltando) na expressão de consulta '[codigo_cliente]='

o que será isso poderia me ajudar

Share this post


Link to post
Share on other sites
  • 0

Me.Nome_Cliente.Value = DLookup("[Nome_Cliente]", "Clientes", "[Codigo_Cliente]=" & Codigo_Cliente)

pelo que observei só estava faltando os colchetes o resto ta ok, lembre-se de utilizar o codigo em "Apos Atualizar" do campo que recebe o código do cliente, agora deve funcionar sem problemas

Share this post


Link to post
Share on other sites
  • 0

consegui mas tenho uma outra duvida se se eu quiser colocar alem de inserir o codigo do cliente eu tmb quiser digitar o CNPJ e preencher o campo codigo do cliente e nome do cliente

Share this post


Link to post
Share on other sites
  • 0

O metodo é o mesmo para os outros passos que você quer, basta colocar o campo desejado no código que te passei, para retornar uma mensagem dizendo se o cnpj existe ou não, inclua as linhas abaixo depois do Dlookup:

if isnull(me.SeuCampoCNPJ) then

msgbox "CNPJ não existe!",vbokonly+vbinformation

end if

Pronto dai você terá uma mensagem caso a cnpj não esteja cadastrada cool.gif

Share this post


Link to post
Share on other sites
  • 0

FAca um código semelhante ao do cnpj para o código do cliente! cool.gif

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this