MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Limite de compra do cliente com aviso ao estourar limite

    avatar
    GilsonSoares
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares 19/10/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.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 19/10/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
    avatar
    GilsonSoares
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares 19/10/2016, 15:44

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

    http://www.4shared.com/rar/KoHgOJ7ice/Sistema.html?

    Senha de acesso: admin060698

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

    Obrigado desde já
    avatar
    GilsonSoares
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares 20/10/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.
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 20/10/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  AQUI.
    Não esqueça de clicar no Joinha Limite de compra do cliente com aviso ao estourar limite 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    GilsonSoares
    Intermediário
    Intermediário


    Respeito às regras : 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 Empty Re: Limite de compra do cliente com aviso ao estourar limite

    Mensagem  GilsonSoares 20/10/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

    http://www.4shared.com/rar/KoHgOJ7ice/Sistema.html?

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/11/2024, 18:33