FC2ブログ
開発メモ

カテゴリ:開発メモ の記事一覧

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Accessから別のmdbを起動する

imagesCAHPD09Q.jpg
ちょこちょこ、ツールを作っているのでメニューで統合してみようと考えて作り始めたのですが。
フォームにボタンを配置する際のウィザードでmdbを指定しました。実行したら。
「引数が誤っています。」とエラーで起動できません。
DOSコマンドのbatファイルは問題なく実行できます。
おかしいな~と悩んで調べた結果、 

Dim Rc as string
Rc = Shell("MSACCESS.exe <目的のmdbのパス>", 1)

と記述するらしいです。
MSACCESS.exeのフルパスが必要です。
オンコードじゃプロっぽくないのでMSACCESSのインストールされているパスを調べましょう。

 currentProject.Path

でmdbのパスは簡単に取得できるのですが、Accessは、AplicationオブジェクトにPathプロパティが無いんです。
そこで、調べること2時間、ありました。

 application.SysCmd(acSysCmdAccessDir)

これで、解決!

Dim Rc as String
Dim strAccessPath as String
Dim srtFilePath as Sring
'ここでは、取得後が前提です。

strAccessPath = application.SysCmd(acSysCmdAccessDir) & "MSACCESS.exe"
Rc = Shell(strAccessPath & " " & srtFilePath, 1)


こんな感じ。

MS Officeツールと無料ソフトで仕

スポンサーサイト
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。