Свойство Application.AppTitle (Access)

Используйте свойство AppTitle для указания текста, отображаемого в заголовке окна базы данных приложения. Например, свойство AppTitle можно использовать, чтобы указать, что строка "Inventory Control" будет отображаться в заголовке окна приложения базы данных "Управление запасами".

Синтаксис

выражение. Название приложения

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

Setting

Свойство AppTitle — это строковое выражение, содержащее текст, который отображается в строке заголовка.

Проще всего задать это свойство с помощью параметра "Название приложения " в диалоговом окне "Параметры Access ". Это свойство также можно задать с помощью макроса или Visual Basic.

Чтобы задать свойство AppTitle с помощью макроса или Visual Basic, необходимо сначала задать свойство один раз в диалоговом окне "Параметры Access " или создать свойство следующими способами:

• В базу данных Microsoft Access его можно добавить с помощью метода CreateProperty и добавить в коллекцию Properties объекта базы данных .

• В проекте Microsoft Access (ADP) его можно добавить в коллекцию AccessObjectProperties объекта CurrentProject с помощью метода Add .

Необходимо также использовать метод RefreshTitleBar , чтобы сделать все изменения видимыми немедленно.

Примечания

Если это свойство не задано, в заголовке окна отображается строка "Microsoft Access".

Это свойство вступает в силу сразу после его установки в коде (если код содержит метод RefreshTitleBar ) или после закрытия диалогового окна "Параметры Access ".

Пример

В следующем примере показано, как изменить свойства AppIcon и AppTitle в базе данных Microsoft Access. Если свойства еще не заданы или не созданы, их необходимо создать и добавить в коллекцию Properties с помощью метода CreateProperty .

Sub cmdAddProp_Click() 
 Dim intX As Integer 
 Const DB_Text As Long = 10 
 intX = AddAppProperty("AppTitle", DB_Text, "My Custom Application") 
 intX = AddAppProperty("AppIcon", DB_Text, "C:\Windows\Cars.bmp") 
 CurrentDb.Properties("UseAppIconForFrmRpt") = 1 
 Application.RefreshTitleBar 
End Sub 
 
Function AddAppProperty(strName As String, _ 
 varType As Variant, varValue As Variant) As Integer 
 Dim dbs As Object, prp As Variant 
 Const conPropNotFoundError = 3270 
 
 Set dbs = CurrentDb 
 On Error GoTo AddProp_Err 
 dbs.Properties(strName) = varValue 
 AddAppProperty = True 
 
AddProp_Bye: 
 Exit Function 
 
AddProp_Err: 
 If Err = conPropNotFoundError Then 
 Set prp = dbs.CreateProperty(strName, varType, varValue) 
 dbs.Properties.Append prp 
 Resume 
 Else 
 AddAppProperty = False 
 Resume AddProp_Bye 
 End If 
End Function

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

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