|
|
Сборка значений поля (конкатинация) по записям из источника данных
Public Function RecordsToString(sExpression$, sSource$, Optional vCriteria As Variant = Null, _
Optional vOptions As Variant = Null, Optional sCut As String = "; ") As Variant
Dim rst As DAO.Recordset
Dim s$
On Error GoTo RecordsToString_Err
s = "SELECT " & sExpression & " FROM " & sSource & (" WHERE " + vCriteria) & (" " + vOptions)
Set rst = CurrentDb.OpenRecordset(s, dbReadOnly)
With rst
Do Until .EOF = True 'Цикл до конца
RecordsToString = RecordsToString & sCut & .Fields(0)
.MoveNext
Loop
End With
If Len(RecordsToString) > Len(sCut) Then
RecordsToString = Mid(RecordsToString, 3)
End If
RecordsToString_End:
On Error Resume Next
rst.Close
Set rst = Nothing
Exit Function
RecordsToString_Err:
RecordsToString = "ERR: " & Err.Number
Resume RecordsToString_End
End Function
|
|