Editar Mensajes error al anexar datos con una consulta
Publicado por Antonio (16 intervenciones) el 13/09/2017 15:07:44
Hola,
Tengo un formulario en una base de datos en el que voy anexando nuevos registros con una consulta. Entre los campos que hay en la tabla en la que se guardan los datos, hay uno que corresponde con el número de operación que no admite duplicados, y cuando la consulta crea un nuevo registro, genera este campo basándose en otro campo que se rellena manualmente, en el que a veces, por error, se teclea un número que ya existe.
Cuando pasa esto, access me muestra el siguiente error:

He buscado el código de error, y en http://www.accessdemo.info/art-listado-errores-access-2003.html encontré que podía ser el 10510
Introduje un evento con el siguiente código:
Pero no hace nada. De modo que buscando más, encontré en un ejemplo de neckkito el siguiente código:
Pero no consigo que me devuelva el número de error, y por tanto no puedo pasar al segundo paso que es el de personalizar este mensaje.
¿Podríais ayudarme?
Tengo un formulario en una base de datos en el que voy anexando nuevos registros con una consulta. Entre los campos que hay en la tabla en la que se guardan los datos, hay uno que corresponde con el número de operación que no admite duplicados, y cuando la consulta crea un nuevo registro, genera este campo basándose en otro campo que se rellena manualmente, en el que a veces, por error, se teclea un número que ya existe.
Cuando pasa esto, access me muestra el siguiente error:

He buscado el código de error, y en http://www.accessdemo.info/art-listado-errores-access-2003.html encontré que podía ser el 10510
Introduje un evento con el siguiente código:
1
2
3
4
5
6
7
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 10510 Then
MsgBox "Este número ya existe", _
vbInformation, "NUMERO DUPLICADO"
Response = acDataErrContinue
End If
End Sub
Pero no hace nada. De modo que buscando más, encontré en un ejemplo de neckkito el siguiente código:
1
2
3
Private Sub Form_Error(DataErr As Integer, Response As Integer)
MsgBox DataErr
End Sub
Pero no consigo que me devuelva el número de error, y por tanto no puedo pasar al segundo paso que es el de personalizar este mensaje.
¿Podríais ayudarme?
Valora esta pregunta


0