Tengo una base de datos con los productos disponibles. Se facilita un formulario a los trabajadores para que pidan los productos que necesitan. Quiero conseguir que salga algún mensaje cuando pidan un artículo que no está disponible o si piden más de lo que hay.
Tengo estas tablas:
Material: ID, Articulo, Descripcion, Stock, Ubicacion
Pedidos: IdPedido, IDArticulo, Articulo, Asignado a, Cantidad,Prestado(Si/No), Definitivo(Si/No), Fecha
Personal: Código, Nombre, Apellido 1, Apellido 2.
Consultas:
Existencias: Muestra el stock actual disponible. (IDArticulo (Pedidos), Articulo (Material), Descripcion (Material), Stock (Material), Stock_Restante
(Stock_Restante: SiInm(EsNulo([Material]![Stock]-[Total_Pedidos]![SumaDeCantidad]);[Material]![Stock];[Material]![Stock]-[Total_Pedidos]![SumaDeCantidad]))
Relaciones: Total_Pedidos (Articulo) - Material (ID), Material (ID) - Pedidos (IDArticulo)
Solicitar_Material: Muestra el stock que ha sido pedido. (Asignado a, Articulo, Cantidad, Prestado, Definitivo, Fecha)
Relaciones: Ninguna
Total_Pedidos: Calcula el Stock total (Articulo (Pedidos), Cantidad (Pedidos) - Total: Suma)
Relaciones: ID (Material) - IDArticulo (Pedidos)
Formularios:
Material: Formulario que usará el admin para añadir un producto. (ID, Articulo, Descripcion, Cantidad, Ubicacion)
Pedidos: Formulario que usará el empleado para pedir un producto. (IDPedido, ID (Material), Articulo, Descripcion, Asignado a, Cantidad, Prestado, Definitivo, Fecha)
Relaciones de tablas: Material [ID] - Pedidos [IDArticulo], dbo_Personal [Nombre] - Pedidos [Asignado a]
Tengo la regla de validación (>=0)
insertada en [Stock], [Cantidad] y en el formulario [Pedidos] en el campo [Cantidad] para que no se inserten valores negativos en el propio campo.
El problema es cuando alguien desde el formulario pide más material del que hay disponible. El valor (mostrado en Existencias) se vuelve negativo, y eso es lo que quiero evitar, haciendo que salga un mensaje estilo "No queda más del producto seleccionado".
Tengo este código en un evento "Antes de Actualizar" en el campo Cantidad del formulario.
Private Sub Cantidad_BeforeUpdate(Cancel As Integer)
If Me.Cantidad > DLookup("Stock_Restante", "Existencias", "IDArticulo =" & Me.IDArticulo) Then
MsgBox "No hay suficiente stock del producto para esa salida", vbInformation, "REVISA"
Cancel = True
End If
End Sub
Pero cuando intento insertar un nuevo registro, o incluso editar uno ya existente, me sale el mensaje de error del código "No hay suficiente stock del producto para esa salida", inserte cualquier cantidad, quede o no stock en ese artículo, sigue saliendo ese mensaje.