訪問：在報告

Question

我在包含多個字段我的Access數據庫，例如報告分組，它看起來像如下：

名稱約翰
18號
某處

名稱約翰
19號
某處

名稱約翰
20號
某處

名稱BOGO
數30
某處

約翰可以有多個號碼。正如你所看到的，「約翰」被多次列出，每個都有不同的數字。我想只得到一個名爲「John」的細節行，如下所示：

姓名約翰
編號18; 19; 20
某處

名稱BOGO
數30
地方

地方我怎樣才能做到這一點？

Answer 1

解決方案是使用訪問模塊中的VBA代碼來將重複值「串在一起」（在您的案例中爲「數字」）。代碼的一般形式是：

Option Compare Database 
Option Explicit 

Public Function ListChildNames(ParentID As Long) As String 
Dim cdb As DAO.Database, rst As DAO.Recordset, rtn As String 
Const separator = "; " 
Set cdb = CurrentDb 
Set rst = cdb.OpenRecordset(_ 
     "SELECT [ChildName] FROM [ChildTable] " & _ 
     "WHERE ID=" & ParentID, _ 
    dbOpenSnapshot) 
rtn = "" 
Do While Not rst.EOF 
    rtn = rtn & rst![ChildName] & separator 
    rst.MoveNext 
Loop 
rst.Close 
Set rst = Nothing 
Set cdb = Nothing 
If Len(rtn) > 0 Then 
    rtn = Left(rtn, Len(rtn) - Len(separator)) '' trim trailing separator 
End If 
ListChildNames = rtn 
End Function 

（你將不得不調整表和列名，以配合您的表結構。）

然後，在記錄源爲您的報告，而不是使用...

SELECT [Name], [Number] ... FROM ... 

...你會使用類似...

SELECT [Name], ListChildNames([Name]) AS Numbers ... FROM ... 

...檢索[名稱]和單行中的（連接列表）[Number]值。