Application.AppTitle プロパティ (Access)

AppTitle プロパティを使用して、アプリケーション データベースのタイトル バーに表示されるテキストを指定します。 たとえば、 AppTitle プロパティを使用して、在庫管理データベース アプリケーションのタイトル バーに "在庫管理" という文字列を表示できます。

構文

式。AppTitle

expressionApplication オブジェクトを 表す変数。

Setting

AppTitle プロパティの設定値は、タイトル バーに表示されるテキストを含む文字列式です。

このプロパティを設定する最も簡単な方法は、[アクセス オプション] ダイアログ ボックスの [アプリケーション タイトル] オプションを使用することです。 マクロまたは Visual Basic を使用して、このプロパティを設定することもできます。

マクロまたは Visual Basic を使用して AppTitle プロパティを設定するには、[ Access のオプション] ダイアログ ボックスでプロパティを設定するか、次の方法でプロパティを作成しておく必要があります。

• Access データベースでは、 CreateProperty メソッドを使用してプロパティを作成し、 Database オブジェクトの Properties コレクションに追加します。

• Microsoft Access プロジェクト (.adp) では、Add メソッドを使用して CurrentProject オブジェクトの AccessObjectProperties コレクションに追加できます。

また、RefreshTitleBar メソッドを使用して、変更をすぐに表示する必要があります。

注釈

AppTitle プロパティが設定されていない場合は、タイトル バーに "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 のサポートおよびフィードバックを参照してください。