Comparar dos tablas completas en un solo procedimiento

Migre de un sistema a otro la base completa de cliente (ambos sistemas tienen la misma estructura y nombres de campos), ambas bases la incorpore en un access y quisiera validar que todos los datos de los clientes este idénticos en ambas tablas, lo podría realizar campo a campo con el campo referenciado del ID del cliente, quisiera saber si existe un procedimiento (query, Sql o código) que con solo relacionar el ID del cliente me compares todo los campos de las dos tablas y me arroje como resultado el o los registros que tengan diferencia (no es necesario que solo me muestre la diferencia, solo el ID de cliente).

1 Respuesta

Respuesta
2

En Access, dentro del asistente de consultas, tienes dos opciones que te pueden servir (no me queda claro que es lo que quieres exactamente, pero yo apostaría por la segunda):

Asistente para búsqueda de duplicados

Asistente de búsqueda de no coincidentes

Hola, estaría buscando la No coincidentes pero ese asistente sólo busca los no coincidentes de un solo campo, yo necesitaría que compare todos los campos entre ambas tablas.

Entonces tendrás que hacerlo por código "a lo bestia", algo así (suponiendo que cada ID va estar una vez en cada tabla):

1º/ Creas una tabla (TDiferencias) con un único campo (IDCliente)

2º/ Creas un formulario con un botón de comando, y en el botón le programas un código parecido a éste (con los nombres de tus tablas y campos...)

Dim rst1 As DAO.Recordset

Dim rst2 As DAO.Recordset

Set rst1=CurrentDb.OpenRecordset("Tabla1")

Set rst2=CurrentDb.OpenRecordset("Tabla2")

rst1.MoveFirst

Do Until rst1.EOF

rst2.FindFirst "ID=" & rst1("ID")

If rst2.nomatch then

CurrentDb.Execute "INSERT INTO TDiferencias(ID) VALUES (" & rst1("ID") & ")"

Else

If rst1("Campo1)<>rst2("campo1") Then 

CurrentDb.Execute "INSERT INTO TDiferencias(ID) VALUES (" & rst1("ID") & ")"

Goto Siguiente

End If

If rst1("Campo2)<>rst2("campo2") Then 

CurrentDb.Execute "INSERT INTO TDiferencias(ID) VALUES (" & rst1("ID") & ")"

Goto Siguiente

End If

...

'Pondrás tantos Ifs como campos vayas a comparar

Siguiente:

rst1.MoveNext

End If

rst1.Close

Set rst1=Nothing

rst2.Close

Set rst2=Nothing

Cuando termine de ejecutar el código, deberías tener en la tabla TDiferencias, los IDs de lso registros que no coinciden en la tabla 2 con los de la tabla 1.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Movimientos entre registros y guardar en otra tabla

¿Cómo están? Soy nuevo en Access y quisiera saber si se pueden hacer estos dos puntos. 1-Necesito que al presionar un boton el registro Ej N° 1 los datos del mismo se guarden en otra tabla y luego quede vació para volver a llenarlo. Tengo un...
1 respuesta

Bucle para comparar dos tablas por un campo id y campo monto

En vba de access estoy intentando comparar los registros de dos tablas ( Banco y Sistema), la idea es que un bucle recorra el campo Doc de la tabla banco y evalúe el campo Doc y campo Monto de la tabla sistema, es decir, si en la tabla Sistema...
1 respuesta

Error 3061 que habla de pocos parámetros

Quiero pedirle el favor de que si me ayudas con lo siguiente, deseo enumerar dentro de un informe un campo de texto que resulte de el numero de registros que se tenga en una consulta, para ello tengo el siguiente código en vba: Dim cont As Integer...
3 respuestas

Dividir registros de una tabla a otra access

Tengo un form (Compras - Detalles) donde ingreso articulos. Quisiera que al pulsar un botón me insertara en la tabla (T - Inventario) la misma cantidad de articulos pero divididos por unidades agrupados por un IdDetCompra. Por ejemplo, yo ingreso 4ud...
1 respuesta

Numerar Registro en Tabla

Tengo una Tabla así: Campo1 Campo2 Campo3 Orden 1 3 4 1 3 4 1 3 4 2 3 1 2 3 1 2 3 1 Lo que quiero es que en Orden me quede así: Campo1 Campo2 Campo3 Orden 1 3 4 1 1 3 4 2 1 3 4 3 2 3 1 1 2 3 1 2 2 3 1 3 Y así sucesivamente, ya lo había hecho hace...
1 respuesta

Cómo copio un solo registro de una tabla a otra en Access?

Tengo que pasar un registro seleccionado a través de un cuando combinado que concatena el Apellido y el nombre de una tabla historicos y pasarlo a otra de activos. El campo DNI es la clave principal sin duplicados. El código que hice es: Dim strSQL...
1 respuesta

Importar un archivo txt en access

Bueno tengo un archivo txt en la siguiente ruta c:\planos\ac.txt necesito subirlo a una base de datos en access el código que he usado es el siguiente pero no me funciona no se que sucede me podrían colaborar ahí envío el código que estoy usando...
1 respuesta

Eliminar registros duplicados mediante una función

Me gustaría crear una función para eliminar registros duplicados en cualquier formulario. Realmente cada registro es único porque en el campo ID es diferente el valor, pero entiendo por duplicados aquellos registros cuyo todos los campos, excepto ID...
2 respuestas

Transponer una tabla de Access

Tengo la siguiente tabla, y me gustaría pasar todas las columnas a una única fila. Me explico. En la imagen que adjunto, necesito transformar esta tabla de manera que me quede: - 1er campo: idnc ->52 - 2º campo: el primer registro de "área_afectada"...
2 respuestas

Comparar dos campos de tablas diferentes.

Como podría hacer para comparar dos tablas y en un informe me muestre el cualquier color la diferencia que hay entre las tablas, ejempemplo: Tabla 1 Tabla2 Manzana Roja Manzana roja Manzana Roja Manzana verde La Rev1 La Rev2 Fecha 12/10/11 Fecha...
1 respuesta