Como hacer que access me indique que he llegado al importe máximo de un cliente
Estoy haciendo una base de datos donde hago facturas de clientes pero necesito saber como puedo hacer que en el formulario de facturas al introducir un cliente para dar de alta una factura me indique si he llegado a un importe máximo por ejemplo 3.000 euros de ese cliente y no me deje meter mas facturas al mismo cliente.
1 respuesta
Lo puedes hacer de muchas formas. Vamos a suponer, que en la tabla Facturas(y por tanto en el formulario del mismo nombre) tienes un campo NombreCliente. En el formulario, en las propiedades del cuadro de texto nombrecliente, en Eventos-Antes de actualizar crea un procedimiento de evento y entre Private Sub y End sub pon
If dsum("totalfactura","facturas","nombrecliente='" & me.nombrecliente & "'")>=3000 then
Msgbox"Este cliente ya ha superado la cantidad", vbokonly,"Lo siento, otro día será"
Docmd. Cancelevent
end if
Pero personalmente lo pondría como
dim f as single
f=Dsum("totalfactura","facturas","nombrecliente='" & me.nombrecliente & "'")
Msgbox"A este cliente aun le queda un saldo de "&3000-f
Por si quisieras, en la última factura apurar hasta el último céntimo
En fin, si pudieras concretar algo más
Buenas noches Julián, ante todo muchas gracias por tu respuesta, pero verás, he utilizado la segunda instrucción (como tu personalmente lo harías) pero me da un error en la ultima línea:
Error de compilación, error de sintaxis.
Por favor serías tan amable de indicarme que es lo que falla? por que como estarás pensando estoy bastante pez en programación en Access.
Muchas Gracias de antemano.
Supongamos que tengo una tabla Ventas, en la que el Idcliente=1 corresponde a Pepe Lopez
Me voy al formulario Ventas, a un registro nuevo, en este caso es el 3, y cuando voy a elegir a Pepe López
En el mismo momento que lo elijo
el código del evento Antes de actualizar del combinado Idcliente es
Private Sub Idcliente_BeforeUpdate(Cancel As Integer)
Dim f As Single
f = DSum("totalfactura", "ventas", "idcliente=" & Me.Idcliente & "")
MsgBox "Este cliente todavía tiene un saldo de " & 3000 - f, vbOKOnly + vbInformation, "Aprovecha para venderle"
End SubEn este caso, como Idcliente es numérico se pone como
..............=" & me.idcliente & "")
Si el criterio fuera el de un campo texto sería
.................= '" & me.nombrecliente & "'"
Es decir, abre apóstrofe comillas y cierra comillas apostrofe comillas
También se podría poner que a medida que vas poniendo productos te vaya diciendo que "saldo" le queda, etc.
De nuevo muchas gracias por tu respuesta, lo dejo por imposible, no consigo que me haga lo que tu tienes, muchas gracias por tu tiempo y atención
Pero si es muy sencillo, si quieres, repito, si quieres, haz una copia de tu base con dos o tres registros inventados y me la envías a [email protected].
Si lo haces, en el asunto del mensaje pon tu alias Juan Pedro, ya que si no sé quien me escribe ni los abro.
