tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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ではレポートを印刷したいのですがこの記述でいけるのでしょうか。

基本的なことばかり聞いてしまい申し訳ないのですがよろしくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。