ник: Анатолий (Киев)
Добавьте в модуль и запускайте:
Sub SplitRecords()
Dim rsFrom As Recordset, rsTo As Recordset, v As Variant
Set rsFrom = CurrentDb.OpenRecordset("Стандарт")
Set rsTo = CurrentDb.OpenRecordset("Стандарт2")
Do Until rsFrom.EOF
For Each v In SplitString(rsFrom![Стандарт], "/", ",")
rsTo.AddNew
rsTo![Стандарт2] = Trim$(v)
rsTo.Update
Next
' rsFrom.Delete 'Исходную запись можно и удалить
rsFrom.MoveNext
Loop
rsFrom.Close: rsTo.Close
End Sub
|
Amer, у меня такое подозрение, что вам не знакомо слово "Recordset".
