Samle data

Er det noget, der sker regelmæssigt - eller bare én gang ?

det er noget man skal gøre en gang om ugen

Kommer med et forslag i morgen

Hej
Følgende rutine burde løse opgaven:
Du skal skifte ud med de rigtige navne for By, Felt og Tabel
Output er her sent til debug.print - det kan være du skal sende det et andet sted hen . . .


Dim Db as DAO.Ddatabase
Dim Rs as DAO.Recordset
Dim StrSQL as string
Dim Udput as string vBy as string, vFelt as string

Set Db=currrentdb
StrSQL= "SELECT By, Felt FROM Tabel ORDER BY By"
Set Rs=Db.Openrecordset(StrSQL)

While Not Rs.EOF
    vBy=Rs(0)
    vFelt=vFelt & Rs(1) & ";"
    Rs.MoveNext
    If not Rs.EOF then
        If Rs(0) <> vBy then
            Udput = vBy & " " & vFelt
            Debug.Print Udput
            vBy=""
            vFelt=""
        End if
    Else
        Udput = vBy & " " & vFelt
        Debug.Print Udput
        vBy=""
        vFelt=""
    End if
Wend