Откат изменений подчиненной формы

@jediAlex · Регистрация: 12.07.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые форумчане. Столкнулся с проблемой. Есть форма для добавления и редактирования записи с подчиненнойформой.Поля подчиненной формы: Код - счетчик; Подразделение - целое число, ЧасовПлан - одинарное;Объект - строка; Ведомость - целое число. Пользователь редактирует запись - т.е. изменяет ведомость. Пример статей ведомости:
Подразделение ЧасовПлан Объект
1 30 33500-АН
2 40 33500-АН
3 45 33500-АН
Величина часовПлан как правило рассчитывается на основе служебных записок и многих распоряжений, т.е. не исключены ошибки при редактировании. Можно ли сделать откат изменений до предыдущего состояния? я пробовал это делать так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
On Error GoTo ErrHandle
'PrevVedomost.MoveFirst
'With Me.SubFormVedomost.Form.RecordsetClone
 ' .MoveFirst
  'Do Until .EOF
   'If Not IsNull(![Ñòàòüÿ]) Then
    '  .Delete
    'End If
   '.MoveNext
 'Loop
'End With
Set Me.SubFormVedomost.Form.Recordset = PrevVedomost
DoCmd.Close acForm, "DobredVedomost", acSaveNo
ErrHandle: DoCmd.Close acForm, "DobredVedomost", acSaveNo
End Sub

Переменная PrevVedomost - в неё при открытии формы я сохраняю записи субформы (предыдущее состояние):

Visual Basic
1
2
3
4
5
Option Compare Database
Public PrevVedomost As DAO.Recordset
Private Sub Form_Load()
Set PrevVedomost = Me.SubFormVedomost.Form.RecordsetClone
End Sub

При выполнении приведенного выше кода новые значения сохраняются. Циклпо удалению записей закомментил, т.к. происходит удаление записей из субформы и новые записи из рекордсета не присваиваются. Как еще решить эту проблему...ума не приложу...помогите пожалуйста

@duh_si · 07.10.2014, 10:58

а просто Me.Undo не подойдет?

Добавлено через 2 минуты
а просто Me.Undo не подойдет

@jediAlex · 07.10.2014, 10:59 **[ТС]**

пробовал -не подходит...записи субформы все равно в БД попадают...если б Undo срабатывало...я бы помощи не искал...))

mobile · 07.10.2014, 11:01

Для полноценного отката, требуется вести таблицу прежних значений. При необходимости искать в ней по ключу нужную запись. Если такой записи нет, то следовательно откат состоит в удалении текущей записи. Если есть, то прочитать ее и вставить прежние значения.

Если Вы рискнете задать для БД режим ANSI-92, то можете поискать а гугле "триггер Бенедикта". К сожалению, правила форума не позволяют дать прямую ссылку на иной форум. Решение Бенедикта автоматически ведет копии ввода данных.

@jediAlex · 07.10.2014, 11:06 **[ТС]**

Visual Basic
1
Me![SubFormVedomost].Undo

тоже не подошло - все сохраняется

@ltv_1953 · 07.10.2014, 11:15

А транзакции использовать не пробовали? В старых версиях методы DAO BeginTrans, CommitTrans, Rollback работали нормально. Как в 2007 и старше - не проверял.

@duh_si · 07.10.2014, 11:19

jediAlex, вам mobile предложил действенный способ реализации вашей задачи.

mobile, Для полноценного отката, требуется вести таблицу прежних значений. При необходимости искать в ней по ключу нужную запись. Если такой записи нет, то следовательно откат состоит в удалении текущей записи. Если есть, то прочитать ее и вставить прежние значения.

У меня реализовано нечто подобно. Есть форма на которой 5 подчиненных, на которых возможен откат к предыдущим значениям. Как у меня это работает: на примере одной формы!, есть основная таблица Заказ ( хранятся все записи ) есть временная таблица ЗаказВременный. При открытии любой записи, во временную записывается эта стока со всеми её данными, ( форма подключена к временной таблице!!! ) и когда пользователи отредактировали на форме эти данные как им вздумалось, при закрытии формы им выходит сообщение сохранить или нет, если нет, то временная таблица просто очищается, если да, тогда UpDate соответствующая строка в основной таблице перезаписывается с новыми данными

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
	07.10.2014, 10:58
	а просто Me.Undo не подойдет? Добавлено через 2 минуты а просто Me.Undo не подойдет 0

@jediAlex 5 / 5 / 6 Регистрация: 12.07.2011 Сообщений: 727
	07.10.2014, 10:59 [ТС]
	пробовал -не подходит...записи субформы все равно в БД попадают...если б Undo срабатывало...я бы помощи не искал...)) 0

mobile 26825 / 14505 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	07.10.2014, 11:01
	Для полноценного отката, требуется вести таблицу прежних значений. При необходимости искать в ней по ключу нужную запись. Если такой записи нет, то следовательно откат состоит в удалении текущей записи. Если есть, то прочитать ее и вставить прежние значения. Если Вы рискнете задать для БД режим ANSI-92, то можете поискать а гугле "триггер Бенедикта". К сожалению, правила форума не позволяют дать прямую ссылку на иной форум. Решение Бенедикта автоматически ведет копии ввода данных. 1

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	07.10.2014, 11:15
	А транзакции использовать не пробовали? В старых версиях методы DAO BeginTrans, CommitTrans, Rollback работали нормально. Как в 2007 и старше - не проверял. 0