Campo númerico restricción según otro campo

[pinkfloyd]

Estoy dándole forma a la base de datos del hilo anterior.
En el formulario entrada tengo la columna cantidad planeada y cantidad real quisiera ver si se puede poner un limitante en la carga de datos de la columna cantidad real que debería ser igual o menor a la cantidad planteada.

[pinkfloyd]

Y ahora que lo pienso en salida no me debería dejar descontar más de lo que tengo en stock para no generar números negativos.
No quiero que me hagan el trabajo pero siento que en estas cosas avanzadas no estoy muy aceitado. Creo que con esos puntos resueltos ya sería suficiente para mí.
Y ante todo las gracias por respuestas o pasos a seguir para poder resolver el misterio

[pinkfloyd]

He probado con esta macro

Código: Seleccionar todo

Sub ValidarCantidadReal(oEvent)
    Dim oForm As Object
    Dim nCantidadPlaneada As Double
    Dim nCantidadReal As Double

    ' Obtiene el formulario
    oForm = oEvent.Source.Model.Parent

    ' Obtiene los valores
    nCantidadPlaneada = oForm.getByName("Cantidad_Planeada").CurrentValue
    nCantidadReal = oForm.getByName("Cantidad_Real").CurrentValue

    ' Verifica la validación
    If nCantidadReal > nCantidadPlaneada Then
        MsgBox "La cantidad real no puede ser mayor a la cantidad planeada.", 16, "Error de Validación"
        oForm.getByName("Cantidad_Real").Text = "" ' Limpia el campo
    End If
End Sub

Pero parece no tener efecto

[FJCC-ES]

Para poner la limitación en la tabla Entradas que Cantidad_Real <= Cantidad_Planeada, elija el menú Herramientas → SQL y ejecute

Código: Seleccionar todo

ALTER TABLE "Entradas" ADD CONSTRAINT "Cant_Real" CHECK ("Cantidad_Real" <= "Cantidad_Planeada")

[pinkfloyd]

FJCC-ES el codigo funciona pero se le podria agregar una ventana de aviso ?

Usando tu codigo y la macro sale este cartel si la cantidad real el superior a la planeada

[FJCC-ES]

No sé si es posible agregar una ventana de aviso. Lo intentaré.