即効テクニック |
Accessは、ダイナミック データ エクスチェンジ(DDE)機能をサポートします。例えば、AccessにデータベースのレコードをDDEを通じて、WordのドキュメントやExcelのワークシートに挿入することができます。 下のサンプルでは、AccessをDDEサーバーとして使うWordのプロシージャを、VBで作成しています。この例を実行するには、Access が実行されている必要があります。 ●サンプル● Sub AccessDDE() Dim intChan1 As Long, intChan2 As Long Dim strQueryData As String 'System トピックを使って、ノースウィンド データベースを開きます。 'ほかのDDEトピックを使う前に、データベースを開く必要があります。 intChan1 = DDEInitiate("MSAccess", "System") 'ノースウィンド データベースの実際の位置を示すには、次のパスの変更が '必要な場合があります。 DDEExecute intChan1, "[OpenDatabase C:\Access\Samples\Northwind.mdb]" '[四半期売上高] クエリのすべてのデータを取得します。 intChan2 = DDEInitiate("MSAccess", "Northwind.mdb;" _ & "QUERY 四半期売上高") strQueryData = DDERequest(intChan2, "All") DDETerminate intChan2 'データベースを閉じます。 DDEExecute intChan1, "[CloseDatabase]" DDETerminate intChan1 '取得したデータをデバッグ ウィンドウに表示します。 Debug.Print strQueryData End Sub