#138 AccessのタイトルバーをVBAから変更する方法 VBA

Accessのタイトルバーには、通常は「Microsoft Access」、あるいは起動時の設定の[アプリケーション タイトル]に設定されている文字列が表示されます。
Accessのタイトルバー

カスタムアプリケーションで固定的なタイトルを設定する場合には、マニュアルで「起動時の設定」を行えば充分でしょう。しかしもし、動的に変更したいという場合には、VBAの次のようなコードを使います。

サンプルプロシージャ:
Sub SetAppTitle(strNewTitle As String)
  Dim dbs As Database
  Dim prp As Property
  Const cstrPrpName = "AppTitle"

  On Error GoTo Err_SetAppTitle

  Set dbs = CurrentDb

  'Databaseの"AppTitle"プロパティを更新
  '(そのプロパティがなければエラールーチンへ)
  dbs.Properties(cstrPrpName) = strNewTitle

  'タイトルバーをリフレッシュ
  RefreshTitleBar

Exit_SetAppTitle:
  Exit Sub

Err_SetAppTitle:
  If Err.Number = 3270 Then
    '"AppTitle"プロパティが見つからないときはそのプロパティを作成する
    '(これは起動時の設定がされていないときに発生します)
    Set prp = dbs.CreateProperty(cstrPrpName, dbText, strNewTitle)
    dbs.Properties.Append prp
    Resume Next
  End If
  Resume Exit_SetAppTitle:

End Sub

使用例:
SetAppTitle "My データベース"
実行後のタイトルバー
※このサンプルプロシージャで設定されたタイトルは、最終的に「起動時の設定」として保存されます。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved