Accessアプリケーションの配布を行う場合には特に、起動時の設定を行いユーザーに対し分かり易くする必要があります。
設定は、Propertiesコレクションの、各プロパティに指定します。
起動時の設定を無視させるには、Shiftキーを押しながらソフトを開いてください。
■ Access起動時の設定のプロパティ
- アプリケーションのタイトル : AppTitle
- アプリケーションのアイコン : AppIcon
- フォームの表示 : StartupForm
- データベースウィンドウの表示 : StartupShowDBWindow
- ステータスバーの表示 : StartupShowStatusBar
- メニューバー : StartupMenuBar
- ショートカットメニューバー : StartupShortcutMenuBar
- すべてのメニューの表示 : AllowFullMenues
- 既定のショートカットメニュー : AllowShortcutMenus
- 組み込みツールバー : AllowBuiltinToolbars
- ツールバー/メニューの変更 : AllowToolbarChanges
- エラー発生時にコードを表示 : AllowBreakIntoCode
- ショートカットキーを有効にする : AllowSpecialKeys
■ 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("StartupShowDBWindow") = False
Set db = Nothing
Exit Sub
Err:
'起動時の設定がまだ設定されていない場合、エラーが発生するのでプロパティを作成し設定します。
Set pr = db.CreateProperty("StartupShowDBWindow", dbText, "False")
db.Properties.Append pr
Set pr = Nothing
Set db = Nothing
End Sub
Private Sub Form_Load()
MySetPrpty
End Sub