Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
Dim rsFrom As Recordset, rsTo As Recordset, v As Variant
Set rsFrom = CurrentDb.OpenRecordset("Стандарт")
Set rsTo = CurrentDb.OpenRecordset("Стандарт2")
Do Until rsFrom.EOF
MsgBox 123
For Each v In SplitString(rsFrom![Стандарт], "/", ",") 'Вызывает окно закрытия приложения.
MsgBox 457
rsTo.AddNew
rsTo![Стандарт2] = Trim$(v)
rsTo.Update
Next
' rsFrom.Delete 'Исходную запись можно и удалить
rsFrom.MoveNext
Loop
rsFrom.Close: rsTo.Close
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
|