Hay dos formas de solucionar tú problema, la primera y mas sencilla, siempre y cuando tus tablas tengan indices por ese código, es accesando por VBA y recordset; La segunda es siempre y cuando no tengas indices ni nada que el diga a la tabla que el dato que buscas es clave principal, es mediante sentencias SQL.
La Primera quedaría así:
set rst=dbs.openrecordset("Tabla1",dbopentable)
rst.index="PrimaryKey"
set rst2=dbs.openrecordset("Tabla2",dbopentable)
rst2.index="PrimaryKey"
'en el evento afterupdate del cuadro de captura del codigo va esto:
if me.text1<>"" then
rst.seek"=",me.text1
rst2.seek"=",me.text1
y con esto encuentras el registro en cada tabla, ora que si tienes un universo de registros con el mismo dato, te recomiendo la segunda opción que es algo como esto:
set rst=dbs.openrecordset("SELECT * FROM TABLA1 " _
& "WHERE TABLA1.CODIGO = ' "& me.text1 & " ';")
set rst2=dbs.openrecordset("SELECT * FROM TABLA2 " _
& "WHERE TABLA2.CODIGO = ' "& me.text1 & " ';")
y con esto tienes todos los registros de tus tablas...
Ojala y te sirva.
