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


最近使ったファイル - オプション設定をVBAで操作する



Accessのメニューバーにある下記のオプション設定をVBAで操作する方法があります。今回は、最近使ったファイル機能の有効、無効をプロシージャで制御する方法を紹介します。

オプション画面

最近使ったファイル

この機能は、メニューバーにあるメニューをクリックすると、下記のように直近に使用したAccessファイルの一覧が表示されます。

VBAで操作できるのは、下記の範囲です。

  1. オン、オフの切り替えができる。
  2. オンの場合、ファイル数を0から9までの数値で指定できる。

これを実現するためには、下記の2つのメソッドと2つの引数を使うだけです。

  1. GetOptionメソッド
    状態を取得し表示させることもできます。
  2. SetOptionメソッド
    設定値を更新させることができます。
  3. Enable MRU File List
    状態を表す引数です
  4. Size of MRU File List
    ファイル数を表す引数です。

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

何れでも利用できるようにFunctionプロシージャを作成します。

Function OptionFileSet()

On Error GoTo エラー

    Dim strMag As String
    Dim varGet_1 As Variant 'バリアント型の変数を定義する。
    Dim intGet_2 As Variant '整数型の変数を定義する。
    Dim varSet_1 As Variant 'バリアント型の変数を定義する。
    Dim intSet_2 As Variant '整数型の変数を定義する。
    
    varGet_1 = Application.GetOption("Enable MRU File List")
    intGet_2 = Application.GetOption("Size of MRU File List")
    
    Select Case varGet_1
        Case -1: varGet_1 = "オン"
        Case 0: varGet_1 = "オフ"
    End Select
    
    strMag = "「最近使ったファイル数」設定は、" & _
             "現在 " & varGet_1 & " 、ファイル表示数は " & intGet_2 & _
	     " です。" & vbNewLine & "変更する場合はOKをクリックして下さい"
        
    If 1 = MsgBox(strMag, 17) Then
    
        varSet_1 = InputBox("機能をオンにする場合はTrue、オフはFalseを入力。")
        intSet_2 = InputBox("ファイル数を変更する場合は、0から9の数字を入力。")
         '戻り値がTrue、Falseであれば設定する。
        If varSet_1 = True Or varSet_1 = False Then
            Call Application.SetOption("Enable MRU File List", varSet_1)
        End If
         '戻り値が0から9までの数値であれば設定する。
        If intSet_2 >= 0 And intSet_2 <= 9 Then
            Call Application.SetOption("Size of MRU File List", intSet_2)
        End If
        
    End If
Exit Function

エラー:

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

End Function
実行結果

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

関連ページ

2003/10/29

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

 


最近使ったファイル - オプション設定をVBAで操作する


-Microsoft Access Club-

アダルト・ゲーム配信可能なPLESKパネル付属の専用・共有レンタルサーバーを提供しています。
アダルトやゲーム配信が可能です。
全専用/共有レンタルサーバーにPLESKパネルをインストール済み。