Insertar presentación Powerpoint en access con SQL
Tengo una base de datos en Access Y tengo un formulario independiente en el cual guardo los datos ingresados en las textbox mediante un botón con código SQL, Quisiera poder mediante código SQL insertar en una tabla Objetos OLE en este caso una presentación Power point este es mi código
Private Sub Command67_Click()
DoCmd.RunSQL "INSERT INTO [NCMR](Status, NCMRNumber, Author, Supplier, SupplierNumber, Address1, Email, BU, ProductLine, Phone, PartNumber, Description, DateCreated, Location, NCMRType, Contact, LotNumber, CustomerPONumber, UnitOfMeasure, TotalQuantity, DefectiveParts, FullProblemDescription, DispositionDescription, DispositionReason) VALUES('" & Statustbox & "', '" & NCMRNumbertbox & "', '" & Authortbox & "', '" & Suppliertbox & "', '" & SupplierNumbertbox & "', '" & Address1tbox & "', '" & Emailtbox & "', '" & BUtbox & "', '" & ProductLinetbox & "', '" & Phonetbox & "', '" & PartNumbertbox & "', '" & Descriptiontbox & "', '" & DateCreatedtbox & "', '" & Locationtbox & "', '" & NCMRTypetbox & "', '" & Contacttbox & "', '" & LotNumbertbox & "', '" & CustomerPONumbertbox & "', '" & UnitOfMeasuretbox & "', '" & TotalQuantitytbox & "', '" & DefectivePartstbox & "', '" & FullProblemDescriptiontbox & "', '" & DispositionDescriptiontbox & "', '" & DispositionReasontbox & "');"
DoCmd.RunSQL "INSERT INTO [NCMR] (Links) VALUES( '" & Linktbox.Object & "');"
End Sub
Pero al momento de presionar el botón para guardar... ¿Me arroja un error que dice error de sintaxis 3075 Alguna idea de lo que estoy haciendo mal?
Private Sub Command67_Click()
DoCmd.RunSQL "INSERT INTO [NCMR](Status, NCMRNumber, Author, Supplier, SupplierNumber, Address1, Email, BU, ProductLine, Phone, PartNumber, Description, DateCreated, Location, NCMRType, Contact, LotNumber, CustomerPONumber, UnitOfMeasure, TotalQuantity, DefectiveParts, FullProblemDescription, DispositionDescription, DispositionReason) VALUES('" & Statustbox & "', '" & NCMRNumbertbox & "', '" & Authortbox & "', '" & Suppliertbox & "', '" & SupplierNumbertbox & "', '" & Address1tbox & "', '" & Emailtbox & "', '" & BUtbox & "', '" & ProductLinetbox & "', '" & Phonetbox & "', '" & PartNumbertbox & "', '" & Descriptiontbox & "', '" & DateCreatedtbox & "', '" & Locationtbox & "', '" & NCMRTypetbox & "', '" & Contacttbox & "', '" & LotNumbertbox & "', '" & CustomerPONumbertbox & "', '" & UnitOfMeasuretbox & "', '" & TotalQuantitytbox & "', '" & DefectivePartstbox & "', '" & FullProblemDescriptiontbox & "', '" & DispositionDescriptiontbox & "', '" & DispositionReasontbox & "');"
DoCmd.RunSQL "INSERT INTO [NCMR] (Links) VALUES( '" & Linktbox.Object & "');"
End Sub
Pero al momento de presionar el botón para guardar... ¿Me arroja un error que dice error de sintaxis 3075 Alguna idea de lo que estoy haciendo mal?
1 respuesta
Respuesta de Neckkito Nck
1
Sin mirármelo a fondo lo primero que no veo bien es que cuando metes SQL en código VBA NO debes poner el punto y coma al final de la SQL. Prueba de quitar esos punto y coma que has puesto.
Es decir,
Bla, bla... DispositionDescriptiontbox & "', '" & DispositionReasontbox & "');" -> Quita el punto y coma del final
y de
DoCmd.RunSQL "INSERT INTO [NCMR] (Links) VALUES( '" & Linktbox.Object & "');" -> También quítale el punto y coma.
A ver si con eso se arregla.
Es decir,
Bla, bla... DispositionDescriptiontbox & "', '" & DispositionReasontbox & "');" -> Quita el punto y coma del final
y de
DoCmd.RunSQL "INSERT INTO [NCMR] (Links) VALUES( '" & Linktbox.Object & "');" -> También quítale el punto y coma.
A ver si con eso se arregla.
