DISTINCT不工作

Question

SQL查詢在MS-訪問

INSERT INTO tblTmpEventLog(TrackingNumber, PartNumber, PartNumberChgLvl, 
          EnteredBy, EventTypeSelected, EventDate) 
SELECT DISTINCT tblRevRelLog_Detail.RevRelTrackingNumber, 
     tblRevRelLog_Detail.PartNumber, tblRevRelLog_Detail.ChangeLevel, 
     [Forms]![frmEventLog_Input]![EnteredBy] AS EnteredBy, 
     [Forms]![frmEventLog_Input]![EventTypeSelected] AS EventTypeSelected, 
     CDate([Forms]![frmEventLog_Input]![EventDate]) AS EventDate 
    FROM tblRevRelLog_Detail LEFT JOIN tblEventLog 
    ON (tblEventLog.PartNumber = tblRevRelLog_Detail.PartNumber) 
    AND (tblEventLog.PartNumberChgLvl = tblRevRelLog_Detail.ChangeLevel) 
WHERE ((([tblRevRelLog_Detail]![RevRelTrackingNumber]) = 
      [Forms]![frmEventLog_Input]![TrackingNumber])) 
    AND ((tblEventLog.PartNumber) NOT IN 
      (SELECT tblEventLog.PartNumber FROM tblEventLog 
       WHERE tblEventLog.EventTypeSelected = 'pn REMOVED From Wrapper' 
       AND tblEventLog.TrackingNumber = 
         tblRevRelLog_Detail.RevRelTrackingNumber 
       AND tblEventLog.PartNumber = tblRevRelLog_Detail.PartNumber 
       AND tblEventLog.PartNumberChgLvl = 
         tblRevRelLog_Detail.ChangeLevel 
      )); 

DISTINCT關鍵字爲EnteredBy，EventTypeSelected不working..I意味着，對於這些列中的數據不顯示，當我使用DISTINCT關鍵字。

EVENTDATE工作正常，但我不明白爲什麼它不顯示EneteredBy和EventTypeSelected列。

誰能告訴我如何處理？

Answer 1

這可能是查詢無法直接從表單中正確解釋爲最終數據類型。然而在你的日期字段中，你將它包裝在一個函數CDATE（...）中。所以，SQL引擎知道結果類型。我建議在其他領域也這樣做。例如：做一個CAST（...你的表單控件...作爲DateTime）作爲OtherColumn等...我認爲Access允許投射，但不是正面的。否則，將表單值預拉入聲明的數據類型變量，並在查詢AS OtherColumn中使用THAT變量。

除了@Jack提到的，你總是可以回到你的賬戶，看看你的歷史問題，然後點擊任何實際幫助你解決問題的答案。有些問題從來沒有得到答案，這沒關係，只要給那些有幫助的人。

Answer 2

我發現在過去（我不記得這是哪個舊版本的Access），如果您在VBA中設置窗體控件的值，然後在查詢中使用該控件，查詢將不會請參閱您在VBA中設置的值。如果用戶正常編輯控件，則查詢會查看預期值。也許這就是發生在這裏的事情。

要解決該問題，可以聲明一個返回所需值的VBA函數。例如，而不是這樣的：

SELECT ..., Forms!MainForm!TextEntry AS TextEntry, ... FROM ... 

使用本：

SELECT ..., GetTextEntry() AS TextEntry, ... FROM ... 

與此相伴：

Public Function TextEntry() As Variant 
    TextEntry = Forms!MainForm!TextEntry 
End Function