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

Форум: MS ACCESS

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

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

 
 

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

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

тема: Как получить дату создания таблицы?
 
 автор: 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

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