使用 AppTitle 属性指定在应用程序数据库的标题栏中显示的文本。 例如，可以使用 AppTitle 属性指定在“库存控制”数据库应用程序的标题栏中显示字符串“库存控制”。
语法
表达式。AppTitle
expression：表示 Application 对象的变量。
Setting
AppTitle 属性是一个字符串表达式，它包含标题栏中显示的文本。
设置此属性的最简单方法是使用“Access 选项”对话框中的“应用程序标题”选项。 还可以使用宏或 Visual Basic 设置此属性。
若要使用宏或 Visual Basic 设置 AppTitle 属性，首先必须已经在“Access 选项”对话框中设置过该属性，或者使用以下方式创建该属性：
在 Microsoft Access 数据库中，可以通过使用 CreateProperty 方法添加该属性并将其追加到 Database 对象的 Properties 集合中。
在 Microsoft Access 项目 (.adp) 中，可以使用 Add 方法将其添加到 CurrentProject 对象的 AccessObjectProperties 集合中。
还必须使用 RefreshTitleBar 方法使任何更改立即可见。
备注
如果未设置该属性，则标题栏中将显示字符串“Microsoft Access”。
只要代码包含 RefreshTitleBar 方法) 或关闭了“ 访问选项” 对话框，则在代码 (中设置此属性设置后立即生效。
示例
以下示例演示如何更改 Microsoft Access 数据库中的 AppIcon 和 AppTitle 属性。 如果尚未设置或创建这两个属性，必须先使用 CreateProperty 方法创建这两个属性，并将它们追加到 Properties 集合中。
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 支持和反馈，获取有关如何接收支持和提供反馈的指南。