タイトル : Re^4: ACCESS未インストール環境でのレポート印刷について 投稿日 : 2014/07/08(Tue) 19:38 投稿者 : 飼い猫
魔界の仮面弁士様 ご回答ありがとうございます。 早速コーディングを変更致しました。 Dim processId As Long 'ACCESSをシェル関数で起動 processId = Shell("C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE C:\PG\SY.mdb", vbNormalFocus) ←※1 Dim ac As Object ac = GetObject(, "MSACCESS.EXE") ←※2 ※3 ac.DoCmd.OpenReport "価格表", 0 ' データベースを閉じる ac.CloseCurrentDatabase ac.Quit shell関数とgetobject関数は使用したことがない為、苦戦しております。 ※1のshell関数での起動の仕方は間違っておりませんでしょうか。(処理時にACCESSが起動します) ※2のgetobjectの記述方法がどうしてもわかりません。どのように記述すればよいか教えていただけないでしょうか。 ※3ではレポートを印刷したいのですがこの記述でいけるのでしょうか。 基本的なことばかり聞いてしまい申し訳ないのですがよろしくお願いします。 |