View Single Post
 
Old March 29th, 2004, 12:55 AM
Steven Steven is offline
Friend of Wrox
 
Join Date: Jun 2003
Location: Melbourne, Vic, Australia.
Posts: 308
Thanks: 0
Thanked 0 Times in 0 Posts
Default

That certainly is one hell of a SQL statement
One suggestion -
If you're running this through VB, you'll need to enclose your statement properly.

So what you'd end up with is something along the lines of:
Code:
CurrentDb.Execute ("INSERT INTO HoldTable(QuoteType, QuoteQuantity, Initiator, DueDate, ReleasedForProcessing, GivenToQuoteGroup, GivenToCustomer, Customer, CustomerContact, ContactPhone, " _
  & "Vehicle, CustomerPartNumber, StantPartNumber, Description, Application, ApplicationType, ModelYear, ProductLife, TargetPrice, VolumeYear1, VolumeYeat2, VolumeYear3 , VolumeYear4, Hyperlink1, " _
  & "Hyperlink2, Hyperlink3, Hyperlink4, Hyperlink5, MarkedPrint, CustomerPrints, CompletePrints, Samples, DetailedDescription, MaterialSpecification, BOM, AssemblyWeight, AnnualValidation, Prototype, " _
  & "Prelaunch, Production, SpecialCharacteristics, ConceptDeliverable, PrototypesDeliverable, " _
  & "PilotRunDeliverable , PPAPDeliverable, ProductionDeliverable, DevelopmentSite, ProductConfig1, ProductConfig2, ProductConfig3, PatentIssues, PatentIssues1, TechAssump1, TechAssump2, TechAssump3, KnownLimit1, KnownLimit2, " _
  & "KnownLimit3, MfgAssumpt1, MfgAssumpt2, MfgAssumpt3, Equipment, TestAssumpt1, TestAssumpt2, TestAssumpt3 , PackagingType, Timing, Location, AdditionalStaffApproval, BAUD, GeneralManager, ManagingDirector, DivQualMan, DirectorEng, ProdEgr, " _
  & "QualityEng, MfgEng, ToolEng, TestingReqd, AudtiTestingReqd, LabFixturesReqd, GagesRqd, RejectRate, TestingDescription, CustomerSpecification, ApplicableStandards, " _
  & "PerformanceDescription , AsmDwgsComplete, CompDwgComplete, BOMComplete, DwgDescription, AssemblyEquipmentREqd, TestEquipmentReqd, TypeOfDateCodeReqd, MfgDescription, IncomingReq, OutgoingReq, InternalMaterialreq, PackagingDescription, GanttCompleted, Approval1, Approval2, " _
  & "Approval3, Approval4, Approval5, AdditonalInformation, AdditionalExistingVolume , RDTestingFixturesRequired, RDTestingRequired, RDDescription, PVTestingRequired, DVTestingRequired) SELECT RFQInputSheet.QuoteType, RFQInputSheet.QuoteQuantity, RFQInputSheet.Initiator, RFQInputSheet.DueDate, " _
  & "RFQInputSheet.ReleasedForProcessing, RFQInputSheet.GivenToQuoteGroup, RFQInputSheet.GivenToCustomer, RFQInputSheet.Customer, RFQInputSheet.CustomerContact, RFQInputSheet.ContactPhone, RFQInputSheet.Vehicle, RFQInputSheet.CustomerPartNumber, RFQInputSheet.StantPartNumber, RFQInputSheet.Description, RFQInputSheet.Application, " _
  & "RFQInputSheet.ApplicationType, RFQInputSheet.ModelYear, RFQInputSheet.ProductLife, RFQInputSheet.TargetPrice, RFQInputSheet.VolumeYear1, RFQInputSheet.VolumeYeat2, RFQInputSheet.VolumeYear3, RFQInputSheet.VolumeYear4, RFQInputSheet.Hyperlink1, RFQInputSheet.Hyperlink2, RFQInputSheet.Hyperlink3, RFQInputSheet.Hyperlink4, " _
  & "RFQInputSheet.Hyperlink5, RFQInputSheet.MarkedPrint, RFQInputSheet.CustomerPrints, RFQInputSheet.CompletePrints, RFQInputSheet.Samples, RFQInputSheet.DetailedDescription, RFQInputSheet.MaterialSpecification, RFQInputSheet.BOM, RFQInputSheet.AssemblyWeight, RFQInputSheet.AnnualValidation , RFQInputSheet.Prototype, RFQInputSheet.Prelaunch, " _
  & "RFQInputSheet.Production, RFQInputSheet.SpecialCharacteristics, RFQInputSheet.ConceptDeliverable, RFQInputSheet.PrototypesDeliverable, RFQInputSheet.PilotRunDeliverable, RFQInputSheet.PPAPDeliverable, RFQInputSheet.ProductionDeliverable, RFQInputSheet.DevelopmentSite, RFQInputSheet.ProductConfig1, RFQInputSheet.ProductConfig2, RFQInputSheet.ProductConfig3, RFQInputSheet.PatentIssues, RFQInputSheet.PatentIssues1, " _
  & "RFQInputSheet.TechAssump1, RFQInputSheet.TechAssump2, RFQInputSheet.TechAssump3, RFQInputSheet.KnownLimit1, RFQInputSheet.KnownLimit2, RFQInputSheet.KnownLimit3, RFQInputSheet.MfgAssumpt1, RFQInputSheet.MfgAssumpt2, RFQInputSheet.MfgAssumpt3, RFQInputSheet.Equipment, RFQInputSheet.TestAssumpt1, RFQInputSheet.TestAssumpt2, RFQInputSheet.TestAssumpt3, RFQInputSheet.PackagingType, RFQInputSheet.Timing, RFQInputSheet.Location , RFQInputSheet.AdditionalStaffApproval, " _
  & "RFQInputSheet.BAUD , RFQInputSheet.GeneralManager , RFQInputSheet.ManagingDirector, RFQInputSheet.DivQualMan, RFQInputSheet.DirectorEng, RFQInputSheet.ProdEgr, RFQInputSheet.QualityEng , RFQInputSheet.MfgEng, RFQInputSheet.ToolEng, RFQInputSheet.TestingReqd, RFQInputSheet.AudtiTestingReqd, RFQInputSheet.LabFixturesReqd, RFQInputSheet.GagesRqd, RFQInputSheet.RejectRate, RFQInputSheet.TestingDescription, RFQInputSheet.CustomerSpecification, RFQInputSheet.ApplicableStandards, " _
  & "RFQInputSheet.PerformanceDescription, RFQInputSheet.AsmDwgsComplete, RFQInputSheet.CompDwgComplete, RFQInputSheet.BOMComplete, RFQInputSheet.DwgDescription, RFQInputSheet.AssemblyEquipmentREqd, RFQInputSheet.TestEquipmentReqd, RFQInputSheet.TypeOfDateCodeReqd, RFQInputSheet.MfgDescription, RFQInputSheet.IncomingReq, " _
  & "RFQInputSheet.OutgoingReq, RFQInputSheet.InternalMaterialreq, RFQInputSheet.PackagingDescription, RFQInputSheet.GanttCompleted, RFQInputSheet.Approval1, RFQInputSheet.Approval2, RFQInputSheet.Approval3, RFQInputSheet.Approval4, RFQInputSheet.Approval5, RFQInputSheet.AdditonalInformation , " _
  & "RFQInputSheet.AdditionalExistingVolume, RFQInputSheet.RDTestingFixturesRequired, RFQInputSheet.RDTestingRequired, RFQInputSheet.RDDescription, RFQInputSheet.PVTestingRequired, RFQInputSheet.DVTestingRequired FROM RFQInputSheet " _
  & "FROM RFQCopyQuery")


Steven



I am a loud man with a very large hat. This means I am in charge