Ir para conteúdo
Fórum Script Brasil
  • 0

Como Digitsr O Codigo Do Cliente


Ander

Pergunta

12 respostass a esta questão

Posts Recomendados

  • 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros 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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...