Microsoft Access Club >Access一日一見 >このページ >次頁 <前項  サイト内検索


既定のデータベース フォルダ - オプション設定をVBAで操作する



Accessのメニューバーにある下記のオプション設定をVBAで操作する方法があります。今回は、既定のデータベース フォルダのオプション機能の設定をプロシージャで制御する方法を紹介します。

オプション画面

既定のデータベース フォルダ

既定のフォルダーとは、必要に応じてAccessが保存操作を行うときのフォルダー をいいます。ご自分のお気に入りフォルダーに指定しておくと便利です。なお、VBAで操作できるのは、ドライブパスの変更だけです。

これを実現するためには、下記の2つのメソッドと1つの引数を使います。

  1. GetOptionメソッド
    状態を取得し表示させることもできます。
  2. SetOptionメソッド
    設定値を更新させることができます。
  3. Default Database Directory
    引数です。
留意事項

但し、この設定は他のPCでも引き継がれますので、そのPCに該当フォルダーがない場合は、エラーメッセージが表示されてしまいます。ご注意の程を・・・。

一例
  1. 以下のように既定フォルダーを変更します。
    当然、EドライブのTESTフォルダーは存在しています、この段階では・・・。
  2. Accessを閉じます。
  • 既定値 → C:\Documents and Settings\akira.AKIRA-1\My Documents\
  • 設定値 → E:\TEST\
  1. TESTフォルダーを削除します。
  2. Accessを立ち上げると、下記のエラーメッセージが表示されます。

サンプルプロシージャの作成

何れでも利用できるようにFunctionプロシージャを作成します。サンプルでは、「WindowsAPIを用いて出力フォルダーを開く方法:SampleFile079」 を利用してフォルダー選択のダイアログを表示させています。

Function OptionFolderSet()

On Error GoTo エラー

    Dim strMag As String
    Dim varGet As Variant 'バリアント型の変数を定義する。
    Dim varSet As Variant 'バリアント型の変数を定義する。
    
    'オプション機能「ファイルを閉じる時に最適化」設定を操作する。
    varGet = Application.GetOption("Default Database Directory")
        
    strMag = "「既定のデータベース フォルダ」 設定は、" & _
             "現在 " & varGet & " です。" & _
             vbNewLine & "変更する場合はOKをクリックして下さい"
        
    If 1 = MsgBox(strMag, 17) Then
    
        MsgBox "出力フォルダーを指定して下さい。"
        
        'WindowsAPIを用いて出力フォルダーを開く方法:SampleFile079
        'このライブラリーを利用しています。
        varSet = GetTransfer
        
        '戻り値が空白でなければ設定する。
        If Not IsNull(varSet) Then
        
            Call Application.SetOption("Default Database Directory", varSet)
            
        End If
                
    End If
    
Exit Function

エラー:

    MsgBox "何か予期せぬエラーが発生しました。" & vbNewLine & _
            Err.Number & vbNewLine & _
            Err.Description, 16, "管理者"
    Exit Function

            
End Function
実行結果

このプロシージャをイミディエイトウィンドウで実行すると、下記のようにメッセージボックスが表示されます。

関連ページ

2003/10/30

ページの先頭へ 前ページへ戻る

 


既定のデータベース フォルダ - オプション設定をVBAで操作する


-Microsoft Access Club-

アメリカ合衆国やヨーロッパのデータセンターからcPanelレンタルサーバーをご提供します。お支払いは日本国内の銀行振込で...。1ヵ月契約からOKです。
アメリカ合衆国やヨーロッパからcPanelレンタルサーバー。
お支払いは日本国内の銀行振込。
最短契約期間は1ヵ月契約からOKです。