What field/table does project log ID relate to? I assumed ID in Project Log, but they're different data types, which doesn't make sense. See if this does what you want:
Code:
Public Function fConcatFld(lngProjID As Long) As String
'
Dim lodb As dao.Database, lors As dao.Recordset
Dim lovConcat As Variant, loCriteria As String
Dim loSQL As String
Dim booFirst As Boolean
Const cQ = """"
On Error GoTo Err_fConcatFld
lovConcat = Null
Set lodb = CurrentDb
loSQL = "SELECT Modified, Description, [Modified By] FROM Versions WHERE [Project Log ID] = '" & lngProjID & "'"
Set lors = lodb.OpenRecordset(loSQL, dbOpenSnapshot)
booFirst = True
'Are we sure that duplicates exist in stFldToConcat
With lors
If .RecordCount <> 0 Then
'start concatenating records
Do While Not .EOF
If booFirst = True Then
lovConcat = lovConcat & "Created By "
booFirst = False
Else
lovConcat = lovConcat & "Modified By "
End If
lovConcat = lovConcat & lors![Modified by] & lors("Modified") & lors!Description & ";<BR/> "
.MoveNext
Loop
Else
GoTo Exit_fConcatFld
End If
End With
fConcatFld = lovConcat
Exit_fConcatFld:
Set lors = Nothing
Set lodb = Nothing
Exit Function
Err_fConcatFld:
MsgBox "Error#: " & Err.Number & vbCrLf & Err.Description
Resume Exit_fConcatFld
End Function
And a test query
SELECT [Project Log].[Project ID], fConcatFld([id]) AS ConcatenatedData, [Project Log].ID
FROM [Project Log]