使用 AppTitle 屬性指定要出現在應用程式資料庫標題列中的文字。 例如，您可以使用 AppTitle 屬性指定將字串「存貨控制」顯示於「存貨控制」資料庫應用程式的標題列中。
語法
運算式。AppTitle
expression 代表 Application 物件的變數。
設定
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 支援與意見反應。