[Resolvido]Avisar limite excedido

Como faço para avisar se cliente estiver com limite excedido , e se possível quanto execedeu?

Se tiver esta informação em uma tabela.. podes utilizar o Dlookup para isto.. e ao efetuaar a venda.. checar este valor... caso exceda emite aviso e deleta a venda.


Cumprimentos.

tem codigo exemplo

Como uso essa Dlookup para chegar este campo na tabela?

na tabClientes campo Limite

no Form campo Debito quando este valor de debito chegar ao limite avisar.

Boa tarde,
Adapte a partir deste tema

Alguém tem um pequeno exemplo estou perdido?

Supondo que tenha uma caixa texto no form onde exibe o valor total da compra:  txtValorCompra

Dim StrLimite as double

StrLimite = Dlookup("CpLimite","SuaTabela"."CampoCódigo = " & Me.SuaCaixaTextoCodigoNoForm & "")

If Me.txtValorCompra > StrLimite Then
  MsgBox "O Limite de compra para este cliente é:" _
           & VbNewLine & "" & StrLimite & " _
           & VbNewLine & "Esta compra não foi autorizada" _
           & VbNewLine & "Exclua um ou mais ítens!", VbInformation, "Atenção"
           Exit Sub
End If

Algo assim


Cumprimentos.

em qual evento?

A ideia e avisar quando o cliente exceder limite de compras estabelecido
Segue se alguém poder dar uma ajudinha fico grato!

A questão Agravina é ao efetuar a venda checar o limite e não vender?

Ou por exemplo se o cliente tem limite de 1.000 e seu débito for > 1000 avisar?


Cumprimentos

Apenas avisar quando chegar ao seu limite

Mas veja bem.... avisar em que momento... na ato da nova venda?

no momento que for inserido novo debito na cx debito do frmcliente!

Mande-me o BD com os objetos envolvidos.

Cumprimentos.

BD mensagem 9!
frmcliente após atualizar cx combinação com nome cliente ,apareçe saldo se estiver acima do limite avisar.

No evento após atualizar da caixa de combinação coloque:


Dim StrLimite As Double

Me.TxtCliente = Me.Combinação72.Column(0)
Me.subClientes.Requery
Me.Debito.Enabled = True
Me.Debito.SetFocus


StrLimite = DLookup("Limite", "Tab_Clientes", "Id_Cliente = " & Me.TxtCliente & "")
If Me.saldo < StrLimite Then
  MsgBox "O Limite de compra para este cliente é:" _
           & vbNewLine & "" & StrLimite & "" _
           & vbNewLine & "Esta compra não foi autorizada" _
           & vbNewLine & "Exclua um ou mais ítens!", vbInformation, "Atenção"
           Exit Sub
End If


Cumprimentos.

Teria que emitir o aviso somente se exceder o limite ,tem como ?

É este código ai acima amigão...

Perdoe-me.. É que sua tabela tem campos em branco...

1 - Checar se o campo saldo é nulo ou igual a 0 encerrando a sun
2 - Utilizar o mid para carregar a variavel com o valor do débito do cliente para retirar a sinal de negativo.

Eis:

Dim StrLimite As Double
Dim dblSaldo As Double
Me.TxtCliente = Me.Combinação72.Column(0)
Me.subClientes.Requery
Me.Debito.Enabled = True
Me.Debito.SetFocus


StrLimite = DLookup("Limite", "Tab_Clientes", "Id_Cliente = " & Me.TxtCliente & "")
If IsNull(Me.saldo) Or Me.saldo = 0 Then Exit Sub
dblSaldo = CDbl(Mid(Me.saldo, 2, Len(Me.saldo)))
If dblSaldo > StrLimite Then
  MsgBox "O Limite de compra para este cliente é:" _
           & vbNewLine & "" & StrLimite & "" _
           & vbNewLine & "Esta compra não foi autorizada" _
           & vbNewLine & "Exclua um ou mais ítens!", vbInformation, "Atenção"
           Exit Sub
End If

Cumprimentos.

Amigo Piloto é por ai vou dar uma modificada ,logo volto com novas dúvidas
rsrsrs Um abraço!

O Fórum agradece o Retorno.