投稿日 | : 2004/06/16(Wed) 13:51 |
投稿者 | : kamurin |
Eメール | : kamurin@hotmail.com |
URL | : |
タイトル | : Accessの入って無い環境で |
Accessの入っていない環境にインストールした場合に下記の処理でエラーになります。
Accessのインストール以外で解決できないでしょうか?
'Accessファイルを開く
Set oleAccess = Nothing
Set oleAccess = New Access.Application
oleAccess.OpenCurrentDatabase DbName, False
'Accessのレポートを開く
Select Case PrintMode
Case 0 'Preview
oleAccess.DoCmd.OpenReport ReportName, acPreview
oleAccess.DoCmd.Maximize
oleAccess.Visible = True
Case 1 'Print
oleAccess.DoCmd.OpenReport ReportName, acNormal
oleAccess.CloseCurrentDatabase
Set oleAccess = Nothing
Case Else
MsgBox "モードが誤っています。", vbOKOnly, "AcPrint Ver.1.1"
oleAccess.CloseCurrentDatabase
Set oleAccess = Nothing
AcPrint = False
End Select