次の方法で共有


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 のサポートおよびフィードバックを参照してください。