自作したソフトに名前をVBAで付ける : Access

アプリケーションの名前は、メニューの「ツール」-「起動時の設定」で可能ですが、Access VBAで設定してみます。

設定するには、PropertiesコレクションのAppTitleプロパティに指定します。


BackHome BackTips Backメニュー

■ 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

BackHome BackTips Backメニュー

Copyright(C) FeedSoft