Quisiera saber como puedo restringir el valor que debo introducir en un formulario para que este sea menor que el valor actual de un campo en una tabla de la base de datos
1 respuesta
Respuesta de eyama
1
1
eyama, Mi nombre es Eymard Amado Amador, tengo 27 años, de nacionalidad...
Vamos a suponer el campo base en tu tabla se llama TuCampo1 y el nuevo donde quieres hacer la validación TuCampo2 Entonces, si estos dos campos están en tu formulario, es decir, puedes ver el dato actual, puedes poner en el evento "Antes de Actualizar" de txtTuCampo2 lo siguiente: If txtTuCampo2 > txtTuCampo1 Then MsgBox "El valor debe ser menor que " & txtTuCampo1 Cancel = True TuCampo2.Undo End If Si el primer valor no lo visualizas en tu formulario, o si está en otra tabla deberías modificar el código anterior así: Dim valor1 As Long valor1 = DLookup("TuCampo", "TuTabla", "Tu Criterio") 'Donde Tu Criterio puede ser algo así como "Id = 1", o la condición que tu necesites If TuCampo2 > valor1 Then MsgBox "El valor debe ser menor que " & valor1 Cancel = True TuCampo2.Undo End If Espero haberte ayudado, por favor no olvides valorar la respuesta. Eymard Amado Amador Bucaramanga, Colombia