|
автор: evg22 (30.11.-1 в 00:00) |
|
| Всем привет!
Можно ли получить переменную - дату создания таблицы, или дату последнего редактирования?
Спасибо. | |
|
| |
|
автор: Romiras (30.11.-1 в 00:00) |
|
| дату последнего редактирования наврядли вот пример может поможет
This example demonstrates the DateCreated and LastUpdated properties by adding a new Field to an existing TableDef and by creating a new TableDef. The DateOutput function is required for this procedure to run.
Sub DateCreatedX()
Dim dbsNorthwind As Database
Dim tdfEmployees As TableDef
Dim tdfNewTable As TableDef
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
With dbsNorthwind
Set tdfEmployees = .TableDefs!Employees
With tdfEmployees
Print current information about the Employees
table.
DateOutput "Current properties", tdfEmployees
Create and append a field to the Employees table.
.Fields.Append .CreateField("NewField", dbDate)
Print new information about the Employees
table.
DateOutput "After creating a new field", _
tdfEmployees
Delete new Field because this is a demonstration.
.Fields.Delete "NewField"
End With
Create and append a new TableDef object to the
Northwind database.
Set tdfNewTable = .CreateTableDef("NewTableDef")
With tdfNewTable
.Fields.Append .CreateField("NewField", dbDate)
End With
.TableDefs.Append tdfNewTable
Print information about the new TableDef object.
DateOutput "After creating a new table", tdfNewTable
Delete new TableDef object because this is a
demonstration.
.TableDefs.Delete tdfNewTable.Name
.Close
End With
End Sub
Function DateOutput(strTemp As String, _
tdfTemp As TableDef)
Print DateCreated and LastUpdated information about
specified TableDef object.
Debug.Print strTemp
Debug.Print " TableDef: " & tdfTemp.Name
Debug.Print " DateCreated = " & _
tdfTemp.DateCreated
Debug.Print " LastUpdated = " & _
tdfTemp.LastUpdated
Debug.Print
End Function | |
|
| |
|
автор: osmor (30.11.-1 в 00:00) |
|
| ? CurrentDb.Containers("Forms").Documents("форма").DateCreated и еще
http://hiprog.com/access/default.asp?Chapter=109#9 | |
|
| |
|
автор: osmor (30.11.-1 в 00:00) |
|
| сори, это для формы. Вот как надо ? currentdb.TableDefs("Таблица").DateCreated
? currentdb.TableDefs("Таблица")..LastUpdated | |
|
| |
|
автор: evg22 (30.11.-1 в 00:00) |
|
| Благодарность и разочарование Спасибо.
Жаль, что с LastUpdated не складывается... | |
|
| |
|
автор: osmor (30.11.-1 в 00:00) |
|
| что не складывается? кстати у меня тут ошибка. надо currentdb.TableDefs("Таблица").LastUpdated | |
|
| |
|
автор: evg22 (30.11.-1 в 00:00) |
|
| Еще раз спасибо, но разочарования иного характера Привет Osmor!
Спасибо за советы. Опечаточку с двумя точками я учел.
Код то рабочий. Но, вот в чем соль: - если таблицу программно изенять все тип-топ. А ручками изменил данные или внес/удалил новые - дата (LastUpdated) не меняеться.
А мне надо было отслеживать несанкционированные изменения в таблице... | |
|
| |
|
автор: osmor (30.11.-1 в 00:00) |
|
| И не должно, LastUpdated показывает измения объекта (TableDef) а не данных в нем 1. Все изменения в дынные вносить только через формы.
2. На события формы регистрировать изменения данных записывая действия в отдельную таблицу. | |
|
| |
|
автор: Serge_Gavrilov (30.11.-1 в 00:00) |
|
| Re: Небольшое добавление В MS Access 2002+ можно использовать:
CurrentData.AllTables("ИмяТаблицы").DateCreated
CurrentData.AllTables("ИмяТаблицы").DateModified
И не только для таблиц, а для любого AccessObject | |
|
| |