Access - Duplicados

 
Vista:

Duplicados

Publicado por Juan (4 intervenciones) el 14/06/2007 03:08:57
Tengo una BD al que le he asignado al campo "No de Cédula" indexado SI (SIN DUPLICADOS), a parte le hice un indice. La idea es que no se repitan los registros en este campo. Efectivamente no se repiten pero uno se da cuenta es al final del registro, y como el formulario tiene cerca de 12 entradas, entonces imaginase lo que pasa cada vez que repetimos o intentamos repetir el registro.

En otra página web encontre un truco para que me avise de la duplicidad una vez itente salir de este campo, lo he intentado varias veces, pero no he podido. Sin digito un registro que ya existe, practicamente se bloquea. MIre lo que dice el truco (el problema es que no tiene como preguntarle más)

Aunque Access le diga, al introducir datos en un campo clave principal en un nuevo registro, que ya existe en el campo clave principal de otro registro (como por ejemplo, ID de cliente) avisa del error después de que ya se ha producido. Nuestra macro le informa de la duplicidad al principio, de forma que no pierda tiempo introduciendo el nuevo registro.
Haga clic en la ficha macro de la ventana de la Base de datos.
Escoja Nuevo.
Haga clic en los botones Nombres de macro y Condiciones en la barra de herramientas principal para mostrar estas columnas en la ventana macro.
Proporcione un nombre en la columna Nombre de la macro.
En la columna Condición, teclee lo siguiente:

DLookup("[CustomerID]", "[Customer2]", "[CustomerID] = Form.[CustomerID]")Is Not Null

En la columna Acción de la macro, seleccione la ventana Acción, haga clic sobre la flecha y escoja CuadroMsj de la lista desplegable.
En la fila Mensaje, escriba el mensaje de error de ID de cliente duplicado, y autorice el mensaje.
En la fila 2 de la columna Acción de la macro, seleccione CancelarEvento.
Salga de la ventana macro y haga clic en la ficha Formularios en la ventana de la Base de datos.
Abra el formulario que quiera modificar en el modo Diseñar. Haga clic con el botón derecho en el cuadro de texto del campo de la clave principal y seleccione Propiedades del menú desplegable.
Haga clic en la fila de la derecha de Antes de actualizar y seleccione su macro de la lista desplegable resultante.

PERO LE HAGO YLE HAGO Y NADA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Duplicados

Publicado por Félix (183 intervenciones) el 14/06/2007 09:12:17
Wenas, inserta este codigo en el cuadro de texto en el apartado antes de actualizar y cambias (codigo) por el nombre de tu campo

If (Not IsNull(DLookup("[CODIGO]", _
"ACCESORIOS", "[CODIGO] ='" _
& Me!codigo & "'"))) Then
MsgBox "HAY UN ACCESORIO EXISTENTE CON EL MISMO CODIGO EN LA BASE DE DATOS",," MI PROGRAMA (Informa)
End If

ya me diras si te fue bien

Un saludo: Felix
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Duplicados OK.

Publicado por Gema (29 intervenciones) el 28/12/2007 17:28:29
No sé si a el le fue bien, mi sí y MUCHO.Gracias Felix.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Duplicados

Publicado por PabloQ (1 intervención) el 20/07/2011 23:35:30
Hola Juan... tengo el mismo problema y No me funciono.

Le agradeceria que ampliara su ayuda

Cordial saludo

PabloQ
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar