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

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

Синтаксис

expression. AppTitle

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

Setting

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

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

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

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

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

Кроме того, необходимо использовать метод RefreshTitleBar , чтобы немедленно сделать все изменения видимыми.

Замечания

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

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

Пример

В следующем примере показано, как изменить свойства 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 и обратная связь.