MS Access窗體（VBA）查詢和定期查詢給出不同的結果

Question

我基本上在MS Access中通過VBA代碼&查詢只是一個保存的查詢。這基本上是相同的查詢，但VBA代碼缺少兩個記錄，應該包含符合條件的&。保存的查詢返回相同的數據集和VBA未返回的兩個「缺失」記錄。

保存的查詢SQL：

SELECT ID.Company, CU.GroupCode, CU.CustID, CU.Name, ST.ShipToNum, ST.Name, IH.InvoiceDate, IH.InvoiceNum, ID.ProdCode, ID.PartNum 
FROM ((((PUB_InvcDtl AS ID INNER JOIN PUB_InvcHead AS IH ON (ID.CustNum = IH.CustNum) AND (ID.InvoiceNum = IH.InvoiceNum) AND (ID.Company = IH.Company)) LEFT JOIN PUB_Part AS PT ON (ID.Company = PT.Company) AND (ID.PartNum = PT.PartNum)) LEFT JOIN PUB_ShipTo AS ST ON (ID.CustNum = ST.CustNum) AND (ID.ShipToNum = ST.ShipToNum) AND (ID.Company = ST.Company)) LEFT JOIN V_Customer AS CU ON (ID.Company = CU.Company) AND (ID.CustNum = CU.CustNum)) LEFT JOIN ProdCodeCommRate AS PCC ON ID.ProdCode = PCC.ProdCode 
WHERE (((ID.Company)="BTN") AND ((IH.InvoiceDate) Between #1/1/2013# And #1/31/2013#) AND ((ID.ProdCode) In ('2100','2110','2200','2210','2300','2400','2405','2500','2600','2701','2702','2709','2710','2800','2901','2902','2903')) AND ((ID.PartNum)<>'')); 

VBA查詢：

"SELECT ID.Company, CU.GroupCode, CU.CustID, CU.Name AS CustName, ST.ShipToNum, ST.Name AS ShipToName, IH.InvoiceDate, IH.InvoiceNum, ID.InvoiceLine, ID.PartNum, " & _ 
     "ID.ProdCode, PCC.CommRate, ID.PricePerCode, PT.PartDescription, ID.IUM, PT.CostMethod, ID.UnitPrice, ID.OurShipQty, ID.ExtPrice, ID.Discount, [ExtPrice]-[Discount] AS NetPrice, " & _ 
     "ID.LbrUnitCost, ID.BurUnitCost, ID.MtlUnitCost, ID.SubUnitCost, [LbrUnitCost]+[BurUnitCost]+[MtlUnitCost]+[SubUnitCost] AS TotUnitCost, " & _ 
     "([LbrUnitCost]+[BurUnitCost]+[MtlUnitCost]+[SubUnitCost])*[OurShipQty] AS ExtTotCost, IH.OpenInvoice, getSalesRep([IH].[SalesRepList],1,ID.Company) AS SalesRep1, ID.RepRate1, " & _ 
     "ID.RepSplit1, getSalesRep([IH].[SalesRepList],2,ID.Company) AS SalesRep2, ID.RepRate2, ID.RepSplit2, getSalesRep([IH].[SalesRepList],3,ID.Company) AS SalesRep3, " & _ 
     "ID.RepRate3, ID.RepSplit3 " & _ 
     "FROM (((((PUB_InvcDtl AS ID " & _ 
     "INNER JOIN PUB_InvcHead AS IH ON (ID.CustNum = IH.CustNum) AND (ID.InvoiceNum = IH.InvoiceNum) AND (ID.Company = IH.Company)) " & _ 
     "LEFT JOIN PUB_Part AS PT ON (ID.Company = PT.Company) AND (ID.PartNum = PT.PartNum))" & _ 
     "LEFT JOIN PUB_ShipTo AS ST ON (ID.CustNum = ST.CustNum) AND (ID.ShipToNum = ST.ShipToNum) AND (ID.Company = ST.Company))" & _ 
     "LEFT JOIN V_Customer AS CU ON (ID.Company = CU.Company) AND (ID.CustNum = CU.CustNum))" & _ 
     "LEFT JOIN ProdCodeCommRate AS PCC ON ID.ProdCode = PCC.ProdCode)" & _ 
     "WHERE ((ID.Company)=[Forms]![frmSalesMgnAnalysis]![cboComp]) AND ((ID.PartNum)<>'') AND " & _ 
     "((IH.InvoiceDate) Between [Forms]![frmSalesMgnAnalysis]![dtStart] And [Forms]![frmSalesMgnAnalysis]![dtEnd]) AND " & _ 
     "((ID.ProdCode) IN ('2100','2110','2200','2210','2300','2400','2405','2500','2600','2701','2702','2709','2710','2800','2901','2902','2903'))" & _ 
     "ORDER BY ID.ProdCode, IH.InvoiceDate, CU.Name;" 

的形式是使用輸入域公司，開始&結束日期，& ProdCodes。 ProdCodes位於包含ProdCode，Desc，&公司（位於VBA一側的表格中）的表單中的列表框中。這個VBA代碼返回我需要的所有記錄，除了2條缺失的記錄外。無論我是否加入上面的ProdCode VBA表，在WHERE中使用WHERE ID.ProdCode IN（Select distinct ......）等選擇它都不會起作用。

想法？提前致謝！！！

Answer 1

您的WHERE子句不相同（因爲括號不在兩個查詢之間的相同位置）。我懷疑你可能會遇到問題，特別是該條款的ID.PartNum<>''部分。

您可以嘗試在VBA代碼中設置斷點並獲取VBA查詢的實際解釋輸出（包括參數值）。將該SQL語句複製到新的查詢窗口（SQL視圖）中，然後查看設計器以查看Access如何解釋該語句。

您也可以嘗試在VBA查詢中匹配where子句以匹配參數的相同順序和括號的數量，但是在使用設計器之前首先證明\反駁我的假設可能更容易VBA查詢。

經常遇到像這樣的問題，需要逐句回答，然後逐漸將其添加回來以準確找到問題發生的位置，但括號的用法是我開始調查的地方。