Limite de compra do cliente com aviso ao estourar limite

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.

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

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á

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.

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.

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?