アプリケーションの名前は、メニューの「ツール」-「起動時の設定」で可能ですが、Access VBAで設定してみます。
設定するには、PropertiesコレクションのAppTitleプロパティに指定します。
■ Access実行画面
株式売買ソフトの入力画面です。
設定する前は、タスクバーには「Microsoft Access」と表示されています。
プログラムでアプリケーションタイトルを設定しました。
タスクバーには設定どうり「株式売買データベース」と表示されました。
■ Access VBA 実行コード
Option Compare Database
Option Explicit
'アプリケーションのタイトルを設定
Private Sub MySetPrpty()
Dim db As Database
Dim pr As DAO.Property
Set db = CurrentDb
On Error GoTo Err
db.Properties("AppTitle") = "株式売買データベース"
Set db = Nothing
Exit Sub
Err:
'起動時の設定がまだ設定されていない場合、エラーが発生するのでプロパティを作成し設定します。
Set pr = db.CreateProperty("AppTitle", dbText, "株式売買データベース")
db.Properties.Append pr
Set pr = Nothing
Set db = Nothing
End Sub
Private Sub Form_Load()
MySetPrpty
End Sub