<Access>基本からVBAまでまるわかり!独学時に使える参考書

【Access】VBAで開いているファイル名を取得する方法

スポンサーリンク
アクセス【Access】

今日はAccessで開いているファイル名を取得するVBAをご紹介します。

私がAccessで開発しているものは日々ガンガン、プログラムを追加しているので、バージョンアップをさせていてファイルもそれに伴いガンガン増えるので、名前をその都度変えています。

『Ver.1.3』などとつけているのですが、それをメニュー部分にも表示させているのですが、毎回変更するのはさすがにめんどくさいので、メニューを開いたときにVBAで取得するように作っています。

今回はボタンを押したときに表示するようなコードになっていますが、『開く時』にイベントを設定すれば、メニューを開いたときにテキストボックスにバージョン(ファイル名)が表示されます。

スポンサーリンク

【Access】ファイル名全部を取得するコード

まずはファイル名すべてを取得します。

Accessのファイル名は『商品マスタ_test』としています。

『CurrentProject.Name』を使用します。

表示したいテキストボックスに『CurrentProject.Name』を入れてボタンを押すと任意のテキストボックスに表示されます。

このようにコードを打つと以下のようにファイル名全部が表示されます。

スポンサーリンク

【Access】ファイル名の一部を取得し表示する

先ほどは『商品マスタ_test.accdb』とすべてのファイル名を取得しましたが、『test』だけ取得したい時は、文字を取り出す関数、『Mid関数』を使用します。

Mid関数の使い方

Mid関数はエクセルでもおなじみの『文字を取り出す関数』です。

Midは文字の途中を取り出す関数です。

=Mid(文字列,開始位置,文字数)

これを当てはめてみると以下のようになります。

=Mid(”商品マスタ_test.accdb”,9,4)

開始位置が9番目からスタートで、4文字抜き出すので上のような式になります。


今回はこの『開始位置』の部分をテキストボックスに当てはめます。

この二つを組み合わせると文字の一部を取り出すことができます。

先ほど『サンプル』というテキストボックスに開いているファイル名をすべて取得しているので、そこからMidを使って文字の一部を取り出します。

解説

最初に『サンプル』テキストボックスにファイル名のすべてを取得し、表示します。

そして、『表示』というテキストボックスに抽出した一部の文字を表示します。


今回は『【Access】VBAで開いているファイル名を取得する方法』でした。

最後までお読みいただきありがとうございました。

【Access】特定の文字が入力されているフィールドの文字色を変更
Accessで見積書を改良しているのですが、基本、空欄は全部削除してデータに保存するようにコードを書いていたので、何点か単価見積をする時に区切りとして空欄をレコードに入れて印刷したいなという意見が出たんですが、そういうプログラムにしていなか...