Ｐａｇｅ 127 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ｍｄｂの居場所を得る方法は？ てと 02/12/6(金) 14:49 ┗Re:バージョンは？ イケガミ 02/12/6(金) 15:07 ┗Re:バージョンは？ てと 02/12/6(金) 15:26 ┗Re:バージョンは？ Hirofumi 02/12/6(金) 19:06 ┗Re:バージョンは？ てと 02/12/6(金) 20:27 ─────────────────────────────────────── ■題名 ： ｍｄｂの居場所を得る方法は？ ■名前 ： てと ■日付 ： 02/12/6(金) 14:49 -------------------------------------------------------------------------
| ＥｘｃｅｌのＶＢＡでは自分自身がどのＰａｔｈに居るのかを Activeworkbook.Path で知ることができますが、Ａｃｃｅｓｓの場合はどうすれば良いでしょうか。 CurDir関数だと思って実行してみたのですが、これではないし、ヘルプを見ても分かりませんでした。 宜しくお願いいたします。 |
| >ＥｘｃｅｌのＶＢＡでは自分自身がどのＰａｔｈに居るのかを Activeworkbook.Path >で知ることができますが、Ａｃｃｅｓｓの場合はどうすれば良いでしょうか。 >CurDir関数だと思って実行してみたのですが、これではないし、ヘルプを見ても分かりませんでした。 バージョンによって回答が変わりますので、バージョンを記入してください。 Access2000以降であれば、 CurrentProject.Path で取得することができます。 |
| 基本的な情報が抜けていました。 使用しているバージョンは Ａｃｃｅｓｓ９７ です。 |
| >基本的な情報が抜けていました。 >使用しているバージョンは Ａｃｃｅｓｓ９７ です。 Access97には、Pathを直接的に知るものは無い見たいですね 私も、必要になって、こんな物を作って使って見ようとしている所です まちっがっていたらゴメンナサイ Public Function ThisMdbPath() As String Dim strValue As String Dim lngPos As Long Dim lngValue As Long strValue = CurrentDb.Name lngPos = InStr(1, strValue, "\", vbBinaryCompare) Do Until lngPos = 0 lngValue = lngPos lngPos = InStr(lngValue + 1, strValue, "\", vbBinaryCompare) Loop ThisMdbPath = Left(strValue, lngValue - 1) End Function |
| ▼Hirofumi さん： >Access97には、Pathを直接的に知るものは無い見たいですね >私も、必要になって、こんな物を作って使って見ようとしている所です >まちっがっていたらゴメンナサイ ありがとうございました。 バッチリです！ Execlの複数のデータをインポートするプログラムを作っていたのですが、他のパソコンでも使いたいという要件が有ったため、「可搬性」を考慮するにはこれが必要でした。 同じOffice97でもExcelで考えられている機能がAccessには無いというのは、どういうことなのか不思議ですが、関数を作って対応するというのは凄いですね。 大いに利用させていただきたいと思います。 ありがとうございました。 |