Regla de validación de access
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
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
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
