MS Access VBAの別のテーブルの条件を使用してExcelスプレッドシートを作成する

Question

Ms Access VBAとExcelのヘルプが必要です。私も注文の詳細と顧客の詳細を含め、顧客ごとにExcelファイルを作成する必要が

t_Customer

- CustomerID 
- CustomerName 
- CustomerAccnt 

t_Orders

- OrderID 
- Desc 
- PartNo 
- Amount 
- Disc 
- Date 
- CustomerID 

：私は2つのテーブルを持っています。各ファイルは "Transactions for .xls"と呼ばれるべきです。私の考えは、各顧客をループ内の顧客テーブルから取り出し、ordersテーブルの情報と一致させ、一時テーブルを作成し、Excelにエクスポートすることです。

私はこれを行う方法がわかりません。何か助けや助言をいただければ幸いです。

Answer 1

あなたは正しい行にあります。私はこのようなことをするでしょう（プレストコードですが、うまくいくはずです）

Dim Db as DAO.Database 
Dim Rst as DAO.Recordset 

Set Rst = Db.OpenRecordset ("SELECT Customer_ID, Customer_name FROM t_Customer") 
With Rst 
    Do Until .Eof 
     Db.CreateQueryDef "qryTemp_query", _ 
      "SELECT blah FROM t_Order WHERE Customer_ID=" & !Customer_ID.Value 
     DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, _ 
      "qryTemp_query", "C:\Transactions for " & !Customer_name.Value 
     Db.QueryDefs.Delete "qryTemp_query" 
     .MoveNext 
    Loop 
End With 
Rst.Close 
Db.Close