| |
 23 Кб. |
|
| | Как программно изменить значения диалогового окна Свойства базы данных , того что вызывается из меню Файл (см. прикрепленный файл)? В Word, Excel знаю, а здесь тупик. | |
| |
| |
| |
|
|
| | Мож вот это
Application.CurrentDB.Properies!AppTitle | |
| |
| |
| |
|
|
| | А вот анатолий что говорит на этот счёт
Вопрос: В меню [Файл]/[Свойства базы данных], есть много полей (например, на закладке Документ: Название, Тема и т.п.). Как их прочитать программно?
Совет:
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Title")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Subject")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Author")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Manager")
currentdb.Containers("databases").Documents("SummaryInfo").Properties("Company")
Но если поле не заполнено, то свойства нет.
Serge_Gavrilov
Sub DocumentProperties()
On Error Resume Next
Dim db As Object 'Это что бы не использовать библиотеку DAO, иначе Dim db As Database
Set db = CurrentDb
With db.Containers("databases").Documents("SummaryInfo")
Debug.Print .Properties("Title")
Debug.Print .Properties("Subject")
Debug.Print .Properties("Author")
Debug.Print .Properties("Manager")
Debug.Print .Properties("Company")
End With
Set db = Nothing
End Sub
| |
| |
| |
| |
|
|
| | Про AppTitle и AppIcon я знал.
Мне как раз нужно было
currentdb.Containers("databases").Documents("SummaryInfo").Properties("...")
|
А то что, если поле не заполнено, то свойства нет , так его вроде можно создать. Вообщем, буду разбиратьсья, теперь хоть знаю в какую сторону "копать".
Спасибо. | |
| |
| |
| |
|
|
| | >currentdb.Containers("databases").Documents("SummaryInfo").Properties("Company")
>Но если поле не заполнено, то свойства нет.
Все верно.
Вот это работает.
Sub DocumentProperties()
On Error Resume Next
Dim db As Database
Dim ctr As Container
Dim doc As Document
Dim prp As Property
Set db = CurrentDb
Set ctr = db.Containers!Databases
Set doc = ctr.Documents!SummaryInfo
With doc
Set prp = .CreateProperty("Author", dbText, "Author")
.Properties.Append prp
Set prp = .CreateProperty("Company", dbText, "Universe")
.Properties.Append prp
Set prp = .CreateProperty("Hyperlink Base", dbText, "http://www.universe.com")
.Properties.Append prp
.Properties("Author") = "Author"
.Properties("Company") = "Universe"
.Properties("Hyperlink Base") = "http://www.universe.com"
.Properties("Title") = "Salvation"
Debug.Print .Properties("Author")
Debug.Print .Properties("Company")
Debug.Print .Properties("Hyperlink Base")
Debug.Print .Properties("Title")
End With
Set db = Nothing
End Sub
|
И вот что писали об этом MS (ведь переводили же когда-то они и на русский язык):
Объект Document SummaryInfo обеспечивает доступ в программах к свойствам, содержащим
общие сведения о документе, в том числе, Title (Название), Subject (Тема), Author (Автор),
Keywords (Ключевые слова), Comments (Заметки), Manager (Должность), Company
(Организация), Category (Группа) и Hyperlink Base (База гиперссылки). Значения всех этих
свойств могут быть также заданы на вкладке Документ в диалоговом окне Свойства: база
данных, которое открывается командой Свойства в меню Файл.
Для того чтобы задать значения этих свойств в программе Visual Basic, необходимо
предварительно создать эти свойства и добавить их в семейство Properties объекта
Document SummaryInfo, если эти свойства ранее не были определены в диалоговом окне
Свойства: база данных. После создания этих свойств становятся возможными явные ссылки
на них через семейство Properties. В следующем примере переменная doc является
объектной переменной, представляющей объект Document SummaryInfo.
|
| |
| |
| |
| |
|
|
| |
Все верно.
Вот это работает.
|
Но для adp это не будет работать.
И вообще средствами Access эти свойства для adp невозможно ни прочитать, ни изменить | |
| |
| |
