Buscar Coincidencias en Dos Tablas de Access

Debes hacer una subrutina que haga precisamente eso que quieres. Ejemplo:

Public sub Coincidencias()

dim strSQL as string

dim A as recordset

dim B as recordset

dim C as recordset

dim DB as database

set db=dbengine(0)(0)

'Seleccionas la primer tabla

strsql = "Select * From Tabla1"

set A=db.openrecordset(strsql)

if a.recordcount > 0 then   'la tabla tiene datos

do while not a.eof

   strsql = "Select * From Tabla2 where identificacion='" a!identificacion & "' and        Nombres='" & a!nombres & "'"

set B=db.openrecordset(strsql)

if b.recordcount>0 then   'Identificacion y nombres exactos

'Aqui agregas a la tabla de resultados con un INSERT

end if

a.movenext

loop

else

'Aqui no hay coincidencias

end if

end sub

Con esta misma lógica puedes checar lo que quieras.

Buenas tardes, Ismael

Te agradezco mucho la respuesta, sin embargo quede un poco perdido

La instrucción:  a!identificacion & "' and  Nombres='" & a!nombres & "'", me esta generando error.

Por otro lado no te comprendí muy bien cuando dices: 'Aquí agregas a la tabla de resultados con un INSERT.

Y el resultado de los tipos de coincidencia como lo encuentro.

Disculpa la molestia.

El código que escribí como respuesta es solo el ejemplo que debes seguir para resolver la situación que comentas, es posible que los nombres de campo y las tablas no se llamen como yo lo escribí, por eso te manda error. Debes cambiar el código con tus nombre de tabla y campos correctos para que funcione. Donde dejé el comentario acerca del INSERT creí que sabias como hacerlo, una disculpa. El insert sería algo como esto (si tu tabla de resultados se llamara "Resultados"):

dim strsql as string

'Aqui deben ir todos tus campos y terminar con parentesis

strsql = "INSERT INTO Resultados Values('"

strsql = strsql & documento_consultado  & "','"

strsql = strsql & nombre_consultado  & "','"

strsql = strsql & Tipo_coincidencia  & "','"

strsql = strsql & documento_consultado  & "')"

db.execute (strsql)

Ojalá te ayude esto.

Muchas gracias, Ismael

Aún continúa generando el error en el código:

 strsql = "Select * From Tabla2 where identificacion='" a!identificacion & "' and        Nombres='" & a!nombres & "'"

Cambie los nombres de los campos pero aún me dice: 

Error de Compilación

Se esperaba: Fin de la Instrucción.

Disculpa la molestia 

Tal vez le falta una comilla al terminar (")

Hola, Ismael

Logre resolver la línea, solo le faltaba (&) antes de a!Identificación.

Cree un formulario con un botón donde inserte el código pero al ejecutarlo no me realiza ninguna operación.

No se si podría abusar de tu confianza y enviarte a algún correo el ejemplo para que tu me hagas el favor de verificar donde tengo el error.

Perdona la intensidad.

Envíame tu BD y en cuanto tenga un espacio te lo regreso.

Envíame tu BD y en cuanto tenga un espacio te lo regreso. [email protected]

Muchas gracias por tu respuesta, ya lo envié al correo que me indicas.