ник: Анатолий (Киев)
Пишете такую функцию в общем модуле:
Function GetPartDelimText(Text, PartNum%, Optional SimbolDelim$ = ";") As Variant
Dim Part
On Error Resume Next
If Len(Nz(Text, "")) = 0 Or Len(SimbolDelim) = 0 Or PartNum <= 0 Then Exit Function
Part = Split(Text, SimbolDelim, PartNum + 1)
Part = Part(PartNum - 1)
If Err.Number <> 0 Then Err.Clear: Exit Function
If Len(Part) = 0 Then Part = Null
GetPartDelimText = Part
End Function
|
В конструкторе запроса на добавление в строке "Добавление" для каждого поля указываете эту функцию. Например для поля "Штрихкод" (вторая часть текста в поле "поле1"):
=GetPartDelimText([поле1]; 2)