ACCESSのＶＢＡで自動的に保存フォルダを開くには

Question

ACCESS2000を使っています。

現在レポートとして作成したものを
スナップショットに変換し、それを文書の内容ごとに分類されたネットワークフォルダに保存しています。

たとえば
県名が「福岡」であれば、「福岡」というフォルダの中の→「平成15年度」→「○○書」というフォルダに、「佐賀」であれば「佐賀」→「平成15年度」→「○○書」というフォルダに保存しているのです。
現在は「スナップショット」に変換することはマクロを組み、フォームからボタンを押すだけでできるようにしています。
でもできたらその後の処理も自動的に行いたいのです。

イメージは
ボタンを押すをスナップショットに変換して印刷し、さらにレポート内の、たとえば「県名」というコントロール内の文字が「福岡」であれば「福岡」→「平成15年度」→「○○書」というフォルダが自動的に開くというものです。
さらにできたらファイル名に指定したコントロールの文字が自動的に入れば申し分ないのですが。

かなり欲張りだとは思いますが、量の多い仕事なのでとても時間をくっています。
もっと自動化が実現できたらと思ってお尋ねしてみました。

アドバイスよろしくお願いします。
またＶＢＡは初心者なので何卒よろしくお願いします。

human_7 · Accepted Answer

#1です

マクロで「出力ファイル」の欄を空白にされているのですね、なるほど。
では、お聞きしますがフォームでボタンを押す際にはその時点の情報（フォームに有るフィールドの値など）で保存先のフォルダ・ファイル名は特定できますか？
できるなら、先のアドバイスが可能だと思います。

例えばですが、モジュールを作成して適当な関数（Function）を作成します。ここではABCとしましょう。
とりあえずABCの中身はこんな感じにしてみます。
Public ABC() As String
    ABC = "c:\abc.snp"
End Function
これを保存しておいて、マクロで「出力ファイル」の欄に「=ABC()」と指定しておくと、ダイアログが出ずに"c:\abc.snp"にスナップショットファイルが作成されると思います。

後は、条件に応じてABC関数が戻す内容を変えてやれば良いと思います。

例えば、画面のフィールド「項目あ」によって判断したければ、ABC関数を
Public ABC(P_判定項目 As String) As String
    if (P_判定項目 = "福岡") then 
        ABC = "c:\abc福岡.snp"
    else
        ABC = "c:\abcその他.snp"
    end if
End Function
といった感じにし、マクロでは「=ABC([Forms]![画面名]![項目あ])」みたいな感じで指定します。条件が複数あるなら引数を増やすと良いでしょう。

human_7 · Answer

スナップショットを作成するマクロを調べてみました。マクロで出力ファイルを指定するところに関数も指定できます。その関数で状況に応じたファイル名を返せばご期待の事は可能だと思います。
他にも、スナップショットは固定ファイル名で作って、作ったファイルを移動するという手も有ると思います。

ちなみに、現在はどうされているのでしょうか？質問文からはちょっと読みとれませんでした。

最初のアドバイスで作る関数についてですが、恐らく次の様な仕様だと思います。
・レポートの作成と同じ条件を引数として受け取る（画面上のフィールドの場合も有るでしょう）
・引数で受け取った内容を判断して保存先のファイル名を組み立てる。必要に応じてフォルダを作ったりする必要もあるかも知れません。
・組み立てたファイル名を戻り値として返す。

ACCESSのＶＢＡで自動的に保存フォルダを開くには

#1です

スナップショットを作成するマクロを調べてみました。

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング