スキルアップ・問題解決なら、モーグにおまかせ！

[ツール]メニューの[オプション]をクリックすると表示されるオプションダイアログボックスの現在の値を取得するには、ApplicationオブジェクトのGetOptionメソッドを使用します。
また、設定する場合は、SetOptionメソッドを使用します。

●取得方法●
下記は、GetOptionメソッドを使って、[全般]タブに有る
[既定のデータベースフォルダ]の値を取得します。

Sub Sample()
    Dim optSetting As Variant
    
    optSetting = _
        Application.GetOption("Default Database Directory")
    
    Debug.Print optSetting
    
End Sub

このプロシージャを実行すると、イミディエイトウィンドウにフォルダ名（例えば「C:\My Documents\」）が記述されます。

●設定方法●
下記は、SetOptionメソッドを使って、[全般]タブに有る[既定のデータベースフォルダ]の値を設定します。

Sub Sample()

    Application.SetOption _
        "Default Database Directory", "C:\moug\"

End Sub

*この他のオプションについては、ヘルプの「VisualBasicを使ったオプションの設定」を参考にしてください。