Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Журнал действий пользователя (А2003)
 
 автор: Cerber   (31.08.2009 в 09:46)   личное сообщение
 
 

Помогите пожалуйста
необходимо вести лог действий пользователя
удаление, изменение, внесение новых записей
Лог необходимо вести отдельно в текстовом файле
Благодарю всех ответивших

  Ответить  
 
 автор: osmor   (31.08.2009 в 11:55)   личное сообщение
 
 

для начала
http://hiprog.com/forum/read.php?id_forum=1&id_theme=3919&page=1

  Ответить  
 
 автор: Cerber   (06.09.2009 в 08:22)   личное сообщение
 
 

Проблему почти решил
1 создал копию таблицы с которой ведется лог
2 добавил поля тип операции, имя пользователя, номер компьютера, дату
3 на событие формы повесил (сокращен):

Private Sub Form_AfterUpdate()
Dim db As Database
Dim tblLog As DAO.Recordset
Set db = CurrentDb
Set tblLog = db.OpenRecordset("VLog", dbOpenDynaset)
tblLog.AddNew
tblLog![Id] = Me.Id
tblLog![Surname] = Me.Surname
tblLog![Name_s] = Me.Name_s
. . .
tblLog![DateUpdate] = Now()
tblLog![Type_Operation] = "Обновление"
tblLog![LoginName] = GetCurrentUserName
tblLog![MachineName] = GetComputerName
tblLog.Update
End Sub

4 Таблицу VLog экспортировал в текстовый файл
5 Вместо таблицы VLog установил связь с экспортированным текстовым файлом

Аналогично можно отследить любые действия пользователя (предположим нажатие кнопки)

Public Sub Btn_Load_Frm_1()
Dim qd As DAO.QueryDef

Set qd = CurrentDb.CreateQueryDef("")
qd.SQL = "INSERT INTO VLog Values ( '', '', '', . . ., Now(), 'Кнопка Загрузить форму 1', GetCurrentUserName, GetComputerName)"
qd.Execute

Set qd = Nothing
End Sub

Единственная нерешенная проблема - нужны дополнительно старые записи перед
редактированием или удалением
Есть ли у кого мысли по данному поводу?

  Ответить  
 
 автор: Гамлет   (06.09.2009 в 12:34)   личное сообщение
58 Кб.
 
 

Как то так

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList