Visual Basic - SIMPLE PARA UDS

HOLA GRUPO: TENGO DOS PEQUEÑOS PROBLEMAS:
- TENGO DOS TABLAS (IGUALES) UNA SE LLAMA "PEPE" Y LA OTRA "POPO" LA IDEA ES DESEO COPIAR EL CONTENIDO DE LA TABLA PEPE HACIA LA TABLA POPO

- LA PREGUNTA ES TENGO UN INFORME HECHO EN ACCESS Y QUIERO QUE SALGA IMPRESA APAISADA.

MIL GRACIAS POR LEER ESTE MENSAGE
REINALDO
ARGENTINA
[email protected]

Para copiar el contenido de la tabla PEPE en la tabla POPO puedes hacer una consulta de acción, si no me equivoco seria asi:

Dim db1 As Database
Set db1 = OpenDatabase("Ruta de la base a modificar")

db1.Execute ("INSERT INTO & "Nombre de la tabla destino" _
& " (Campos de la tabla destino) " & "select " & "campos de la tabla Origen" & " from " & Nombre de la tabla ORIGEN ;")

En resumen quedaria asi:

Dim db1 As Database

Set db1 = OpenDatabase("c:\BD1.mdb")

db1.Execute ("INSERT INTO POPO (Campo1,Campo2) Select " _
& " Campo1,Campo2 from PEPE;")

Obiamente para ello debes hacer referencia en tu proyecto al DOA 3.6 ó 5. Ok.