Access レポートを表示する
　
　目的

Microsoft Access 8.0 Object Library を使用して Visual Basic から Access レポートを表示します。

　ポイント

Visual Basic から Access のレポートを出力するにはアプリケーションとして Microsoft Access がインストールされている必要があります。 MDB ファイルのデータ部分（テーブル・クエリー）を操作する場合は Microsoft DAO Object Library を使用します。

　
　サンプルコード


Option Explicit

Dim ac As Object ' Access.Application

Private Sub cmdGO_Click()

    ' Microsoft Access 8.0 Object Library
    Set ac = CreateObject("Access.Application")
    
    ' データベースを開く
    ac.OpenCurrentDatabase "C:\Program Files\DevStudio\VB\NWIND.MDB"
    
    ' アプリケーションを表示する
    ac.Visible = True
    
    ' 名前を指定してレポートを開く
    ac.DoCmd.OpenReport "Catalog", 2 'acViewPreview
    
    ' レポートの最大化
    ac.DoCmd.Maximize
    
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    ' データベースを閉じる
    ac.CloseCurrentDatabase
    
    ' Access アプリケーションの終了
    ac.Quit

End Sub

ソースのダウンロードはありません。