Como Digitsr O Codigo Do Cliente

[Ander]

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

[MrMALJ]

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....

[Ander]

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

[MrMALJ]

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...

[Ander]

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

[Ander]

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

[MrMALJ]

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

[Ander]

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

[Ander]

tmb quero que aparece uma messagem se o codigo ou CNPJ do cliente não existir

[MrMALJ]

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

[Ander]

obrigado deu certo

[Ander]

ops deu errado uma coisa quando eu dito um codigo do cliente não exibe nenhuma messagem

[MrMALJ]

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