Anexar Datos de una tabla a otra x Código
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84555
Fecha de impresión: 26/Marzo/2026 a las 17:28
Tema: Anexar Datos de una tabla a otra x Código
Publicado por: ERJ
Asunto: Anexar Datos de una tabla a otra x Código
Fecha de publicación: 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 |
Respuestas:
Publicado por: xavi
Fecha de publicación: 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) ------------- Xavi, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: xavi
Fecha de publicación: 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, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web
|
Publicado por: rokoko
Fecha de publicación: 14/Junio/2019 a las 09:10
|
Yo lo hago con una consulta normal de datos anexados y la ejecuto desde vba y listo. https://docs.microsoft.com/es-es/office/vba/api/access.docmd.openquery" rel="nofollow - https://docs.microsoft.com/es-es/office/vba/api/access.docmd.openquery 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 http://access.bengoechea.net/utilidades-1/sql2vba" rel="nofollow - http://access.bengoechea.net/utilidades-1/sql2vba
|