Application.RefreshTitleBar メソッド (Access)
RefreshTitleBar メソッドは、Visual Basic で AppTitle または AppIcon プロパティが設定された後で Microsoft Office Access タイトル バーを更新します。
構文
式。RefreshTitleBar
expressionApplication オブジェクトを 表す変数。
戻り値
なし
解説
たとえば、AppTitle プロパティを使って、Microsoft Office Access タイトル バーの標題を "データベースに接続" に変更できます。
AppTitle プロパティと AppIcon プロパティを使用すると、Access タイトル バーに表示されるタイトルとアイコンを変更して、アプリケーションをカスタマイズできます。 これらのプロパティを設定した後、タイトル バーは自動的に更新されません。 タイトル バーへの変更を表示するには、 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 のサポートおよびフィードバックを参照してください。