ник: Анатолий (Киев)
Например такая функция в общем модуле:
Function GetSeparatedString(ByVal sSource As String, _
Optional sColSep As String = ",", _
Optional sRowSep As String = vbCrLf) As String
On Error Resume Next
With CurrentProject.Connection.Execute(sSource)
If Err <> 0 Then Err.Clear: Exit Function
If .BOF Then Exit Function
sSource = .GetString(, , sColSep, sRowSep, "")
GetSeparatedString = Left$(sSource, Len(sSource) - Len(sRowSep))
End With
End Function
|
В окне отладки:
?GetSeparatedString("SELECT ФамилияР FROM Рабочая", ,", ")
ГРИГОРЬЕВ СЕРГЕЙ АЛЕКСАНДРОВИЧ, ..., НЕКРАСОВ СЕРГЕЙ ВИКТОРОВИЧ
ЗЫ. k@s, учитесь грамотно задавать вапросы.
Что значит в данном случае "не в табличной форие"?