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

Форум: MS ACCESS

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

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

 
 

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

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

тема: t1 = [CurrentDb].Containers("databases").Documents(0).Properties(7).Value
 
 автор: сергей   (15.12.2006 в 14:32)   личное сообщение
 
 

ВСЕМ ДОБРЫЙ ДЕНЬ!
с помощью этой функции я получаю последнюю дату обновления базы.
хотелось бы увидеть количество обновлений как-то также.
вообще как можно увидеть весь список этих пропертис. просидел в хелпе час - не нашел!
глобальная задача - сделать так чтобы через какое-то время (лучше кол-во операций) прога перестала работать.
СПАСИБО

  Ответить  
 
 автор: osmor   (15.12.2006 в 15:20)   личное сообщение
 
 

Получить список всех пропертей документа можно так
Public Function propdb()
On Error Resume Next
Dim db As DAO.Database
Dim pr As DAO.Property
Dim doc As Document
Set db = CurrentDb
Set doc = db.Containers("databases").Documents(0)
For Each pr In doc.Properties
    Debug.Print pr.Name, pr.Value
Next
End Function

Так же можно создать свое свойство
см. Help по CreateProperty

  Ответить  
 
 автор: сергей   (15.12.2006 в 17:17)   личное сообщение
 
 

спасибо OSMOR
увидел список - то чего надо отсутсвует!
сделал свой property "UpdateCount" - все работает!
спасибо

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