Trigger в access 2010

[Myhaylo]

1. В какой форме Вам это нужно вести учёт изменений? Удаление записей контролируем?
2. Конечно, пишет в разные строки. А зачем Вы 2 подпрограммы используете? На After_Update OldValue возвращает требуемое (старое) значение.
3. Call не нужен.

[duh_si]

Сообщение от Myhaylo

1. В какой форме Вам это нужно вести учёт изменений?

Практически во всех которые есть в проекте

Удаление записей контролируем?

Что то об этом моменте не подумал,.. по идеи нужно и это учитывать..

2. Конечно, пишет в разные строки. А зачем Вы 2 подпрограммы используете?

Решил с начало сделать по частям, так сказать проверить работоспособность, потом в единое целое соединял бы..

На After_Update OldValue возвращает требуемое (старое) значение.

про это не понял, о чем вы..

3. Call не нужен.

Private Sub ИМЯС_AfterUpdate()
 setOldAfter
End Sub

что же таким образом писать?

[duh_si]

Сообщение от Myhaylo
1. В какой форме Вам это нужно вести учёт изменений?

Сообщение от duh_si

Практически во всех которые есть в проекте

C этим погорячился, в 3-4 формах будут фиксироваться изменения

[Myhaylo]

"Имя, сестра, имя!!!"
Фраза из фильма "Д'Артаньян и три мушкетёра"

[duh_si]

Сообщение от Myhaylo

"Имя, сестра, имя!!!"
Фраза из фильма "Д'Артаньян и три мушкетёра"

Формы: ЗаказОдин, ПроектВРазработке, Поставщик

[Myhaylo]

Сообщение от duh_si

Контролов на формах куча, на каждый вешать эти функции задолбаешься, может есть способ как нибудь сделать это все более удобно?

1. Достаточно только на After_Update.
2. В конструкторе выделяете несколько элементов управления (с Shift), вызываете окно "Свойства", переходите на закладку "Обработка событий" и для "После обновления" пишете:

=setAfterUpdate()

А вообще, это всё делается только один раз по Form_AfterUpdate()!
И второй - по Form_Delete()!

[duh_si]

Сообщение от Myhaylo

1. Достаточно только на After_Update.
2. В конструкторе выделяете несколько элементов управления (с Shift), вызываете окно "Свойства", переходите на закладку "Обработка событий" и для "После обновления" пишете:

=setAfterUpdate()

можно и так конечно Но, так как на некоторых контролах(комбобокс например ) висят свои процедуры, в них нужно будет вписать вызов руками(не страшно)

А вообще, это всё делается только один раз по Form_AfterUpdate()!

вот как вызов делаю

Private Sub Form_AfterUpdate()
setOldBefore
End Sub

вот сейчас сделал так как вы предложили, смотрите как все получается: если изменить в любом контроле(будь то комбо или поле) тогда он сохраняет изменение, Но если изменить последовательно в двух контролах информацию, то записывается только последнее изменение, а мне нужно чтобы он всё и всех контролов записывал которые пользователь изменять будет на этой форме

И второй - по Form_Delete()!

а код тот же вешать или что то изменить нужно?

[duh_si]

Сообщение от Myhaylo

1. Достаточно только на After_Update.

а как же старое значение
мне нужно чтобы и старая и новая запись сохранялись в ЖурналеИзменений, так сказать для наглядности

[Myhaylo]

Старую запись - сохраняйте, а новая - в таблице (зачем же её дублировать?)...

Сообщение от duh_si

если изменить последовательно в двух контролах информацию, то записывается только последнее изменение

Вот так можно перебрать все элементы управления в форме:

Dim c As Control  
  For Each c In Me.Controls
    If Nz(c.OldValue,0)<>Nz(c,0) then 'если старое и новое значения - разные
      'выполняем запись c.OldValue
    End If
  Next c

Вот только структуру таблицы журнала изменений я не понял...

[duh_si]

Myhaylo можно вам на почту скинуть мой проект, вы посмотрите , вам нагляднее будет что я пытаюсь добиться