[Resolvido]Limite de Compra

Ola amigos,

Estou tentando colocar uma regra para quando o valor da compra for maior que o Limite de compra do Cliente ele dar uma Mensagem na tela , porem não estou conseguindo.

Segue o codigo que estou usando, porém não me retorna nada :

Código:

Dim db As DAO.Database
Dim rst As DAO.Recordset


Set db = CurrentDb
'Abre a tabela e seleciomna o cliente
Set rst = db.OpenRecordset("Select * from tbl_clientes where strNome ='" & Me.Matricula & "'")
'Verifica se tem saldo antes de fazer a venda
If rst!Limite >= Me.txttotal Then
'se tiver saldo retira o valor da venda
  rst.Edit
  rst!Limite = rst!Limite - Me.txttotal.Value
 
  rst.UPDATE
  'se não emite mensagem
  Else
  MsgBox ("Venda acima do limite"), vbCritical, "Sem credito para comprar"
  'desfaz a venda
Me.Undo
    End If
rst.Close: Set rst = Nothing
db.Close: Set db = Nothing

End Sub


Olá Fabio

Isso está correto?

OpenRecordset("Select * from tbl_clientes where strNome ='" & Me.Matricula & "'")

Creio que não!!

{ }'s

Bom dia, amigo não mexo muito com rst mexo muito com DLookup, mas essa lógica ai acho que não pega, pois ela só vai atrás do campo nome.
Tem que verificar os 2 campos  a matrícula e o limite.
 Se o jão tem saldo x

É isso mesmo Crysostomo

Quanto a não mexer com rst (recordset) via VBA, sugiro que estude, é de entendimento fácil.
E é uma mão na roda para manipular registros das tabelas( ou consultas).

Ola Noobezinho

Na verdade eu peguei aki no forum esse código e estou tentando adaptar pra mim, poderia dar uma ajuda ?

Abraços

Havia um erro n alinha abaixo e fiz a correção

OpenRecordset("Select * from tbl_clientes where strNome ='" & Me.Matricula & "'")

Código:


Set rst = db.OpenRecordset("Select * from Clientes where Nome ='" & Me.CLIENTE & "'")



Porém ele da dando erro aki: NENHUM REGISTRO ATUAL.


If rst!Limite >= Me.txttotal Then

Att

Fabio

Cole os campos e o tipo de dados de cada, aqui pra vermos, pf.

Bom dia galera, como vai?
cole a parte do bd aqui, pois não estou entendendo a lógica, como que ele vai ver se o cliente A tem o saldo X.
 
O que estou entendendo é que o recordset vai verificar somente o cliente  e não se o saldo que ele tem.
sendo que o saldo já é o limite do cliente.

@Noobezinho, terminando de fazer a documentação de um projeto vou começar ver e praticar o recordset.

Agora que vi estes código eu disponibilizei

Veja um exemplo

Crisstomo

(pois não estou entendendo a lógica, como que ele vai ver se o cliente A tem o saldo X.)

o código não vai mais ate a tabela porque já carregou todas as informações do registro
Esta linha faz a verificação
If rst!Limite >= Me.txttotal Then

Limite de credito e assim que for pagando as parcelas o saldo vai sendo alterado.



Disponibiliza o projeto

Consegui replicar o erro aqui

Porém ele da dando erro aki: NENHUM REGISTRO ATUAL.

If rst!Limite >= Me.txttotal Then

você esta digitando o valor a pagar e o sistema não encontra o cliente.

ou seja a alguma coisa de errado com os nomes do seu formulário com o código VBA

Ola amigos,

segue o bd,

https://cutt.ly/jlt4C6u


Att

O link não está funfando, Fabio

1 você esta usando a fonte de controle como referencia no código VBA e não o nome do campo.
2 coloquei o id do cliente  como chave primaria
3 para melhor entendimento dos nomes de campos sempre renomeie as cmbox para melhor identificação

Código:

Dim db As DAO.Database
Dim rst As DAO.Recordset


Set db = CurrentDb
'Abre a tabela e seleciomna o cliente
Set rst = db.OpenRecordset("Select * from Clientes where ID =" & Me.Combina??o187.Column(0) & "")
'Verifica se tem saldo antes de fazer a venda
If rst!LIMITE > Me.txttotal Then
'se tiver saldo retira o valor da venda
  rst.Edit
  rst!LIMITE = rst!LIMITE - Me.txttotal.Value
 
  rst.UPDATE
  'se n?o emite mensagem
  Else
  MsgBox ("Venda acima do limite"), vbCritical, "Sem credito para comprar"
  'desfaz a venda
Me.Undo
    End If
rst.Close: Set rst = Nothing
db.Close: Set db = Nothing

Ola scandinavo

Agora funcionando , só mais uma dúvida tem como eu mudar a Mensagem para que eu posso escolhe se libero a venda mesmo com o LIMITE SIM ou NAO ?

Obrigado

Assim

Código:

Dim db As DAO.Database
Dim rst As DAO.Recordset


Set db = CurrentDb
'Abre a tabela e seleciomna o cliente
Set rst = db.OpenRecordset("Select * from Clientes where ID =" & Me.Combina??o187.Column(0) & "")
'Verifica se tem saldo antes de fazer a venda
If rst!Limite >= Me.txttotal Then
'se tiver saldo retira o valor da venda
  rst.Edit
  rst!Limite = rst!Limite - Me.txttotal.Value
 
  rst.UPDATE
  'se n?o emite mensagem
  Else
  'pergunta se deseja continuar com a venda se sim
 If MsgBox("Venda acima do limite. Continuar com a venda?", vbQuestion + vbYesNo, "Sem credito") = vbYes Then
 'ficara com saldo negativo
  rst.Edit
  rst!Limite = rst!Limite - Me.txttotal.Value
  rst.UPDATE
 Else
  'desfaz a venda
DoCmd.SetWarnings False 'bloque aviso
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True 'libera aviso
    End If
    End If
   
rst.Close: Set rst = Nothing
db.Close: Set db = Nothing

scandinavo

Ele está dando a msg tendo ou não limite, tem como mostra somente para o cliente que não tem Limite.

Obrigado

Fiz o teste aqui e esta normal.


Tem certeza que os clientes tem limites disponíveis.


Se alguém mais quiser fazer o teste fiquem a vontade.

Ola

Foi mal não percebi que a medida que esta vendendo ele da dando diminuindo o saldo dele , ta funcionando sim ok

Obrigado

Valeu.

Lembre que no exemplo la em cima tem o código que retorna o credito toda vez que o cliente fizer um pagamento.