MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Limite de compra do cliente com aviso ao estourar limite

    Compartilhe

    GilsonSoares
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 18/07/2015

    Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares em Qua 19 Out 2016, 04:12

    Boa madrugada senhores

    preciso da ajuda dos mestres do access aqui
    é o seguinte, tenho os formulários: Cadastro de Cliente e Particular do Cliente(onde realiza compras)
    meu cliente quer que no form cadastro de clientes, seja colocado um campo Limite de compra
    de modo que quando o cliente exceder o limite da compra realizada no Particular do Cliente,
    seja mostrado um popup informando que aquele cliente excedeu o limite de compra.

    Não tenho noção de como fazer isso.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

    Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  Cláudio Machado em Qua 19 Out 2016, 14:59

    Bom dia.
    Digite o valor máximo de compras permitido. Ex: 2.000,00

    Agora no form Particular do Cliente

    No evento No Atual deste form coloque o seguinte:

    Código:

    If ValorTotalCompras > DLookup("CampoNoClienteParaValorMaximoCompras", "SuaTabelaClientes", "CodigoCliente = " & CodigoCliente) Then
      MsgBox "Valor de compras Acima do Limite Permitido para este Cliente", vbCritical, "Atenção"
       DoCmd.CancelEvent
    Else

    End If


    Lembrando que aqui estou chutando os nomes de campos, pois você não repassou um exemplo ou como funciona seu sistema.
    Espero que ajude.
    No aguardo

    GilsonSoares
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 18/07/2015

    Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares em Qua 19 Out 2016, 15:44

    Caro colega Cláudio Machado
    Aqui está o link do bd

    [Você precisa estar registrado e conectado para ver este link.]

    Senha de acesso: admin060698

    Os formulários cadastro de clientes e particular do cliente está na guia cadastro.

    Obrigado desde já

    GilsonSoares
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 18/07/2015

    Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares em Qui 20 Out 2016, 14:13

    Bom dia,

    O código ficaria assim?

    If Total a Receber > DLookup("Limite de compra", "Cadastro de Clientes", "CodigoCliente = " & CodigoCliente) Then
    MsgBox "Valor de compras Acima do Limite Permitido para este Cliente", vbCritical, "Atenção"
    DoCmd.CancelEvent
    Else

    End If



    total a receber
    está no form particular do cliente
    Limite de compra é o campo que inseri no cadastro do cliente


    a lógica seria assim:
    cadastro o cliente e coloco o limite de compra
    lá no form. particular do cliente ele vai fazer a compra e o total a receber vai me dar o valor total da compra
    se esse total for maior que o limite, exibir a mensagem.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1402
    Registrado : 17/03/2011

    Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  Cláudio Machado em Qui 20 Out 2016, 15:21

    Boa tarde.
    Exatamente isso Gilson.
    Agora de antemão, já te aviso amigo.

    Evite os nomes de campos com Espaços, isso vai te prejudicar muito no seu sistema, evite nome com espaços para:
    Campos da tabela
    Nome de tabela
    Nome de formulário
    Nome de Relatório
    Nome de Macro
    E até mesmo nome de módulos.
    No VBA isso é complicado pra criar códigos.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    GilsonSoares
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 18/07/2015

    Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares em Qui 20 Out 2016, 17:12

    Boa tarde Cláudio Machado.

    Vou tentar fazer assim sem os espaços.
    Veja se o código está correto:
    No evento (No atual) eu coloco


    If TotalaReceber > DLookup("LimitedeCompra", "CadastrodeClientes", "CodigoCliente = " & CodigoCliente) Then
    MsgBox "Valor de compras Acima do Limite Permitido para este Cliente", vbCritical, "Atenção"
    DoCmd.CancelEvent
    Else

    End If

    Ta correto?
    Adicionei no fórum particular do cliente, o campo limite de compras da tabela cadastro de cliente. E ele já apareceu preenchido

    Exato? Deixo aqui o meu bd pra vc dar uma olhada

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 23 Maio 2018, 02:19