共用方式為

Access) (Application.AppTitle 屬性

  • 發行項

使用 AppTitle 屬性來指定出現在應用程式資料庫標題列中的文字。 例如，您可以使用 AppTitle 屬性指定將字串「存貨控制」顯示於「存貨控制」資料庫應用程式的標題列中。

語法

運算式。AppTitle

expression 代表 Application 物件的變數。

設定

AppTitle 屬性為字串運算式，其中包含欲顯示於標題列中的文字。

設定此屬性最簡單的方式是使用 [存取選項] 對話方塊中的 [應用程式標題] 選項。 您也可以使用宏或 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 支援與意見反應。