ник: Анатолий (Киев)
Например по Click кнопки (если в форме разрешено добавление записей):
Dim fld as DAO.Field
Me.Dirty = False 'Сохраняем изменения текущей записи
With Me.RecordsetClone
.AddNew
For Each fld In .Fields
If fld.Name = "№Номер" Then
fld.Value = Me![№номер]+1
Else
fld.Value = Me.Recordset.Fields(fld.Name).Value
End If
Next
.Update
Me.Bookmark = .LastModified 'Если нужно перейти на новую запись
End With
|