在split-form的組合框中，將具有相同"字串值"但不同ID的記錄分組。

我知道我可以用多值欄位來做這件事，但這會導致其他問題。

我有一個帶有組合框的主分頁表格，用于對各種不同的組合進行排序。例如，我有一個cbo_Customers，cbo_CustomerLocations，等等。(見底部的VBA代碼)

同一個CustomerLocation可以有不同的Customers。因此，有可能有2個不同的Customers，它們有相同的CustomerLocation。

在我的主分割表單中，我有一個名為cbo_CustomerLocations的組合框，它從tbl_CustomerLocations中查找值。 tbl_CustomerLocations包括4個欄位。CustomerLocationID, LocationCompanyName, LocationCompanyPlace, CustomerID (它被鏈接到tbl_Customers)

我有1個位置被命名。TESTLOCATION,
我有2個客戶被命名為: CUSTOMER_1和CUSTOMER_2

我試圖避免多值欄位，因此 在tbl_CustomerLocations中，值為TESTLOCATION的記錄在這個表中出現了兩次，因為欄位CustomerID被鏈接到CUSTOMER_1，而另一個記錄被鏈接到CUSTOMER_2

現在在我的主表單的組合框cbo_CustomerLocations中，這個TESTLOCATION也顯示了兩次（2個不同的CustomerLocationID）

我希望這個組合框能夠GROUP BY CustomerLocationName。而且，如果我選擇這個（分組的）TESTLOCATION"TESTLOCATION"的記錄。(TESTLOCATION有不同的ID)

這是我的SQL，其中TESTLOCATION被顯示兩次：

SELECT tbl_CustomerLocations.CustomerLocationID。
tbl_CustomerLocations.LocationCompanyName, 
tbl_CustomerLocations.LocationCompanyPlace
FROM tbl_CustomerLocations
ORDER BY tbl_CustomerLocations.LocationCompanyName;

我試了一下：

SELECT Count(tbl_CustomerLocations.CustomerLocationID) as
CountOfCustomerLocationID, tbl_CustomerLocations.LocationCompanyName
FROM tbl_CustomerLocations
GROUP BY tbl_CustomerLocations.LocationCompanyName;

這確實在組合框中結合了TESTLOCATION，但我的記錄并沒有顯示在我的分割表格中

我還嘗試了這個，在Stack Overflow上發現的：

SELECT * FROM tbl_CustomerLocations e1, tbl_CustomerLocations e2 
WHERE e1.LocationCompanyName = e2.LocationCompanyName
and e1.CustomerLocationID != e2.CustomerLocationID。

這也是一個死結。

在我的主分割表單中，在我更新combobox cbo_CustomerLocations之后，以下VBA代碼被呼叫：

Private Sub cbo_CustomerLocations_AfterUpdate()
Call SearchCriteria
End Sub


Function SearchCriteria()
Dim Customer, CustomerLocationas String
Dim task, strCriteria As String

If IsNull(Me.Cbo_Customers) Then
    客戶="[CustomerID] like '*'"。
Else
    Customer = "[CustomerID] = " & Me.Cbo_Customers
End If

If IsNull(Me.cbo_CustomerLocations) Then
    CustomerLocation = "[CustomerLocationID] like '*'"/span>.
Else
    CustomerLocation = " [CustomerLocationID] = " & cbo_CustomerLocations
End If

strCriteria = Customer & "And" & CustomerLocation

task = "Select * from qry_Administration where (" & strCriteria & ") "

Me.Form.RecordSource = task
Me.Form.Requery

所以基本上我想在cbo_CustomerLocations中選擇（分組的）TESTLOCATION。然后函式SearchCriteria被呼叫，我的表單顯示所有找到TESTLOCATION字串的記錄。 TESTLOCATION有不同的ID。

我想我還必須以某種方式編輯這些行？

我想我還必須以某種方式編輯這些行？

strCriteria = Customer & "And"  & CustomerLocation
task = "Select * from qry_Administration where (" & strCriteria & ") "

因為strCriteria給這個分組欄位帶來了問題？

我知道這是一個很大的資訊，但我盡可能的清楚。

uj5u.com熱心網友回復：

如果我的理解正確的話，你希望主表單中的cbo_CustomerLocations組合框包含一個不同的客戶位置串列。在選擇一個值時，您希望子表單被過濾，以便只顯示所選地點的客戶，是嗎？以下是我的建議：

組合框

組合框： tbl_CustomerLocations包含這樣的資料：

你希望組合框包含這個串列：

為了實作這一點，你的組合框的資料源應該如下：

SELECT LocationCompanyPlace FROM tbl_CustomerLocations GROUP BY LocationCompanyPlace

OR

SELECT DISTINCT LocationCompanyPlace
FROM tbl_CustomerLocations
GROUP BY LocationCompanyPlace

（上述兩個查詢應該回傳相同的結果。

現在，你需要更新你的 VBA 代碼。

子 cbo_CustomerLocations_AfterUpdate(): (不需要改動)

Private Sub cbo_CustomerLocations_AfterUpdate()
    Call SearchCriteria
End Sub

函式SearchCriteria()：

FunctionSearchCriteria()
    Dim Customer, CustomerLocation asString
    Dim task, strCriteria As String
    Dim recordSourceAs string


    If IsNull(Me.Cbo_Customers) = False Then '如果一個客戶被選中，按選中的客戶過濾。
        recordSource = "SELECT * FROM qry_Administration WHERE [CustomerID] = " & Me.Cbo_Customers
    Else '如果沒有選擇客戶，則檢查是否選擇CustomerLocation。
        If IsNull(me. cbo_CustomerLocations) = False Then '如果客戶位置被選中，則通過選定的客戶位置過濾。
            '如果qry_Administration中存在CustomerLocationPlace欄位，請使用這一行。
            recordSource = "SELECT * FROM qry_Administration WHERE [CustomerLocationPlace]='" & Me.Cbo_CustomerLocations & " ' "
            
            '如果customerLocationPlace欄位在qry_Administration中不存在，則使用下面的recordSource。
            '這一行將qry_Administration連接到tbl_CustomerLocations表，以便你可以對CustomerLocationPlace欄位進行過濾。
            '通過使用 "SELECT a.*"，只回傳qry_Administration的記錄。
            'recordSource = "SELECT a.* FROM qry_Administration a INNER JOIN dbo.tbl_CustomerLocations l ON a.CustomerID = l.CustomerID WHERE l.CustomerLocationPlace='" & Me.Cbo_CustomerLocations & " '" 
        Else '如果既沒有選擇客戶也沒有選擇客戶地點，則回傳qry_Administration中的所有記錄。
            recordSource = "SELECT * FROM qry_Administration" 
        End If
    End If

    Me.Form.RecordSource = recordSource
    Me.Form.Requery
End Function[/span

我已經包含了注釋來解釋上面的代碼，但請注意，你可能需要調整嵌套if陳述句中If部分的代碼。如果CustomerLocationPlace欄位存在于qry_Administration中，那么您可以按原樣使用該代碼。然而，如果CustomerLocationPlace欄位不存在于qry_Administration中，那么你應該注釋掉第12行（recordSource = "SELECT * FROM qry_Administration WHERE [CustomerLocationPlace]='" & Me. Cbo_CustomerLocations & "'"）& 取消注釋第17行（'recordSource = "SELECT a.* FROM qry_Administration a INNER JOIN dbo.tbl_CustomerLocations l ON a.CustomerID = l.CustomerID WHERE l.CustomerLocationPlace='" & Me.Cbo_CustomerLocations & " ' "）。

我相信這個解決方案應該可以解決你的問題。如果你有任何問題或擔憂，請告訴我。

uj5u.com熱心網友回復：

在對你的解決方案進行了一些編輯后，我成功地使其運作起來。

帶有分組的combobox的解決方案可以作業。你關于CustomerLocationPlace是查詢的一部分的說法也是正確的。我沒有使用CustomerLocationPlace欄位，而是使用CustomerLocationName欄位。我還不得不添加了以下一行：

CustomerLocationPlace = " [LocationCompanyPlace] = '" & Me. cbo_CustomerLocations.Column(1) & "' "。

我剝離了我的VBA，所以對你們來說更容易。我的腳本比我之前發布的要復雜一點。我確實使用了你的解決方案，但我保留了我的VBA腳本，就像我之前的一樣。為了說明問題，這里是我的完整的VBA腳本，其中包含了David Buck的解決方案：

標籤：

上一篇：MicrosoftAccess試圖在宏中找到表作為欄位

下一篇：在所見即所得Magento2中更改檔案夾排序