SELECT b_id AS AUDB_b_id, GetUmstaendeForB_ID(b_id) AS [umst1;umst2;umst3;]
FROM beteiligte;

Option Compare Database
Dim g_DB As DAO.Database
 
Dim db_umstaende As DAO.Database
Dim rs_umstaende As DAO.Recordset
 
Public Sub OpenUmstaendeDBRS()
Dim SQL As String
Set db_umstaende = CurrentDb
SQL = "SELECT * FROM umstaende_des_beteiligten ORDER BY ub_b_id"
Set rs_umstaende = db_umstaende.OpenRecordset(SQL, , dbReadOnly)
End Sub
 
' liefert die umstaende des beteiligten strichpunkt getrennt zurück
' leere felder werden auf 3 strichpunkte aufgefüllt
' schließen der db noch einbauen
Public Function GetUmstaendeForB_ID(b_id As Long) As String
Dim SQL As String
Dim ret As String
Dim first As Boolean
Dim zaehler As Integer
Dim i As Integer
 
' öffnen wenn zu
If db_umstaende Is Nothing Then OpenUmstaendeDBRS
 
zaehler = 0
rs_umstaende.FindFirst ("ub_b_id=" & CStr(b_id))
If Not rs_umstaende.NoMatch Then
 
    first = True
    Do While Not rs_umstaende.NoMatch
        If first = False Then
            ret = ret & ";"
            zaehler = zaehler + 1
        End If
        first = False
        ret = ret & rs_umstaende![ub_uu_id]
        rs_umstaende.FindNext ("ub_b_id=" & CStr(b_id))
    Loop
    Select Case zaehler
        Case 0
            ret = ret & ";;;"
        Case 1
            ret = ret & ";;"
        Case 2
        ret = ret & ";"
    End Select
    GetUmstaendeForB_ID = ret
Else
    GetUmstaendeForB_ID = ";;;"
End If
End Function