öncelikle bir modül oluşturup aşağıdaki fonksiyonu tanımlayın

Function xBirles(ByVal xBrm As String) As String

Set AtNoRs = CurrentDb.OpenRecordset("select [AT NO] from posta where [BİRİMİ MAHKEME SAVCILIK]='" & xBrm & "'")

xBirles = ""

If AtNoRs.RecordCount = 0 Then Exit Function

Do Until AtNoRs.EOF

    xBirles = xBirles & "-" & AtNoRs(0)

AtNoRs.MoveNext

Loop

xBirles = Mid(xBirles, 2)

End Function

sonrada aşağıdaki sorgu kodunu kullanarak bir sorgu oluşturun

SELECT POSTA.[BİRİMİ MAHKEME SAVCILIK], Count(POSTA.[AT NO]) AS YinelemeSayısı, xBirles([BİRİMİ MAHKEME SAVCILIK]) AS [AT No]

FROM POSTA

GROUP BY POSTA.[BİRİMİ MAHKEME SAVCILIK];