Comprobar valores antes de insertar datos en tablas access

[pumi]

Hola de nuevo a todos:

Tengo otro problemilla en Access:

Tengo un formulario que toma los datos de una tabla. Lo que quiero hacer es que cuando se modifiquen los datos de un registro o se añada uno nuevo, se comprueben los valores de dos campos de fecha y si uno es menor que el otro, pues que no se llegue a modificar el registro o a añadirse, es decir, poder comprobar que los datos que se introducen son correctos antes de que los cambios lleguen a ser efectivos en las tablas y, por supuesto, si hay errore3s en los datos, que estos no se guarden en la tabla correspondiente.

Espero haberme explicado.

Gracias de antemano a todos.

[Heimish2000]

En código, supongo que le darás un botón para actualizar, en el código de ese botón, antes de hacer el UPDATE puedes hacer las comprobaciones que quieras.

[pumi]

Hola Heimish:

Gracias de nuevo por tu ayuda.

No, no tengo un botón de actualizar, asi que los datos se me actualizan cuando hago click en otro registro de los que me aparecen en el formulario. De momento he conseguido que no se guarden los nuevos valores del siguiente modo:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me!Contenido1.Value = "hola" Then
MsgBox "hola"
Else
Me!Contenido1.Value = Me!Contenido1.OldValue
End If
End Sub

Es decir, si no tengo lo que quiero, dejo el antiguo valor del campo, pero me falta conseguir que el registro activo siga siendo el que quiero modificar o insertar. Si me puedes decir como se consigue eso creo que tendría la gracia completa.

Gracias de nuevo.

[Heimish2000]

Un botón u otro registro, es lo mismo, en ese momento se lanza un evento que es el que tienes que programar

Cuando hagas click en un registro guarda cual es al final del evento en una variable y así sabrás cual quieres que sea activo en caso de no actualización. Antes de eso tienes que comprobar si actualizas o no.

Esquematicamente es algo asi el evento onClick de un registro

Si es el primer registro que pulsamos
registro = registroPulsado
Si no
Comprobación de si hay que actualizar registro
Si hay que actualizar
Actualizamos
registro = registroPulsado
Si no
Activamos registro

[Taribo007]

Es mejor que lo hagas asi, cancelando el evento:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me!Contenido1.Value = "hola" Then
MsgBox "hola"
Else
cancel=true
End If
End Sub

Puede que este ejemplo te ayude:

http://elmundomagicodeltaribo.blogsp...ormulario.html

Un saludo

[pumi]

Gracias Taribo007, funciona perfectamente.

Un saludo.