| |
へらぶなと申します。
質問をAccess質問箱よりこちらに移動させていただきました。
よろしくお願いいたします。
１．やりたいこと
ExcelからAccessを起動したい。
Access起動時には、Excelから渡された引数を元に
Access起動時に起動する初期フォームを切り替えたい。
そのとき、
a) 目的のAccessが起動していないときは、Shell関数を
用いて、コマンドライン引数を用いて起動する。
このコマンドライン引数を元に表示するフォームを切り替える。
b) 目的のAccessが起動しているときは、
OLEオートメーションを使用して、
オブジェクトにセットする。
この場合、フォームの起動はDoCmdを用いる。
２．わからないこと
a)目的のAccessが起動しているかを確認する方法。
b)起動していることが分かったとして、OLEオートメーションの
オブジェクトにどうやってセットするのか？
３．調べたこと
a)FindWindow APIを用いれば、ウィンドウ名さえわかれば
起動しているかどうか判断できる。
b)Accessの場合、Shell関数を実行した分だけプロセスが
立ち上がる（２重、３重起動が可能である）
c)２重起動を防止しつつ、かつ目的のフォームを起動するには、
OLEオートメーションが最適なのではないか？
４．制限事項
a)Access側の２重起動はしたくない。
b)Accessを閉じて開いて、ではなく表示するフォームだけ切り替えたい。
c)FindWindowでAccessのウィンドウ名を拾うとき、
開いているフォームによってウィンドウ名が異なる。
よって、FindWindowでは不適切。
****ここより、YU-TANGさんへの回答
YU-TANG さんへ
お返事ありがとうございます、へらぶなと申します。
a)（要は CommandLine に情報が乗ってこない場合) は、これでは判別できません。に関して
すいません、説明が一部誤っておりました。
実際には、shell関数を用いた起動時にも、コマンドライン引数を
省略して起動することもあります。
引数を指定せずに起動した場合、メインメニューのみが立ち上がり、
引数を指定して実行するときには、メインメニュー
＋引数に応じたサブ画面という構成で起動するようになっています。
このため、コマンドライン引数から情報を得ても、
必ずしもそのmdbを特定できるとは限らないのです。
すいません。
b)GetObjectですと以下のようになりますでしょうか？
Set objAcc = GetObject(, "Access.Application")
If (Not objAcc Is Nothing) Then
objAcc.doCmd・・・
End If
↑この方法ですと、２つ以上のmdbが開いているときに、
どのmdbにdoCmdが発行されるかわかりません。
ここまでの疑問点。
１．「この名前のＭＤＢが既に立ち上がっているよ！」
のような、簡易な方法は無い物か。。。
２．b)で、複数のMDBが既に起動している場合でも、
特定のMDBに対してDoCmdが発行できないか。。。
よろしくお願いいたします。
|
|
へらぶな
- 10/1/7(木) 12:22 -
