Application.RefreshTitleBar 方法 (Access)

在 Visual Basic 中設定好 AppTitle 或 AppIcon 屬性之後， RefreshTitleBar 方法會重新整理 Microsoft Access 的標題列。

語法

運算式。RefreshTitleBar

expression 代表 Application 物件的變數。

傳回值

無

註解

例如，您可以藉由設定 AppTitle 屬性成 「 連絡人資料庫 」 變更 Microsoft Access 標題列中的標題。

AppTitle和AppIcon屬性可讓您藉由變更 [存取] 標題列中顯示的標題和圖示來自訂應用程式。 在您設定這些屬性之後，不會自動更新標題列。 若要顯示標題列的變更，您必須使用 RefreshTitleBar 方法。

注意事項

在 Access 資料庫中，您可以從代表目前資料庫的Properties 集合中刪除AppTitle和AppIcon屬性，將其重設為預設值。 刪除這些屬性之後，您必須使用 RefreshTitleBar 方法將 Access 預設值還原至標題列。

如果 AppIcon 屬性指定的圖示路徑無效，當您呼叫此方法時，標題列中不會反映任何變更。

範例

下列範例會設定目前資料庫的 AppTitle 屬性並套用 RefreshTitleBar 方法來更新標題列。

Sub ChangeTitle() 
 Dim obj As Object 
 Const conPropNotFoundError = 3270 
 
 On Error GoTo ErrorHandler 
 ' Return Database object variable pointing to 
 ' the current database. 
 Set dbs = CurrentDb 
 ' Change title bar. 
 dbs.Properties!AppTitle = "Contacts Database" 
 ' Update title bar on screen. 
 Application.RefreshTitleBar 
 Exit Sub 
 
ErrorHandler: 
 If Err.Number = conPropNotFoundError Then 
 Set obj = dbs.CreateProperty("AppTitle", dbText, "Contacts Database") 
 dbs.Properties.Append obj 
 Else 
 MsgBox "Error: " & Err.Number & vbCrLf & Err.Description 
 End If 
 Resume Next 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。