DoCmd.RunSQL Append Query

[stevo1961]

Hi,

I have an Append query named "Append Manifest" which I call using the DoCmd.OpenQuery "AppendManifest", acNormal, acEdit

INSERT INTO tblManifest ( DeliveryDocketID, DeliveryDocketNo, JobID, BatchNo, Quantity, QtyType, LabelCount, NumPallets, Status, Description )
SELECT JobsDeliveryVendor.DeliveryDocketID, JobsDeliveryVendor.DeliveryDocketNo, JobsDeliveryVendor.JobID, JobsDeliveryVendor.BatchNo, JobsDeliveryVendor.Quantity, JobsDeliveryVendor.QtyType, JobsDeliveryVendor.LabelCount, JobsDeliveryVendor.NumPallets, JobsDeliveryVendor.Status, JobsDeliveryVendor.[Material Description]
FROM JobsDeliveryVendor, tblNums
WHERE (((JobsDeliveryVendor.JobID)=[Forms]![Jobs]![JobID]) AND ((JobsDeliveryVendor.Status)>"0") AND ((tblNums.ID)<=[NumPallets]));

I am a newbie to the DoCmd.RunSQL but I would like to try and call the above using the
DoCmd.RunSQL. Could anyone point me in the direction on how to perform this?

Thanks for the help

 

[Andrzejek]

Did you try:

Dim strSQL As String

strSQL = "INSERT INTO tblManifest ..."

DoCmd.RunSQL strSQL

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.

 

[stevo1961]

I tried this but there is a syntax error

Dim strSQL As String

strSQL = "INSERT INTO tblManifest ( DeliveryDocketID, DeliveryDocketNo, JobID, BatchNo, Quantity, QtyType, LabelCount, NumPallets, Status, Description )
SELECT JobsDeliveryVendor.DeliveryDocketID, JobsDeliveryVendor.DeliveryDocketNo, JobsDeliveryVendor.JobID, JobsDeliveryVendor.BatchNo, JobsDeliveryVendor.Quantity, JobsDeliveryVendor.QtyType, JobsDeliveryVendor.LabelCount, JobsDeliveryVendor.NumPallets, JobsDeliveryVendor.Status, JobsDeliveryVendor.[Material Description]
FROM JobsDeliveryVendor, tblNums
WHERE (((JobsDeliveryVendor.JobID)=[Forms]![Jobs]![JobID]) AND ((JobsDeliveryVendor.Status)>"0") AND ((tblNums.ID)<=[NumPallets]))"

DoCmd.RunSQL strSQL

 

[stevo1961]

Have it sorted now..thanks!!!

 

[PHV]

Replace this:
)>"0")
with this:
)>'0')

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886