Problema de juicio de clave primaria de acceso a VBA

1. Si se establece una clave principal para un campo como clave principal en la tabla, será un error ingresar valores duplicados porque la clave principal no permite valores duplicados, y la transacción se revertirá y el registro no se agregará correctamente. Sólo necesitas captar el valor incorrecto.

Subcomando privado 1_Click()

Ir a Err_1_Click en caso de error

.....Tu flujo de código

err _ 1_Click:

Si eh. número = valor de error y luego valor de error, puede verlo (es decir, es un error) después de ejecutarlo una vez y aparece el cuadro de diálogo.

Cuadro de mensaje "Has ingresado un valor duplicado"

Salir del conector

Terminará si...

Finalizar conector

En segundo lugar, hay dos formas de comprobar activamente si hay valores duplicados: una es utilizar ADO y la otra es utilizar la función de agregación de dominio DLookup.

Utilice el método ado:

dim rs como nuevo adodb.recordset

Mostrar sql como cadena

SQL="select * from table_name donde campos = ""; trim(i.text1) & ""

rs.open sql, currentproject.connection, adopenkeyset, adlock pesimista

si no, entonces

Cuadro de mensaje "Los datos que ingresaste están repetidos"

Establecer rs = Ninguno

Salir del conector

Terminará si...

Utilice la sintaxis de la función DLookup de agregado de dominio:

si no es nulo (dlookup ([campo 1], nombre de la tabla, [campo 1] = '";trim(me. textbox 1) amp;" ") entonces

o si no es null(dlookup([Campo 1], nombre de tabla, [Campo 1] = "; trim(me . textbox 1) amp; si es un valor entero, no use comillas simples

Cuadro de mensaje "Los datos que ingresó están repetidos"

Salir del conector

Terminará si...