Как вставить новую запись

[Darinat]

еще один вопросик - вот фрагмент программы, где мне надо выбрать запись по отправителю ЗСМК, разделить ее вес на три части - в текущую запись изменить товар на арматуру и оставить вес соответсвенно доли арматуры, и вставить две записи - долю сортового проката и проволоки. Записи вставляет, но в поле отправитель и вес пустые.Ставит только наименование_наше.В поле правки существующей записи вес пресчитывает корректно... Почему она не видит текущую запись? заранее спасибо.

If TBL![Отправитель] Like "*ЗСМК*" Then
TBL.Edit
TBL![Sum-вес] = TBL![Sum-вес] * 0.58
TBL![Наименование_наше] = "Арматура"
TBL.Update

TBL.AddNew
TBL![Отправитель] = TBL![Отправитель]
TBL![Наименование_наше] = "Сортовой прокат"
TBL![Sum-вес] = TBL![Sum-вес] * 0.25
TBL.Update

TBL.AddNew
TBL![Отправитель] = TBL![Отправитель]
TBL![Наименование_наше] = "Проволока и катанка"
TBL![Sum-вес] = TBL![Sum-вес] * 0.17
TBL.Update
End If

[Agapov_stas]

Попробуйте:

If TBL![Отправитель] Like "*ЗСМК*" Then
Dim a As String
Dim b As Currency
a = TBL![Отправитель]
b = Nz(TBL![Sum-вес], 0)
TBL.Edit
TBL![Sum-вес] = TBL![Sum-вес] * 0.58
TBL![Наименование_наше] = "Арматура"
TBL.Update

TBL.AddNew
TBL![Отправитель] = a
TBL![Наименование_наше] = "Сортовой прокат"
TBL![Sum-вес] = b * 0.25
TBL.Update

TBL.AddNew
TBL![Отправитель] = a
TBL![Наименование_наше] = "Проволока и катанка"
TBL![Sum-вес] = b * 0.17
TBL.Update
End If