Метод Application.RefreshTitleBar (Access)

Метод RefreshTitleBar обновляет строку заголовка Microsoft Access после установки свойства AppTitle или AppIcon в Visual Basic.

Синтаксис

expression. RefreshTitleBar

выражение: переменная, представляющая объект Application.

Возвращаемое значение

Отсутствует

Примечания

Например, можно изменить заголовок в строке заголовка Microsoft Access на "Contacts Database", задав свойство AppTitle .

Свойства AppTitle и AppIcon позволяют настроить приложение, изменив заголовок и значок, которые отображаются в строке заголовка Access. Строка заголовка не обновляется автоматически после установки этих свойств. Чтобы изменить строку заголовка, необходимо использовать метод RefreshTitleBar .

Примечание.

В базе данных Access можно сбросить свойства AppTitle и AppIcon до значений по умолчанию, удалив их из коллекции Properties, представляющей текущую базу данных. После удаления этих свойств необходимо использовать метод RefreshTitleBar , чтобы восстановить значения Access по умолчанию в строке заголовка.

Если путь к значку, указанному свойством AppIcon , недопустим, изменения не будут отражены в строке заголовка при вызове этого метода.

Пример

В следующем примере задается свойство AppTitle текущей базы данных и применяется метод RefreshTitleBar для обновления строки заголовка.

Sub ChangeTitle() 
 Dim obj As Object 
 Const conPropNotFoundError = 3270 
 
 On Error GoTo ErrorHandler 
 ' Return Database object variable pointing to 
 ' the current database. 
 Set dbs = CurrentDb 
 ' Change title bar. 
 dbs.Properties!AppTitle = "Contacts Database" 
 ' Update title bar on screen. 
 Application.RefreshTitleBar 
 Exit Sub 
 
ErrorHandler: 
 If Err.Number = conPropNotFoundError Then 
 Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database") 
 dbs.Properties.Append obj 
 Else 
 MsgBox "Error: " & Err.Number & vbCrLf & Err.Description 
 End If 
 Resume Next 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.