Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
К примеру, функция для сплита строки из Max 5 частей:

Public Function GetPart(Part As Integer, FullString) As String     Dim var, i As Integer     Static strArr(1 To 5) As String     If Part = 1 Then         Erase strArr         If Not IsNull(FullString) Then             var = Split(FullString, ",")             For i = 0 To UBound(var)                 strArr(i + 1) = LTrim(var(i))             Next i         End If     End If     GetPart = strArr(Part) End Function

В запросе типа так:

SELECT      t1.ItemID,      GetPart(1,t1.ItemValue) AS Part1,      GetPart(2,t1.ItemValue) AS Part2,      GetPart(3,t1.ItemValue) AS Part3,      GetPart(4,t1.ItemValue) AS Part4,      GetPart(5,t1.ItemValue) AS Part5 FROM t1