起動時に表示するフォームを設定する : Access

起動時に表示するフォームを設定する： Access

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

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

Home　

Tips　

メニュー

■ Access実行画面

株式売買データベースソフトです。
通常の起動時には、下のようにデータベースウィンドウが表示されます。
起動と同時に使用するフォームを開くことができれば、大変便利です。

プログラムで起動時に、株式のフォームが開くように設定しました。
自動的にFrm株式が開いた画像

■ Access VBA 実行コード

Option Compare Database
Option Explicit

'起動時に、Frm株式フォームを開く
Private Sub MySetPrpty()
    Dim db As Database
    Dim pr As DAO.Property

    Set db = CurrentDb
On Error GoTo Err
    '開くフォームの指定
    db.Properties("StartupForm") = "Frm株式"
    Set db = Nothing
    Exit Sub

Err:
    '起動時の設定がまだ設定されていない場合、エラーが発生するのでプロパティを作成し設定します。
    Set pr = db.CreateProperty("StartupForm", dbText, "Frm株式")
    db.Properties.Append pr
    Set pr = Nothing
    Set db = Nothing
End Sub

Private Sub Form_Load()
    MySetPrpty
End Sub

Home　

Tips　

メニュー