Anexar Datos de una tabla a otra x Código |
Responder |
Autor | |
rokoko
Colaborador Unido: 16/Febrero/2008 Localización: Pamplona Estado: Sin conexión Puntos: 3062 |
Tema: Anexar Datos de una tabla a otra x Código Enviado: 14/Junio/2019 a las 09:10 |
Yo lo hago con una consulta normal de datos anexados y la ejecuto desde vba y listo.
DoCmd.OpenQuery "NombreConsulta" Si luego en esa consulta quieres meter alguna variable o alguna otra cosa me copio el codigo de esa consulta en vista SQL y la pego para VBA, la modifico y la ejecuto en vba como quieres hacer tu. Este complemento esta muyyy bien tambien
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: en línea Puntos: 14734 |
Enviado: 13/Junio/2019 a las 23:11 |
Añado: si estas traspasando todos los campos y se llaman igual, podría resultar más limpio hacerlo con un doble recordset. Uno sobre el origen filtrado y otro sobre el destino como "solo-añadir". Recorriendo la colección de campos ya lo tienes
Dim rstO As DAO.Recordset Dim rstD As DAO.Recordset Dim fld Ad DAO.Field Set rstO = CurrentDb.OpenRecordset("SELECT * FROM BANCASEGUROS WHERE CODPROD = 3001",,dbReadOnly) Set rstD = CurrentDb.OpenRecordset("SELECT * FROM 3001",,dbAppendOnly) ' Prescindo de la comprobación de datos. Asumo que hay rstD.AddNew For Each fld In rstO.Fields rstD.Fields(fld.Name) = rstO.Fields(fld.Name) Next rstD.Update ' cierre de recordsets etc etc Un saludo
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: en línea Puntos: 14734 |
Enviado: 13/Junio/2019 a las 22:59 |
Hola,
Así, a primera vista: BANCASEGUROS.[SUMACTTO_FOB], BANCASEGUROS.[PRIMACTTO_FOB], BANCASEGUROS.[NIT], BANCASEGUROS.[TOMADOR], " & _ "FROM BANCASEGUROS" & _ la coma que te marco en rojo sobra También falta un espacio antes de la palabra WHERE. "FROM BANCASEGUROS" & _ "WHERE (((BANCASEGUROS.CODPROD)=3001));" Tal como lo tienes queda FROM BANCASEGUROSWHERE (((BANCASEGUROS.CODPROD)=3001)); y eso es un error. Consejo: ya que todos los campos provienen de la misma tabla, puedes ahorrar el nombre de la tabla en la clausula SELECT (ni que sea para que resulte más "ligera" a la vista) |
|
ERJ
Nuevo Unido: 13/Junio/2019 Localización: Bogota Estado: Sin conexión Puntos: 1 |
Enviado: 13/Junio/2019 a las 22:39 |
Cordial Saludo.
Requiero de la colaboración. Estoy tratando de anexar datos de una tabla (BANCASEGUROS) a otra (3001) por medio de código. Pero access me arroja: " Se ha producido el error '3134' en tiempo de ejecución: Error de sintaxis en la instrucción INSERT INTO. Adjunto el código. Agradeceria si me pueden indicar ¿cúal podría ser el error? Private Sub Cargar3001_Click() Dim Cargar_3001 As String Cargar_3001 = "INSERT INTO 3001(Orden,IdReporte,CIERRE,CODPROD, NUMPOL, STSPOL, FECINIVIGPOL, FECFINVIGPOL, FORMA_PAGO, SUCURSAL_SAP, RAMO_TECNICO, CCOSTO, " & _ "PRODUCTO_SAP, CODPLAN, REVPLAN, CODCANAL, CODSUBCANAL, NUMCERTRED, NUMCERT, TIPOID, NUMID, DVID, NOMASEG, INDASEGTIT, TIPOOP, NUMOPER, FACTURA, MTO_OPER, POBICA, MTOPRIMANETA, " & _ "MTOIVA, SUMASEG_ACUMULA_REA, RAMO_REA, DEPOSITO_RETENIDO, COMISION, PORCCTTO_RET, SUMACTTO_RET, PRIMACTTO_RET, COSTO_RET, PORCCTTO_RT1, SUMACTTO_RT1, PRIMACTTO_RT1, COSTO_RT1, " & _ "PORCCTTO_CUO, SUMACTTO_CUO, PRIMACTTO_CUO, PORCCTTO_1EX, SUMACTTO_1EX, PRIMACTTO_1EX, PORCCTTO_FPU, SUMACTTO_FPU, PRIMACTTO_FPU, PORCCTTO_FOB, SUMACTTO_FOB, PRIMACTTO_FOB, NIT, TOMADOR)" & _ "SELECT BANCASEGUROS.[Orden], BANCASEGUROS.[IdReporte], BANCASEGUROS.[CIERRE], BANCASEGUROS.[CODPROD], BANCASEGUROS.[NUMPOL], BANCASEGUROS.[STSPOL], BANCASEGUROS.[FECINIVIGPOL], " & _ "BANCASEGUROS.[FECFINVIGPOL], BANCASEGUROS.[FORMA_PAGO], BANCASEGUROS.[SUCURSAL_SAP], BANCASEGUROS.[RAMO_TECNICO], BANCASEGUROS.[CCOSTO], BANCASEGUROS.[PRODUCTO_SAP], " & _ "BANCASEGUROS.[CODPLAN], BANCASEGUROS.[REVPLAN], BANCASEGUROS.[CODCANAL], BANCASEGUROS.[CODSUBCANAL], BANCASEGUROS.[NUMCERTRED], BANCASEGUROS.[NUMCERT], BANCASEGUROS.[TIPOID],BANCASEGUROS.[NUMID], " & _ "BANCASEGUROS.[DVID],BANCASEGUROS.[NOMASEG], BANCASEGUROS.[INDASEGTIT], BANCASEGUROS.[TIPOOP], BANCASEGUROS.[NUMOPER], BANCASEGUROS.[FACTURA], BANCASEGUROS.[MTO_OPER], BANCASEGUROS.[POBICA], " & _ "BANCASEGUROS.[MTOPRIMANETA], BANCASEGUROS.[MTOIVA], BANCASEGUROS.[SUMASEG_ACUMULA_REA], BANCASEGUROS.[RAMO_REA], BANCASEGUROS.[DEPOSITO_RETENIDO], BANCASEGUROS.[COMISION], " & _ "BANCASEGUROS.[PORCCTTO_RET], BANCASEGUROS.[SUMACTTO_RET], BANCASEGUROS.[PRIMACTTO_RET], BANCASEGUROS.[COSTO_RET], BANCASEGUROS.[PORCCTTO_RT1], BANCASEGUROS.[SUMACTTO_RT1], " & _ "BANCASEGUROS.[PRIMACTTO_RT1], BANCASEGUROS.[COSTO_RT1], BANCASEGUROS.[PORCCTTO_CUO], BANCASEGUROS.[SUMACTTO_CUO], BANCASEGUROS.[PRIMACTTO_CUO], BANCASEGUROS.[PORCCTTO_1EX], " & _ "BANCASEGUROS.[SUMACTTO_1EX], BANCASEGUROS.[PRIMACTTO_1EX], BANCASEGUROS.[PORCCTTO_FPU], BANCASEGUROS.[SUMACTTO_FPU], BANCASEGUROS.[PRIMACTTO_FPU], BANCASEGUROS.[PORCCTTO_FOB], " & _ "BANCASEGUROS.[SUMACTTO_FOB], BANCASEGUROS.[PRIMACTTO_FOB], BANCASEGUROS.[NIT], BANCASEGUROS.[TOMADOR], " & _ "FROM BANCASEGUROS" & _ "WHERE (((BANCASEGUROS.CODPROD)=3001));" DoCmd.RunSQL Cargar_3001 End Sub |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |