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

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Lukas
Как вариант:
Функция:

Public Function funSplit(str, Index As Integer)
    On Error Resume Next
    funSplit = Split(str & vbNullString, " ")(Index)
End Function

Запрос:

UPDATE T_001 SET 
T_001.Column_002 = funSplit(Column_001,0), 
T_001.Column_003 = funSplit(Column_001,1), 
T_001.Column_004 = funSplit(Column_001,2);


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.